visualgst: Handle process termination in the debugger

Handle process termination: when context of process is set to nil the debugger is no more blocked. 2013-10-21 Gwenael Casaccio <gwenael.casaccio@gmail.com> * DebugTools.st: Add slowNext stepping command. 2014-01-29 Gwenael Casaccio <gwenael.casaccio@gmail.com> * Debugger/GtkDebugger.st: Handle process termination.
gnu-smalltalk · Feb 1, 2014 · 89bd17b · 89bd17b
1 parent 7baade4
commit 89bd17b
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 2 deletions.
diff --git a/packages/debug/ChangeLog b/packages/debug/ChangeLog
@@ -1,5 +1,9 @@
 2013-10-21  Gwenael Casaccio  <gwenael.casaccio@gmail.com>
-
+
+	* DebugTools.st: Add slowNext stepping command.
+
+2013-10-21  Gwenael Casaccio  <gwenael.casaccio@gmail.com>
+
 	* debugtests.st: Add test for >>#restart.
 	* DebugTools.st: Restart a execution of a context (useful it the method is updated).
 

diff --git a/packages/debug/DebugTools.st b/packages/debug/DebugTools.st
@@ -191,6 +191,23 @@ pointer bytecodes to line numbers.'>
 		whileTrue
     ]
 
+    slowNext [
+	"Run to the end of the current line in the inferior process, skipping
+	 over message sends."
+
+	<category: 'stepping commands'>
+	| context line |
+	context := self suspendedContext.
+	line := self currentLine.
+
+	[self stepBytecode.
+	(self suspendedContext notNil
+	    and: [self suspendedContext parentContext == context])
+		ifTrue: [self slowFinish: self suspendedContext].
+	self suspendedContext == context and: [line = self currentLine]]
+		whileTrue
+    ]
+
     next [
 	"Run to the end of the current line in the inferior process, skipping
 	 over message sends."

diff --git a/packages/visualgst/ChangeLog b/packages/visualgst/ChangeLog
@@ -1,3 +1,7 @@
+2014-01-29  Gwenael Casaccio  <gwenael.casaccio@gmail.com>
+
+	* Debugger/GtkDebugger.st: Handle process termination.
+
 2014-01-24  Holger Hans Peter Freyther  <holger@moiji-mobile.com>
 
 	* SUnit/GtkSUnit.st: Ask TestCase for testcases.

diff --git a/packages/visualgst/Debugger/GtkDebugger.st b/packages/visualgst/Debugger/GtkDebugger.st
@@ -221,6 +221,7 @@ GtkBrowsingTool subclass: GtkDebugger [
     updateContextWidget [
 	<category: 'context'>
 
+	debugger suspendedContext ifNil: [ ^ self close ].
 	contextWidget
             context: debugger suspendedContext;
             selectFirstContext.
@@ -293,7 +294,7 @@ GtkBrowsingTool subclass: GtkDebugger [
     stepOver [
         <category: 'execute events'>
 
-        self debugWith: [ debugger next ]
+        self debugWith: [ debugger slowNext ]
     ]
 
     stepOut [
@@ -315,6 +316,7 @@ GtkBrowsingTool subclass: GtkDebugger [
         <category: 'execute events'>
 
         self close.
+        debugger suspendedContext ifNil: [ ^ self ].
         debugger continue
     ]