Add back the buttons for controlling a non-blocking execution [feenkc…

…om/gtoolkit#3942]
feenkcom · Aug 29, 2024 · fd5188c · fd5188c
1 parent be990a6
commit fd5188c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st
@@ -185,7 +185,7 @@ GtGemStoneAsyncEvaluationElement >> createTitleNotifier [
 
 { #category : #'gt - actions' }
 GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [
-	"<gtExecutionAction>"
+	<gtExecutionAction>
 
 	promiseResolution canStopExecution ifFalse: [ ^ anAction empty ].
 
@@ -200,7 +200,7 @@ GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [
 
 { #category : #'gt - actions' }
 GtGemStoneAsyncEvaluationElement >> gtActionDebugExecutionFor: anAction [
-	"<gtExecutionAction>"
+	<gtExecutionAction>
 
 	promiseResolution canStopExecution ifFalse: [ ^ anAction empty ].
 

diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncPromiseResolution.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncPromiseResolution.class.st
@@ -40,9 +40,9 @@ GtGemStoneAsyncPromiseResolution >> endTimestamp [
 GtGemStoneAsyncPromiseResolution >> ensureExecuting [
 	self hasProcess ifTrue: [ ^ self ].
 
+	state := #Running.
+	startTimestamp := DateAndTime now.
 	resolutionProcess := [
-		state := #Running.
-		startTimestamp := DateAndTime now.
 		[
 			| computedResult |