diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-25 14:14:25 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-25 14:14:25 +0000 |
| commit | 0a5720391f3f663d5984a60958c44219fe368611 (patch) | |
| tree | a78cadd490c9858094ebd2fb8ea362d28afd220a | |
| parent | d284deddaf736d2387a79b219f328915bc12614c (diff) | |
Coqide: new tag "tooltip" for the Script window
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16453 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | ide/tags.ml | 3 | ||||
| -rw-r--r-- | ide/tags.mli | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/ide/tags.ml b/ide/tags.ml index eff9c46a9..9af54831f 100644 --- a/ide/tags.ml +++ b/ide/tags.ml @@ -26,9 +26,10 @@ struct let unjustified = make_tag table ~name:"unjustified" [`BACKGROUND "gold";`EDITABLE false] let found = make_tag table ~name:"found" [`BACKGROUND "blue"; `FOREGROUND "white"] let sentence = make_tag table ~name:"sentence" [] + let tooltip = make_tag table ~name:"tooltip" [] (* debug:`BACKGROUND "blue" *) let all = [comment_sentence; error; to_process; processed; unjustified; - found; sentence] + found; sentence; tooltip] end module Proof = struct diff --git a/ide/tags.mli b/ide/tags.mli index 1a9b22d00..d86dcbc44 100644 --- a/ide/tags.mli +++ b/ide/tags.mli @@ -16,6 +16,7 @@ sig val unjustified : GText.tag val found : GText.tag val sentence : GText.tag + val tooltip : GText.tag val all : GText.tag list end |