equal
deleted
inserted
replaced
1 "{ Package: 'jv:vdb' }" |
1 "{ Package: 'jv:vdb' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 VDBAbstractApplication subclass:#VDBDebuggerConsoleApplication |
5 VDBAbstractApplication subclass:#VDBDebuggerConsoleApplication |
4 instanceVariableNames:'consoleView consoleInput consoleOutput consoleOutputLock |
6 instanceVariableNames:'consoleView consoleInput consoleOutput consoleOutputLock |
5 consoleProcess consolePromptPrinted outstandingCommand |
7 consoleProcess consolePromptPrinted outstandingCommand |
6 outstandingCommandToken outstandingCommandBlocker |
8 outstandingCommandToken outstandingCommandBlocker |
97 "/ if so, print "Done" to the console since MI command don't |
99 "/ if so, print "Done" to the console since MI command don't |
98 "/ provide user feedback. |
100 "/ provide user feedback. |
99 outstandingCommand isMICommand ifTrue:[ |
101 outstandingCommand isMICommand ifTrue:[ |
100 self showCR: ('Done ( %1 , see even log for result value)' bindWith: outstandingCommand value) |
102 self showCR: ('Done ( %1 , see even log for result value)' bindWith: outstandingCommand value) |
101 ]. |
103 ]. |
102 outstandingCommand := outstandingCommandToken := nil. |
104 ]. |
103 outstandingCommandBlocker signalForAll. |
105 outstandingCommand := outstandingCommandToken := nil. |
104 ] |
106 outstandingCommandBlocker signalForAll. |
105 ]. |
107 ]. |
106 ]. |
108 ]. |
107 |
109 |
108 "Created: / 06-06-2014 / 22:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
110 "Created: / 06-06-2014 / 22:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
109 "Modified: / 30-09-2014 / 09:39:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
111 "Modified: / 27-02-2015 / 13:01:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
110 ! |
112 ! |
111 |
113 |
112 onEventSetProcessingFinished: event |
114 onEventSetProcessingFinished: event |
113 self showPrompt. |
115 self showPrompt. |
114 |
116 |