Skip to content

Commit

Permalink
Limit for now the features in the gs asnc tool [feenkcom/gtoolkit#3942]
Browse files Browse the repository at this point in the history
  • Loading branch information
@chisandrei
chisandrei committed Aug 28, 2024
1 parent bb296b5 commit 9b0aca8
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions src/GToolkit-GemStone-Pharo/GtGemStoneAsyncEvaluationElement.class.st
View file
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ GtGemStoneAsyncEvaluationElement >> buildDetailsContainerElement [
addChild: self buildStartTimeRow;
addChild: self buildEndTimeRow;
addChild: self buildDurationRow;
addChild: self buildGemStoneSessionRow;
"addChild: self buildGemStoneSessionRow;"
addChild:(executionToolbarElement := self buildToolbar
margin: (BlInsets top: 10))
as: #executionToolbar
Expand Down Expand Up @@ -185,7 +185,7 @@ GtGemStoneAsyncEvaluationElement >> createTitleNotifier [

{ #category : #'gt - actions' }
GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [
<gtExecutionAction>
"<gtExecutionAction>"

promiseResolution canStopExecution ifFalse: [ ^ anAction empty ].

Expand All @@ -200,7 +200,7 @@ GtGemStoneAsyncEvaluationElement >> gtActionCancelExecutionFor: anAction [

{ #category : #'gt - actions' }
GtGemStoneAsyncEvaluationElement >> gtActionDebugExecutionFor: anAction [
<gtExecutionAction>
"<gtExecutionAction>"

promiseResolution canStopExecution ifFalse: [ ^ anAction empty ].

Expand Down Expand Up @@ -459,7 +459,7 @@ GtGemStoneAsyncEvaluationElement >> unsubscribeFromPromiseResolution [
{ #category : #updating }
GtGemStoneAsyncEvaluationElement >> updateDetailsForCompletedPromise [

gemStoneSessionLabel text: promiseResolution sessionDescription.
"gemStoneSessionLabel text: promiseResolution sessionDescription."
executionStatusLabel text: promiseResolution state.
startTimeSeparatorLabel text: ''.

Expand All @@ -476,7 +476,7 @@ GtGemStoneAsyncEvaluationElement >> updateDetailsForExecutingPromise [
executionStatusLabel text: promiseResolution state.
startTimeSeparatorLabel text: ' - '.

gemStoneSessionLabel text: promiseResolution sessionDescription.
"gemStoneSessionLabel text: promiseResolution sessionDescription."

startTimeLabel text: promiseResolution startTimestamp asTime print24.
elapsedTimeLabel updatingDateAndTime: promiseResolution startTimestamp.
Expand All @@ -485,7 +485,7 @@ GtGemStoneAsyncEvaluationElement >> updateDetailsForExecutingPromise [
{ #category : #updating }
GtGemStoneAsyncEvaluationElement >> updateDetailsForPendingResolution [
executionStatusLabel text: promiseResolution state.
gemStoneSessionLabel text: promiseResolution sessionDescription.
"gemStoneSessionLabel text: promiseResolution sessionDescription."

promiseResolution startTimestamp ifNotNil: [ :aTimestamp |
startTimeLabel text: aTimestamp asTime print24.
Expand Down

0 comments on commit 9b0aca8

Please sign in to comment.