Handle the two execution contexts present now in GemStone [feenkcom/g…

…toolkit/#3942]
feenkcom · Aug 6, 2024 · 31fe75c · 31fe75c
1 parent 2dff535
commit 31fe75c
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 1 deletion.
diff --git a/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationExceptionContext.class.st b/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationExceptionContext.class.st
@@ -0,0 +1,10 @@
+Class {
+	#name : #GtpoGtGemStoneEvaluationExceptionContext,
+	#superclass : #GtpoGtGemStoneEvaluationContext,
+	#category : #'GToolkit-GemStone-Pharo-Proxies'
+}
+
+{ #category : #accessing }
+GtpoGtGemStoneEvaluationExceptionContext class >> remoteClassName [
+	^ #GtGemStoneEvaluationExceptionContext
+]
diff --git a/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationExecutionContext.class.st b/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationExecutionContext.class.st
@@ -0,0 +1,15 @@
+Class {
+	#name : #GtpoGtGemStoneEvaluationExecutionContext,
+	#superclass : #GtpoGtGemStoneEvaluationContext,
+	#category : #'GToolkit-GemStone-Pharo-Proxies'
+}
+
+{ #category : #accessing }
+GtpoGtGemStoneEvaluationExecutionContext class >> remoteClassName [
+	^ #GtGemStoneEvaluationExecutionContext
+]
+
+{ #category : #accessing }
+GtpoGtGemStoneEvaluationExecutionContext >> wait [
+	^ self proxyPerform: #wait
+]
diff --git a/src/GToolkit-GemStone-Pharo/RsrPromise.extension.st b/src/GToolkit-GemStone-Pharo/RsrPromise.extension.st
@@ -11,5 +11,6 @@ RsrPromise >> canHandleSpecificDebugger [
 RsrPromise >> isGtEvaluationException [
 	"Answer a boolean indicating if the result is an evaluation exception"
 
-	^ self isFulfilled and: [ value class = GtpoGtGemStoneEvaluationContext ]
+	^ self isFulfilled and: [ (value class = GtpoGtGemStoneEvaluationContext)
+		or: [ value class = GtpoGtGemStoneEvaluationExceptionContext ] ]
 ]