Set BrFromFuture's future execution configuration

feenkcom · Nov 6, 2024 · a97e70f · a97e70f
1 parent 11dddda
commit a97e70f
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 3 deletions.
diff --git a/src/Brick/BrFromFuture.class.st b/src/Brick/BrFromFuture.class.st
@@ -84,7 +84,7 @@ BrFromFuture >> onAddedToSceneGraph [
 
 	self privateUpdateElement.
 
-	futureExecution := future await.
+	futureExecution := future await: self configuration.
 	promise := futureExecution
 		then: [ :aResult | self privateDataSnapshot: (BrFromFutureDataSnapshot new setData: aResult) ]
 		otherwise: [ :anError |

diff --git a/src/Brick/BrFutureHandler.class.st b/src/Brick/BrFutureHandler.class.st
@@ -4,7 +4,8 @@ Class {
 	#instVars : [
 		'future',
 		'action',
-		'monitor'
+		'monitor',
+		'configuration'
 	],
 	#category : #'Brick-Future - Support'
 }
@@ -14,6 +15,24 @@ BrFutureHandler >> action: aBlockOrMessageSend [
 	action := aBlockOrMessageSend
 ]
 
+{ #category : #accessing }
+BrFutureHandler >> configuration [
+	<return: #AsyncFutureExecutionConfiguration>
+	^ configuration ifNil: [ configuration := self defaultConfiguration ]
+]
+
+{ #category : #accessing }
+BrFutureHandler >> configuration: aAsyncFutureExecutionConfiguration [
+	configuration := aAsyncFutureExecutionConfiguration
+]
+
+{ #category : #initialization }
+BrFutureHandler >> defaultConfiguration [
+	^ AsyncFutureExecutionConfiguration new
+		customGroup: #UI;
+		highPriority
+]
+
 { #category : #initialization }
 BrFutureHandler >> initialize [
 	super initialize.
@@ -37,7 +56,7 @@ BrFutureHandler >> updateWithFuture: aFuture [
 				future := nil.
 				action cull: theCurrentResult cull: true ]
 			ifFalse: [
-				future await
+				(future await: self configuration)
 					then: [ :aResult |
 						monitor critical: [
 							future == aFuture