diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-20 09:47:23 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-03-20 09:47:23 +0000 |
commit | f5afee34bdf667ef1987df943fc9aec41dcb90bc (patch) | |
tree | 63eecadcbcb88512717c0be0fa67a3fd1c89a87f /ide/wg_MessageView.ml | |
parent | cfe99ef73d9470ec215404d6e1b2fe69cc677cd0 (diff) |
Better encapsulation of MessageView
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16323 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/wg_MessageView.ml')
-rw-r--r-- | ide/wg_MessageView.ml | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index b57f55ea9..d3513536e 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -16,18 +16,22 @@ class type message_view = (** same as [add], but with an explicit level instead of [Notice] *) method buffer : GText.buffer (** for more advanced text edition *) + method modify_font : Pango.font_description -> unit end let message_view () : message_view = let buffer = GText.buffer ~tag_table:Tags.Message.table () in - let view = GText.view ~buffer + let box = GPack.vbox () in + let scroll = GBin.scrolled_window + ~vpolicy:`AUTOMATIC ~hpolicy:`AUTOMATIC ~packing:(box#pack ~expand:true) () in + let view = GText.view ~buffer ~packing:scroll#add ~editable:false ~cursor_visible:false ~wrap_mode:`WORD () in let default_clipboard = GData.clipboard Gdk.Atom.primary in let _ = buffer#add_selection_clipboard default_clipboard in let () = view#set_left_margin 2 in object (self) - inherit GObj.widget view#as_widget + inherit GObj.widget box#as_widget method clear = buffer#set_text "" @@ -47,4 +51,6 @@ let message_view () : message_view = method buffer = buffer + method modify_font fd = view#misc#modify_font fd + end |