Made live view of slides scalable so you can see the whole thing

feenkcom · Jul 19, 2024 · 900b95c · 900b95c
1 parent 5c487f1
commit 900b95c
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/GToolkit-Presenter/GtLiveSlide.class.st b/src/GToolkit-Presenter/GtLiveSlide.class.st
@@ -117,6 +117,17 @@ GtLiveSlide >> generateElements [
 			addChild: formElement ]).
 ]
 
+{ #category : #view }
+GtLiveSlide >> gtSlideFor: aView [
+	<gtView>
+	^ aView forward
+		title: 'Slide';
+		priority: 6;
+		object: [ self asScalableSlide asElement ];
+		view: #gtLiveFor:;
+		actionUpdateButton
+]
+
 { #category : #initialization }
 GtLiveSlide >> initialize [
 	super initialize.