Fixed slowdown in actions due to computation of slides.

feenkcom · Mar 27, 2024 · 81654fc · 81654fc
1 parent 0be4d62
commit 81654fc
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/src/GToolkit-Presenter/CompiledMethod.extension.st b/src/GToolkit-Presenter/CompiledMethod.extension.st
@@ -6,12 +6,28 @@ CompiledMethod >> asScalableSlide [
 	^ self asSlide asScalableSlide
 ]
 
+{ #category : #'*GToolkit-Presenter' }
+CompiledMethod >> asScalableSlideIn: aSlideshow [
+	self
+		assert: (self hasPragmaNamed: #gtSlide)
+		description: 'This method is only valid for slides.'.
+	^ (self asSlideIn: aSlideshow) asScalableSlide
+]
+
 { #category : #'*GToolkit-Presenter' }
 CompiledMethod >> asScalableSlideWithBorder [
 	self assert: (self hasPragmaNamed: #gtSlide) description: 'This method is only valid for slides.'.
 	^ self asSlide asScalableSlideWithBorder
 ]
 
+{ #category : #'*GToolkit-Presenter' }
+CompiledMethod >> asScalableSlideWithBorderIn: aSlideshow [
+	self
+		assert: (self hasPragmaNamed: #gtSlide)
+		description: 'This method is only valid for slides.'.
+	^ (self asSlideIn: aSlideshow) asScalableSlideWithBorder
+]
+
 { #category : #'*GToolkit-Presenter' }
 CompiledMethod >> asSlide [
 	self assert: (self hasPragmaNamed: #gtSlide) description: 'This method is only valid for slides.'.
@@ -20,6 +36,14 @@ CompiledMethod >> asSlide [
 		arguments: {GtProtoLiveSlide new})
 ]
 
+{ #category : #'*GToolkit-Presenter' }
+CompiledMethod >> asSlideIn: aSlideshow [
+	self
+		assert: (self hasPragmaNamed: #gtSlide)
+		description: 'This method is only valid for slides.'.
+	^ self method valueWithReceiver: aSlideshow arguments: {GtProtoLiveSlide new}
+]
+
 { #category : #'*GToolkit-Presenter' }
 CompiledMethod >> gtSlide [
 	<gtCollector>