VDBDebuggerConsoleApplication.st
changeset 6 981a32abdbf6
parent 5 fac6e83fd5c0
child 8 61e4abb26d78
--- 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'!