From f41f7162a216547b073d4a7f239b14d9379337eb Mon Sep 17 00:00:00 2001 From: gareuselesinge Date: Sun, 11 Aug 2013 11:54:04 +0000 Subject: Automatic backtracking if locked zone is edited That is pretty tricky, and is not as nice I would like for to_process text (that is still considered as locked). git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16698 85f007b7-540e-0410-9357-904b9bb8a0f7 --- ide/tags.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ide/tags.ml') diff --git a/ide/tags.ml b/ide/tags.ml index e668616bf..a91905dcd 100644 --- a/ide/tags.ml +++ b/ide/tags.ml @@ -22,9 +22,9 @@ struct let comment_sentence = make_tag table ~name:"comment_sentence" [] let error = make_tag table ~name:"error" [`UNDERLINE `DOUBLE ; `FOREGROUND "red"] let error_bg = make_tag table ~name:"error_bg" [`BACKGROUND "#FFCCCC"] - let to_process = make_tag table ~name:"to_process" [`BACKGROUND !processing_color ;`EDITABLE false] - let processed = make_tag table ~name:"processed" [`BACKGROUND !processed_color;`EDITABLE false] - let unjustified = make_tag table ~name:"unjustified" [`BACKGROUND "gold";`EDITABLE false] + let to_process = make_tag table ~name:"to_process" [`BACKGROUND !processing_color] + let processed = make_tag table ~name:"processed" [`BACKGROUND !processed_color] + let unjustified = make_tag table ~name:"unjustified" [`BACKGROUND "gold"] 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" *) -- cgit v1.2.3