aboutsummaryrefslogtreecommitdiff
path: root/ide/wg_MessageView.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ide/wg_MessageView.ml')
-rw-r--r--ide/wg_MessageView.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml
index d4f353e508..bd6d517dc3 100644
--- a/ide/wg_MessageView.ml
+++ b/ide/wg_MessageView.ml
@@ -11,6 +11,7 @@ class type message_view =
inherit GObj.widget
method clear : unit -> unit
method push : Interface.message_level -> string -> unit
+ method buffer : GText.buffer
end
let message_view () : message_view =
@@ -35,4 +36,6 @@ let message_view () : message_view =
buffer#insert ~tags msg;
buffer#insert ~tags "\n"
+ method buffer = buffer
+
end