From 2de75892efb8c2ab63a3b23767d0cefd0996f8d6 Mon Sep 17 00:00:00 2001 From: letouzey Date: Mon, 10 Dec 2012 16:35:28 +0000 Subject: Coqide: some more refactoring to lighten coqide.ml Main victim is analyzed_view : - some unnecessary methods have been killed (hep_for_keyword for instance) - some other migrated elsewhere (recenter_input, find_next_occurrence, ...) - analyzed_view is now split in two : fileops (filename, save, revert, ...) and coqops (process_next_phrase, ...) Four new files created: - Sentence (for tag_on_insert and alii) - FileOps (ex-first-half of analyzed_view) - CoqOps (ex-second-half of analyzed_view) - Session (ex-record viewable_script and functions about it) Also lots of renaming, trying to be shorter (but still meaningful) and more uniform git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16057 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/wg_MessageView.ml | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'ide/wg_MessageView.ml') diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml index bd6d517dc..ad3b8ecc0 100644 --- a/ide/wg_MessageView.ml +++ b/ide/wg_MessageView.ml @@ -9,9 +9,13 @@ class type message_view = object inherit GObj.widget - method clear : unit -> unit + method clear : unit + method add : string -> unit + method set : string -> unit method push : Interface.message_level -> string -> unit + (** same as [add], but with an explicit level instead of [Notice] *) method buffer : GText.buffer + (** for more advanced text edition *) end let message_view () : message_view = @@ -22,10 +26,10 @@ let message_view () : message_view = 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 + object (self) inherit GObj.widget view#as_widget - method clear () = + method clear = buffer#set_text "" method push level msg = @@ -36,6 +40,10 @@ let message_view () : message_view = buffer#insert ~tags msg; buffer#insert ~tags "\n" + method add msg = self#push Interface.Notice msg + + method set msg = self#clear; self#add msg + method buffer = buffer end -- cgit v1.2.3