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)" - ^ self patternMap + ^ self oldPatternMap explicitPositions: {184.9584903717041 @ 245.31882731119794. 372.0 @ 243.91666666666669. 399.2699890136719 @ 297.9166666666667.