minimimal tode client support for using the gci-based step through as…

… opposed to TDDebugger>>dbSetThruBreaksDuring: ...
dalehenrich · Dec 21, 2016 · 0956b4f · 0956b4f
1 parent 91c50de
commit 0956b4f
Show file tree

Hide file tree

Showing 7 changed files with 26 additions and 6 deletions.
diff --git a/...itory/Tode-Minimal-Client-Core.package/TDMinimalClient.class/instance/clientApiVersion.st b/...itory/Tode-Minimal-Client-Core.package/TDMinimalClient.class/instance/clientApiVersion.st
@@ -16,4 +16,6 @@ clientApiVersion
 	"1.3.0 - debugger uses #closeWith: callback when dbContinue runs off the end,
            server-side effectiveApiVersion"
 
-	^ '1.3.0' asMetacelloVersionNumber
+	"1.4.0 - use client callback #dbStepThrough:forProcessOop: for debugger step thru ... GemStone3.2 and greater"
+
+	^ '1.4.0' asMetacelloVersionNumber
diff --git a/...ode-Minimal-Client-Core.package/TDMinimalClient.class/instance/registerDefaultServices.st b/...ode-Minimal-Client-Core.package/TDMinimalClient.class/instance/registerDefaultServices.st
@@ -91,6 +91,15 @@ registerDefaultServices
 					result := ex performSendNoForwarder: [  ].
 					^ ex resume: (Array with: #resume with: result) ] ]
 			for: #dbStep:forProcessOop:;
+		registerService: [ :level :processOop :aClient | 
+			[ aClient
+				handleDebugExceptionsDuring: [ aClient session stepThrough: (GsGciOopType fromInteger: processOop) level: level ] ]
+				on: GsGciClientForwarderSend
+				do: [ :ex | 
+					| result |
+					result := ex performSendNoForwarder: [  ].
+					^ ex resume: (Array with: #resume with: result) ] ]
+			for: #dbStepThrough:forProcessOop:;
 		registerService: [ :processOop :aClient | 
 			aClient
 				handleDebugExceptionsDuring: [ aClient session continueContext: (GsGciOopType fromInteger: processOop) ]

diff --git a/repository/Tode-Minimal-Client-Core.package/TDMinimalClient.class/methodProperties.json b/repository/Tode-Minimal-Client-Core.package/TDMinimalClient.class/methodProperties.json
@@ -4,7 +4,7 @@
 		"debugMode:" : "dkh 4/19/2016 06:39",
 		"loginWith:" : "dkh 4/15/2016 21:00" },
 	"instance" : {
-		"clientApiVersion" : "dkh 4/29/2016 20:03",
+		"clientApiVersion" : "smalltalkCI 12/21/2016 14:38",
 		"debugMode" : "dkh 4/19/2016 06:38",
 		"debugMode:" : "dkh 4/19/2016 06:39",
 		"debuggerRequested:" : "dkh 4/30/2016 07:58",
@@ -31,7 +31,7 @@
 		"onServerDo:serializeBlock:" : "dkh 7/26/2016 18:45",
 		"onServerDo:serializeBlock:serverSelector:" : "dkh 8/9/2016 19:48",
 		"onServerDo:serializeBlock:serverSelector:variableBindings:" : "dkh 8/9/2016 19:46",
-		"registerDefaultServices" : "TravisCI 7/22/2016 15:38",
+		"registerDefaultServices" : "smalltalkCI 12/21/2016 14:24",
 		"registerService:for:" : "dkh 4/19/2016 11:20",
 		"serverApiVersion:" : "dkh 4/16/2016 19:40",
 		"servicesRegistry" : "dkh 4/19/2016 10:26",

diff --git a/repository/Tode-Minimal-Client-Core.package/monticello.meta/version b/repository/Tode-Minimal-Client-Core.package/monticello.meta/version
diff --git a/repository/Tode-Minimal-Client-Debugger.package/TDMinimalDebugger.class/class/example.st b/repository/Tode-Minimal-Client-Debugger.package/TDMinimalDebugger.class/class/example.st
@@ -95,6 +95,15 @@ example
 					result := ex performSendNoForwarder: [  ].
 					^ ex resume: (Array with: #resume with: result) ] ]
 			for: #dbStep:forProcessOop:;
+		registerService: [ :level :processOop :aClient | 
+			[ aClient
+				handleDebugExceptionsDuring: [ aClient session stepThrough: (GsGciOopType fromInteger: processOop) level: level ] ]
+				on: GsGciClientForwarderSend
+				do: [ :ex | 
+					| result |
+					result := ex performSendNoForwarder: [  ].
+					^ ex resume: (Array with: #resume with: result) ] ]
+			for: #dbStepThrough:forProcessOop:;
 		registerService: [ :processOop :aClient | 
 			aClient
 				handleDebugExceptionsDuring: [ aClient session continueContext: (GsGciOopType fromInteger: processOop) ]

diff --git a/...sitory/Tode-Minimal-Client-Debugger.package/TDMinimalDebugger.class/methodProperties.json b/...sitory/Tode-Minimal-Client-Debugger.package/TDMinimalDebugger.class/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"example" : "dkh 4/30/2016 07:58" },
+		"example" : "smalltalkCI 12/21/2016 11:31" },
 	"instance" : {
 		"actOnBrowserClosing:" : "dkh 8/7/2016 17:43",
 		"browser" : "dkh 4/23/2016 17:38",

diff --git a/repository/Tode-Minimal-Client-Debugger.package/monticello.meta/version b/repository/Tode-Minimal-Client-Debugger.package/monticello.meta/version