diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-10 16:35:28 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-10 16:35:28 +0000 |
commit | 2de75892efb8c2ab63a3b23767d0cefd0996f8d6 (patch) | |
tree | 0cc24f4b3e703c7ab57d9455598880b02de109d7 /ide/wg_MessageView.ml | |
parent | 6416f0d41e46aaa64af50aa20dfb324db242286a (diff) |
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
Diffstat (limited to 'ide/wg_MessageView.ml')
-rw-r--r-- | ide/wg_MessageView.ml | 14 |
1 files changed, 11 insertions, 3 deletions
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 |