Use default future execution configuration

feenkcom · Nov 6, 2024 · a007f71 · a007f71
1 parent 5b1188f
commit a007f71
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 7 deletions.
diff --git a/src/GToolkit-Pharo-Coder-AddOns/ProtoObject.extension.st b/src/GToolkit-Pharo-Coder-AddOns/ProtoObject.extension.st
@@ -10,7 +10,7 @@ ProtoObject >> gtAdviceActionFor: anAction [
 			cached.
 	^ anAction explicit
 		priority: 0;
-		stencil: [ | button dropDownAptitude |
+		stencil: [ | button dropDownAptitude promise |
 			button := GtFixItButton new.
 			button visibility: BlVisibility hidden.
 			button label: 'Advice'.
@@ -35,11 +35,12 @@ ProtoObject >> gtAdviceActionFor: anAction [
 						element ].
 			button aptitude: BrGlamorousButtonWithIconAptitude + dropDownAptitude.
 			button icon: BrGlamorousVectorIcons repair.
-			(actionStream asyncSimilarCopy hasNext
+			promise := (actionStream asyncSimilarCopy hasNext
 				then: [ :bool | 
 					bool
 						ifTrue: [ button
 								enqueueTask: (BlTaskAction new action: [ button visibility: BlVisibility visible ]) ] ])
-				await.
+				await: GtSingleCoderViewModel addOnsExecutionConfiguration.
+			button enqueueTask: (BlPromiseTask new promise: promise).
 			button ]
 ]
diff --git a/src/GToolkit-Pharo-Coder-UI/GtPharoBehaviorCoderNameElement.class.st b/src/GToolkit-Pharo-Coder-UI/GtPharoBehaviorCoderNameElement.class.st
@@ -23,15 +23,17 @@ GtPharoBehaviorCoderNameElement >> addAddOnsElementIn: aContainer [
 GtPharoBehaviorCoderNameElement >> addAdviceDropDownIn: aContainer [ 
 	behaviorCoderViewModel behavior
 		ifNotNil: [ :class | 
-			| adviceStream |
+			| adviceStream future promise |
 			adviceStream := ((GtAdvice adviceForClass: class) asAsyncStream
 					select: [ :each | each hasAdvice ]) cached.
-			(adviceStream asyncSimilarCopy hasNext
+			future := (adviceStream asyncSimilarCopy hasNext
 				then: [ :bool | 
 					bool ifTrue: [ 
 						aContainer enqueueTask: (BlTaskAction new
 							action: [ aContainer addChild: (self 
-								buildAdviceListFor: adviceStream asyncSimilarCopy) ]) ] ]) await ]
+								buildAdviceListFor: adviceStream asyncSimilarCopy) ]) ] ]).
+			promise := future await: GtSingleCoderViewModel addOnsExecutionConfiguration.
+			self enqueueTask: (BlPromiseTask new promise: promise) ]
 ]
 
 { #category : #accessing }

diff --git a/src/GToolkit-Pharo-SearchFilters/GtAsyncSearchMethodGroupStream.class.st b/src/GToolkit-Pharo-SearchFilters/GtAsyncSearchMethodGroupStream.class.st
@@ -31,6 +31,7 @@ GtAsyncSearchMethodGroupStream >> metrics [
 	<return: #TAsyncFuture>
 	| metrics |
 	metrics := GtAsyncSearchMethodGroupMetrics new.
-	(self filteredItemsStream forEach: [ :eachMethod | metrics accumulateMethod: eachMethod ]) await.
+	(self filteredItemsStream forEach: [ :eachMethod | metrics accumulateMethod: eachMethod ]) 
+		await: GtSearchConfiguration defaultFutureExecutionConfiguration.
 	^ metrics
 ]
diff --git a/src/GToolkit-Pharo-SearchFilters/GtSearchConfiguration.class.st b/src/GToolkit-Pharo-SearchFilters/GtSearchConfiguration.class.st
@@ -0,0 +1,12 @@
+Class {
+	#name : #GtSearchConfiguration,
+	#superclass : #Object,
+	#category : #'GToolkit-Pharo-SearchFilters-Support'
+}
+
+{ #category : #'api - configuration' }
+GtSearchConfiguration class >> defaultFutureExecutionConfiguration [
+	^ AsyncFutureExecutionConfiguration new
+		defaultPriority;
+		customGroup: #Filters
+]