equal
deleted
inserted
replaced
856 |
856 |
857 onLogOutputEvent:aGDBLogOutputEvent |
857 onLogOutputEvent:aGDBLogOutputEvent |
858 |
858 |
859 Transcript nextPutAll: aGDBLogOutputEvent value. |
859 Transcript nextPutAll: aGDBLogOutputEvent value. |
860 Transcript isView ifTrue:[ |
860 Transcript isView ifTrue:[ |
861 Transcript topView raise. |
861 | flasher | |
862 Transcript flash. |
862 |
|
863 flasher := [ |
|
864 debugger announcer unsubscribe: flasher. |
|
865 Transcript topView raise; flash. |
|
866 ]. |
|
867 debugger announcer when: GDBEventSetProcessingFinished do: flasher |
863 ]. |
868 ]. |
864 |
869 |
865 "Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
870 "Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
866 "Modified: / 02-02-2018 / 21:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
871 "Modified: / 12-02-2018 / 09:20:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
867 ! |
872 ! |
868 |
873 |
869 onRunningEvent: aGDBStoppedEvent |
874 onRunningEvent: aGDBStoppedEvent |
870 self updateButtonEnablements |
875 self updateButtonEnablements |
871 |
876 |