Put the inspect aync at the beginning [feenkcom/gtoolkit#3942]

feenkcom · Aug 25, 2024 · 20e27b5 · 20e27b5
1 parent 7da28e7
commit 20e27b5
Showing 1 changed file with 13 additions and 11 deletions.
diff --git a/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetCoderModel.class.st b/src/GToolkit-GemStone-Lepiter/GtGemStoneSnippetCoderModel.class.st
@@ -39,6 +39,18 @@ GtGemStoneSnippetCoderModel >> implicitVariableReferencesTo: aString do: aBlock
 GtGemStoneSnippetCoderModel >> initializeAddOns: addOns [
 	super initializeAddOns: addOns.
 
+	self class enableAsyncPlay ifTrue:
+		[ addOns
+			addMainAction: 'Inspect asynchronous' translated
+			icon: BrGlamorousIcons playAsynchronous
+			action: [ :aCoderUIModel :anElement | 
+				GtCoderCodeExecutor doItAndGo
+					coderViewModel: aCoderUIModel;
+					element: anElement;
+					executionStrategy: GtGemStoneSnippetAsynchronousExecutionStrategy new;
+					execute ]
+			id: GtSourceCoderDoItAndGoAsynchronousActionId ].
+
 	addOns
 		addMainAction: 'Evaluate' translated
 		icon: BrGlamorousVectorIcons play
@@ -66,17 +78,7 @@ GtGemStoneSnippetCoderModel >> initializeAddOns: addOns [
 				element: anElement;
 				execute ]
 		id: GtSourceCoderDoItAndGoSerializedActionId.
-	self class enableAsyncPlay ifTrue:
-		[ addOns
-			addMainAction: 'Inspect asynchronous' translated
-			icon: BrGlamorousVectorIcons playAsynchronous
-			action: [ :aCoderUIModel :anElement | 
-				GtCoderCodeExecutor doItAndGo
-					coderViewModel: aCoderUIModel;
-					element: anElement;
-					executionStrategy: GtGemStoneSnippetAsynchronousExecutionStrategy new;
-					execute ]
-			id: GtSourceCoderDoItAndGoAsynchronousActionId ].
+
 	addOns
 		addMainAction: 'Debug' translated
 		icon: BrGlamorousVectorIcons debug