make the start notification show the tour page feenkcom/gtoolkit#3766

feenkcom · May 18, 2024 · e7f6cc7 · e7f6cc7
1 parent d8536f0
commit e7f6cc7
Showing 1 changed file with 14 additions and 4 deletions.
diff --git a/src/GToolkit-World/GtHomeNotifications.class.st b/src/GToolkit-World/GtHomeNotifications.class.st
@@ -46,13 +46,23 @@ GtHomeNotifications >> statusRegistry [
 
 { #category : #'instance creation' }
 GtHomeNotifications >> takeATourNotification [
+	| database |
 	^ GtNotification new
 		id: 'notification/take-a-tour';
-		openAction: [ :cardElement |
-			self
+		openAction: [ :cardElement | 
+			| aPage |
+			database := LeDatabasesRegistry uniqueInstance defaultLogicalDatabase
+					databases detect: [ :each | each databaseName = 'Glamorous Toolkit Book' ].
+			aPage := database pages
+					detect: [ :each | each title = 'A tour of the environment' ].
+			GtWorldUtility
+				showSpaceWithTitle: aPage title
+				inPagerWith: [ aPage asLepiterPagePhlowTool asElementDo: [ :e | e ] ]
+						asStencil
+				from: cardElement	"self
 				showSpaceWithTitle: 'Tour'
 				with: (GtLiveShow createWithArrowsVisible: GtTour new)
-				from: cardElement ];
+				from: cardElement" ];
 		refreshAction: [ self updateWidget ];
 		cardStencil: self takeATourStencil
 ]
@@ -62,7 +72,7 @@ GtHomeNotifications >> takeATourStencil [
 	^ GtNotificationCardStencil new
 		headerText: 'New to Glamorous Toolkit?';
 		actionText: 'Take a tour';
-		tooltipText: 'Take an interactive tour through tools and engines'
+		tooltipText: 'Take an interactive tour through the environment'
 ]
 
 { #category : #updating }