Add interrupt support on the client side [feenkcom/gtoolkit#3942]

feenkcom · Aug 22, 2024 · 78ed67a · 78ed67a
1 parent f713059
commit 78ed67a
Show file tree

Hide file tree

Showing 4 changed files with 33 additions and 0 deletions.
diff --git a/src/GToolkit-GemStone-Lepiter/GtGemStoneAsyncEvaluationElement.class.st b/src/GToolkit-GemStone-Lepiter/GtGemStoneAsyncEvaluationElement.class.st
@@ -198,6 +198,21 @@ GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [
 			promiseResolution stopEvaluation  ].
 ]
 
+{ #category : #'gt - actions' }
+GtGemStoneAsyncEvaluationElement >> gtActionDebugExecutionFor: anAction [
+	<gtExecutionAction>
+
+	promiseResolution canStopExecution ifFalse: [ ^ anAction empty ].
+
+	^ anAction button
+		label: 'Debug';
+		priority: 110;
+		icon: BrGlamorousVectorIcons debug;
+		tooltip: 'Debug the execution';
+		action: [ :button |
+			promiseResolution interruptEvaluation  ].
+]
+
 { #category : #'gt - actions' }
 GtGemStoneAsyncEvaluationElement >> gtActionInspectResolvedValueFor: anAction [
 	<gtExecutionAction>

diff --git a/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetPromise.class.st b/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetPromise.class.st
@@ -111,6 +111,13 @@ GtGemStoneSnippetPromise >> initialize [
 	state := #PendingResolution.
 ]
 
+{ #category : #actions }
+GtGemStoneSnippetPromise >> interruptEvaluation [
+	self assert: [ executionContext notNil ].
+
+	^ executionContext interruptAsyncComputation
+]
+
 { #category : #testing }
 GtGemStoneSnippetPromise >> isBroken [
 	"Report if the receiver is currently broken"

diff --git a/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetPromiseResolution.class.st b/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetPromiseResolution.class.st
@@ -91,6 +91,11 @@ GtGemStoneSnippetPromiseResolution >> initialize [
 	state := #'Not Started'
 ]
 
+{ #category : #actions }
+GtGemStoneSnippetPromiseResolution >> interruptEvaluation [
+	snippetPromise interruptEvaluation
+]
+
 { #category : #testing }
 GtGemStoneSnippetPromiseResolution >> isResolutionProcessDone [
 	^ resolutionProcess isTerminated or: [ 

diff --git a/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationContext.class.st b/src/GToolkit-GemStone-Pharo/GtpoGtGemStoneEvaluationContext.class.st
@@ -10,6 +10,12 @@ GtpoGtGemStoneEvaluationContext class >> remoteClassName [
 	^ #GtGemStoneEvaluationContext
 ]
 
+{ #category : #'actions - debug' }
+GtpoGtGemStoneEvaluationContext >> interruptAsyncComputation [
+
+	^ self proxyPerform: #interruptAsyncComputation
+]
+
 { #category : #accessing }
 GtpoGtGemStoneEvaluationContext >> printOn: aStream [
 	"Avoid a GS call that is typically only written to PharoDebug.log"