From bd3c3d543e4aaa74af14b533051a195e8fae192a Mon Sep 17 00:00:00 2001
From: Oscar Nierstrasz <oscar@inf.unibe.ch>
Date: Wed, 30 Oct 2024 10:39:56 +0100
Subject: [PATCH] [feenkcom/gtoolkit#4136] cleaning code

---
 src/GToolkit-Mondrian/LePageMondrianMap.class.st         | 8 +-------
 src/GToolkit-Mondrian/LePageMondrianMapExamples.class.st | 2 +-
 2 files changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/GToolkit-Mondrian/LePageMondrianMap.class.st b/src/GToolkit-Mondrian/LePageMondrianMap.class.st
index eedee0b89..57da3a11a 100644
--- a/src/GToolkit-Mondrian/LePageMondrianMap.class.st
+++ b/src/GToolkit-Mondrian/LePageMondrianMap.class.st
@@ -87,13 +87,7 @@ LePageMondrianMap >> pageMap [
 	| m |
 	m := GtMondrian new.
 	m nodes
-		stencil: [ :title |
-		(LePageTitleLabelBuilder forTitle: title andDatabase: self database) build
-		
-			"(page isKindOf: LePage)
-				ifTrue: [ page asClickableLabel asStencil ]
-				ifFalse: [ (self labelFor: page) asStencil ] "
-				];
+		stencil: [ :title | (LePageTitleLabelBuilder forTitle: title andDatabase: self database) build ];
 		with: self pageTitles.
 	m edges
 		fromNearestBounds;
diff --git a/src/GToolkit-Mondrian/LePageMondrianMapExamples.class.st b/src/GToolkit-Mondrian/LePageMondrianMapExamples.class.st
index 0c71d24fe..1d06af53a 100644
--- a/src/GToolkit-Mondrian/LePageMondrianMapExamples.class.st
+++ b/src/GToolkit-Mondrian/LePageMondrianMapExamples.class.st
@@ -41,7 +41,7 @@ LePageMondrianMapExamples >> oldPatternMapwithExplicitPositions [
 		(self root children collect: #position)"
 
 	<gtExample>
-	^ self patternMap
+	^ self oldPatternMap
 		explicitPositions: {184.9584903717041 @ 245.31882731119794.
 				372.0 @ 243.91666666666669.
 				399.2699890136719 @ 297.9166666666667.