diff options
| -rw-r--r-- | ide/tags.ml | 1 | ||||
| -rw-r--r-- | ide/tags.mli | 1 | ||||
| -rw-r--r-- | ide/wg_MessageView.ml | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/ide/tags.ml b/ide/tags.ml index 3d0e873a77..eff9c46a9c 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 2d74d43f27..1a9b22d004 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 ad3b8ecc01..b57f55ea9b 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; |