Adding color for warnings in CoqIDE

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16321 85f007b7-540e-0410-9357-904b9bb8a0f7

3 files changed, 3 insertions, 0 deletions

diff --git a/ide/tags.ml b/ide/tags.ml
index 3d0e873a7..eff9c46a9 100644
--- a/ide/tags.ml
+++ b/ide/tags.ml
@@ -41,6 +41,7 @@ module Message =
 struct
   let table = GText.tag_table ()
   let error = make_tag table ~name:"error" [`FOREGROUND "red"]
+  let warning = make_tag table ~name:"warning" [`FOREGROUND "orange"]
   let item = make_tag table ~name:"item" [`WEIGHT `BOLD]
 end
 
diff --git a/ide/tags.mli b/ide/tags.mli
index 2d74d43f2..1a9b22d00 100644
--- a/ide/tags.mli
+++ b/ide/tags.mli
@@ -31,6 +31,7 @@ module Message :
 sig
   val table : GText.tag_table
   val error : GText.tag
+  val warning : GText.tag
   val item : GText.tag
 end
 
diff --git a/ide/wg_MessageView.ml b/ide/wg_MessageView.ml
index ad3b8ecc0..b57f55ea9 100644
--- a/ide/wg_MessageView.ml
+++ b/ide/wg_MessageView.ml
@@ -35,6 +35,7 @@ let message_view () : message_view =
     method push level msg =
       let tags = match level with
       | Interface.Error -> [Tags.Message.error]
+      | Interface.Warning -> [Tags.Message.warning]
       | _ -> []
       in
       buffer#insert ~tags msg;