Fix explainer example on inspector [feenkcom/gtoolkit#3880]

feenkcom · Jul 10, 2024 · 5c487f1 · 5c487f1
1 parent 0dc1770
commit 5c487f1
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/GToolkit-Explainer/GtExplainerExamples.class.st b/src/GToolkit-Explainer/GtExplainerExamples.class.st
@@ -7,7 +7,7 @@ Class {
 { #category : #accessing }
 GtExplainerExamples >> inspectorContainerElement [
 	<gtExample>
-	| inspectorContainer subject inspectorHeader inspectorView inspectorActionButton |
+	| inspectorContainer subject inspectorWithoutHeader inspectorView inspectorActionButton inspectorLabel |
 
 	inspectorContainer := BlElement new
 		constraintsDo: [ :c | 
@@ -18,21 +18,22 @@ GtExplainerExamples >> inspectorContainerElement [
 	subject := (GtABCartoonAddressBookExample new cartoonAddressBook gtViewsFor: GtPhlowView empty) asElementDo: [ :e | e ].
 	BlScripter new element: subject; elementWithoutParent.
 
-	inspectorHeader := subject phlow firstChildWithView.
-	inspectorView := inspectorHeader phlow firstChildWithView.
+	inspectorLabel := subject children first childNamed: #tabbar.
+	inspectorWithoutHeader := subject phlow firstChildWithView.
+	inspectorView := inspectorWithoutHeader phlow firstChildWithView.
 	inspectorActionButton := subject phlow firstChildWithAction.
 
 	inspectorContainer addChild: subject.
 
-	inspectorHeader
+	inspectorLabel
 		addChild:
 			(BrButton new
 				constraintsDo: [ :c | c ignoreByLayout ];
 				size: 5 @ 5;
 				elevation: (BlRelativeElevation elevation: 10);
 				geometry: BlCircleGeometry new;
 				aptitude: (GtExplainerTargetAptitude new explanationModel: #header);
-				relocate: (5 @ inspectorHeader extent y / 2)). 
+				relocate: (5 @ inspectorLabel extent y / 2)). 
 	inspectorView
 		addChild:
 			(BrButton new