--- a/VDBDebuggerConsoleApplication.st Tue Jun 10 17:46:14 2014 +0100
+++ b/VDBDebuggerConsoleApplication.st Tue Jun 10 21:12:15 2014 +0100
@@ -102,21 +102,24 @@
!VDBDebuggerConsoleApplication methodsFor:'hooks'!
commonPostOpen
- consoleProcess :=
- [
+ consoleProcess isNil ifTrue:[
+ consoleProcess :=
[
- | cmd |
- consoleOutput nextPutAll:'(gdb) '.
- cmd := consoleInput nextLine asString.
- consoleOutput nextPutLine: cmd.
- consoleOutput nextPut: Character return.
- debugger send: (GDBCLICommand new value: cmd) wait: true.
- ] loop.
- ] newProcess.
- consoleProcess name: 'VDB Debugger Console REPL loop'.
- consoleProcess resume.
+ [
+ | cmd |
+ consoleOutput nextPutAll:'(gdb) '.
+ cmd := consoleInput nextLine asString.
+ consoleOutput nextPutLine: cmd.
+ consoleOutput nextPut: Character return.
+ debugger send: (GDBCLICommand new value: cmd) wait: true.
+ ] loop.
+ ] newProcess.
+ consoleProcess name: 'VDB Debugger Console REPL loop'.
+ consoleProcess resume.
+ ].
"Created: / 10-06-2014 / 01:25:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 10-06-2014 / 19:55:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!VDBDebuggerConsoleApplication methodsFor:'initialization & release'!