diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st index 8a0837ee..c2a3a375 100644 --- 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 [ - "" + promiseResolution canStopExecution ifFalse: [ ^ anAction empty ]. @@ -200,7 +200,7 @@ GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [ { #category : #'gt - actions' } GtGemStoneAsyncEvaluationElement >> gtActionDebugExecutionFor: anAction [ - "" + promiseResolution canStopExecution ifFalse: [ ^ anAction empty ]. diff --git a/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncPromiseResolution.class.st b/src/GToolkit-GemStone-Pharo/GtGemStoneAsyncPromiseResolution.class.st index 271b8a2a..7e6bc039 100644 --- 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 |