Fixed handling of log events in `VDBDebuggerApplication`
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 13 Mar 2018 00:08:25 +0000
changeset 65 3fdd35be056d
parent 64 5ca770f02332
child 66 a6439bb6d8bc
Fixed handling of log events in `VDBDebuggerApplication` Only raise & flash log window once all log events are received to avoid (timely) flashing when log is large.
VDBDebuggerApplication.st
--- a/VDBDebuggerApplication.st	Mon Feb 19 16:20:12 2018 +0000
+++ b/VDBDebuggerApplication.st	Tue Mar 13 00:08:25 2018 +0000
@@ -858,12 +858,17 @@
 
     Transcript nextPutAll: aGDBLogOutputEvent value.
     Transcript isView ifTrue:[ 
-        Transcript topView raise.
-        Transcript flash.
+        | flasher |
+
+        flasher := [ 
+            debugger announcer unsubscribe: flasher.
+            Transcript topView raise; flash.
+        ].
+        debugger announcer when: GDBEventSetProcessingFinished  do: flasher
     ].
 
     "Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 02-02-2018 / 21:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-02-2018 / 09:20:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 onRunningEvent: aGDBStoppedEvent