From 5c487f14d5e63779e0c62f4231e2e0a3c385ab84 Mon Sep 17 00:00:00 2001
From: Veit Heller <veit@veitheller.de>
Date: Wed, 10 Jul 2024 14:41:17 +0200
Subject: [PATCH] Fix explainer example on inspector [feenkcom/gtoolkit#3880]

---
 src/GToolkit-Explainer/GtExplainerExamples.class.st | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/src/GToolkit-Explainer/GtExplainerExamples.class.st b/src/GToolkit-Explainer/GtExplainerExamples.class.st
index efda72c5..8f4cd9d7 100644
--- 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,13 +18,14 @@ 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 ];
@@ -32,7 +33,7 @@ GtExplainerExamples >> inspectorContainerElement [
 				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