diff options
author | vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-16 11:58:57 +0000 |
---|---|---|
committer | vgross <vgross@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-10-16 11:58:57 +0000 |
commit | 8ba328e305fdd7deb2c024b0cdbb13ff28c6775a (patch) | |
tree | 76e7afb61f63148409ff86fdf121b1297be47e51 /ide | |
parent | 63f074a7a84efeda3940906120ee52443be3ebda (diff) |
note for later : when the tag table is shared, never, ever create two
tags with the same name. This fixes file opening.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12396 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
-rw-r--r-- | ide/coqide.ml | 5 | ||||
-rw-r--r-- | ide/tags.ml | 1 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 4b08f4b9b..fb7b92d71 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -1515,8 +1515,7 @@ object(self) ignore (input_buffer#add_selection_clipboard cb); ignore (proof_buffer#add_selection_clipboard cb); ignore (message_buffer#add_selection_clipboard cb); - let paren_highlight_tag = input_buffer#create_tag ~name:"paren" [`BACKGROUND "purple"] in - self#electric_paren paren_highlight_tag; + self#electric_paren Tags.Script.paren; ignore (input_buffer#connect#after#mark_set ~callback:(fun it (m:Gtk.text_mark) -> !set_location @@ -1528,7 +1527,7 @@ object(self) input_buffer#remove_tag ~start:input_buffer#start_iter ~stop:input_buffer#end_iter - paren_highlight_tag; + Tags.Script.paren; | Some s -> prerr_endline (s^" moved") | None -> () ) diff --git a/ide/tags.ml b/ide/tags.ml index b0b9dc6fb..826fcd962 100644 --- a/ide/tags.ml +++ b/ide/tags.ml @@ -30,6 +30,7 @@ struct let found = make_tag table ~name:"found" [`BACKGROUND "blue"; `FOREGROUND "white"] let hidden = make_tag table ~name:"hidden" [`INVISIBLE true; `EDITABLE false] let locked = make_tag table ~name:"locked" [`EDITABLE false; `BACKGROUND "light grey"] + let paren = make_tag table ~name:"paren" [`BACKGROUND "purple"] end module Proof = struct |