diff options
author | 2016-09-13 09:40:39 +0200 | |
---|---|---|
committer | 2016-09-13 12:58:07 +0200 | |
commit | dd4088ade7539c42adb15f58edcbf7fcf638731c (patch) | |
tree | 8559c25d2b7d5c889301b1c828a235a88878dacc /ide/coqOps.ml | |
parent | ef02dca29b1bbeefc15c50e525971b425eeb05b4 (diff) |
CoqIDE: push to message win feedback Message(Debug,Info,Notice)
Diffstat (limited to 'ide/coqOps.ml')
-rw-r--r-- | ide/coqOps.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ide/coqOps.ml b/ide/coqOps.ml index 52f935bf6..1563c7ffb 100644 --- a/ide/coqOps.ml +++ b/ide/coqOps.ml @@ -481,6 +481,8 @@ object(self) add_flag sentence (`WARNING (loc, msg)); self#attach_tooltip sentence loc msg; self#position_warning_tag_at_sentence sentence loc + | Message((Info|Notice|Debug as lvl), _, msg), _ -> + messages#push lvl msg | InProgress n, _ -> if n < 0 then processed <- processed + abs n else to_process <- to_process + n |