Fixed slowdown in actions due to computation of slides.

feenkcom · Mar 27, 2024 · c78f4ce · c78f4ce
1 parent 3a1209c
commit c78f4ce
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/src/GToolkit-Demo-Slideshows/PrioritySlideshow.class.st b/src/GToolkit-Demo-Slideshows/PrioritySlideshow.class.st
@@ -317,7 +317,7 @@ PrioritySlideshow >> gtDemoNotesFor: aView [
 { #category : #actions }
 PrioritySlideshow >> gtExportPngAction: anAction [
 	<gtAction>
-	self slides ifEmpty: [ ^ anAction empty ].
+	self slideMethods ifEmpty: [ ^ anAction empty ].
 	^ anAction button
 		label: ' PNG';
 		tooltip: 'Save PNGs to disk';
@@ -348,6 +348,7 @@ PrioritySlideshow >> gtGitAction: anAction [
 { #category : #actions }
 PrioritySlideshow >> gtHTMLLocalExportActionFor: anAction [
 	<gtAction>
+	self slideMethods ifEmpty: [ ^ anAction empty ].
 	^ anAction button
 		label: 'HTML';
 		tooltip: 'Export the slide deck to HTML and store locally';

diff --git a/src/GToolkit-Demo-Slideshows/SmalltalkIntroSlideshow.class.st b/src/GToolkit-Demo-Slideshows/SmalltalkIntroSlideshow.class.st
@@ -1235,7 +1235,7 @@ A dynamic array is specified by curly braces around a series of expressions sepa
 You can embed literal arrays within dynamic arrays, but not the other way around.'>
 	^ aSlide lepiterPage
 		setPriority;
-		startPage: (self db pageNamed: 'Syntax — arrays')
+		startPage: (self db pageNamed: 'Syntax — Arrays')
 ]
 
 { #category : #page }
@@ -1314,7 +1314,7 @@ There are only 6 keywords in Smalltalk, and three of them are the constants `nil
 '>
 	^ aSlide lepiterPage
 		setPriority;
-		startPage: (self db pageNamed: 'Syntax — constants')
+		startPage: (self db pageNamed: 'Syntax — Constants')
 ]
 
 { #category : #page }