add GtLiveSlide>>#futureConfiguration

feenkcom · Nov 6, 2024 · 78e155e · 78e155e
1 parent 472db02
commit 78e155e
Showing 1 changed file with 24 additions and 5 deletions.
diff --git a/src/GToolkit-Presenter/GtLiveSlide.class.st b/src/GToolkit-Presenter/GtLiveSlide.class.st
@@ -13,7 +13,8 @@ Class {
 		'cachedElement',
 		'slideIndex',
 		'slideShow',
-		'isSlideSelected'
+		'isSlideSelected',
+		'futureConfiguration'
 	],
 	#category : #'GToolkit-Presenter'
 }
@@ -83,6 +84,23 @@ GtLiveSlide >> cachedElement: anObject [
 	cachedElement := anObject
 ]
 
+{ #category : #initialization }
+GtLiveSlide >> defaultFutureConfiguration [
+	^ AsyncFutureExecutionConfiguration new customGroup: #Slide
+]
+
+{ #category : #accessing }
+GtLiveSlide >> futureConfiguration [
+	<return: #AsyncFutureExecutionConfiguration>
+	^ futureConfiguration ifNil: [ 
+		futureConfiguration := self defaultFutureConfiguration ]
+]
+
+{ #category : #accessing }
+GtLiveSlide >> futureConfiguration: aAsyncFutureExecutionConfiguration [
+	futureConfiguration := aAsyncFutureExecutionConfiguration
+]
+
 { #category : #accessing }
 GtLiveSlide >> generateElements [
 	"Generate the receiver's element and preview"
@@ -240,24 +258,25 @@ GtLiveSlide >> queueAsyncUpdate: aSpace [
 
 	"Submit a task to cache the receiver's elements"
 
-	| aCommand |
+	| aSliceCommand |
 	cachedElement needsUpdate ifFalse: [ ^ self ].
 
-	aCommand := GtSlideCommand new slide: self.
+	aSliceCommand := GtSlideCommand new slide: self.
 
 	BlUseAsyncFeatures
 		ifEnabledDo: [ 
 			BlFrameTelemetry
 				time: [ 
 					'Schedule slide {1} update command in UI pool' format:
 						{ self class name } ]
-				during: [ [ aCommand execute ] asAsyncFuture await ] ]
+				during: [ [ aSliceCommand execute ] asAsyncFuture 
+					await: self futureConfiguration ] ]
 		otherwise: [ 
 			BlFrameTelemetry
 				time: [ 
 					'Execute slide {1} update command directly' format:
 						{ self class name } ]
-				during: [ aCommand execute ] ]
+				during: [ aSliceCommand execute ] ]
 ]
 
 { #category : #accessing }