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.
--- 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