nouveau changement de couleurs

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2970 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2000-03-17 09:17:45 +00:00 · 2000-03-17 09:17:45 +00:00 · ee375a4464
parent 9e3ca24a01
commit ee375a4464
1 changed files with 2 additions and 2 deletions
--- a/otherlibs/labltk/browser/lexical.ml
+++ b/otherlibs/labltk/browser/lexical.ml
@ -22,7 +22,7 @@ let tags =
   "infix"; "label"; "uident"]
 and colors =
    ["blue"; "forestgreen"; "purple"; "gray40";
-     "indianred4"; "brown"; "midnightblue"]
+     "indianred4"; "saddlebrown"; "midnightblue"]

 let init_tags tw =
  List.iter2 tags colors fun:
@ -83,7 +83,6 @@ let tag ?(:start=tstart) ?(:end=tend) tw =
      | PARSER
      | PRIVATE
      | REC
-      | SHARP
      | TYPE
      | VAL
      | VIRTUAL
@ -106,6 +105,7 @@ let tag ?(:start=tstart) ?(:end=tend) tw =
      | INFIXOP4 _
      | PREFIXOP _
      | QUESTION2
+      | SHARP
          -> "infix"
      | LABEL _
      | LABELID _