diff options
| author | letouzey | 2012-12-10 16:35:28 +0000 |
|---|---|---|
| committer | letouzey | 2012-12-10 16:35:28 +0000 |
| commit | 2de75892efb8c2ab63a3b23767d0cefd0996f8d6 (patch) | |
| tree | 0cc24f4b3e703c7ab57d9455598880b02de109d7 /ide/ideutils.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/ideutils.ml')
| -rw-r--r-- | ide/ideutils.ml | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/ide/ideutils.ml b/ide/ideutils.ml index 35a5a2477c..ed07135b59 100644 --- a/ide/ideutils.ml +++ b/ide/ideutils.ml @@ -11,6 +11,17 @@ open Preferences exception Forbidden +let warn_image = + let img = GMisc.image () in + img#set_stock `DIALOG_WARNING; + img#set_icon_size `DIALOG; + img + +let warning msg = + GToolbox.message_box ~title:"Warning" ~icon:warn_image#coerce msg + +let cb = GData.clipboard Gdk.Atom.primary + (* status bar and locations *) let status = GMisc.statusbar () |
