define lepiter's GtPhlowToolCommonViewModel [feenkcom/gtoolkit#3422]

feenkcom · Oct 30, 2024 · 4e9b6e7 · 4e9b6e7
1 parent 62d4585
commit 4e9b6e7
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/Lepiter-UI/LePageToolElement.class.st b/src/Lepiter-UI/LePageToolElement.class.st
@@ -43,7 +43,11 @@ LePageToolElement >> initialize [
 		detailed: [ :aStyle | aStyle do: [ self onDetailedVolume ] ]).
 
 	self beFocusable.
-	self when: BlClickEvent do: [ :anEvent | self requestFocus ]
+	self when: BlClickEvent do: [ :anEvent | self requestFocus ].
+	self phlow 
+		accessTool: (GtPhlowToolClassType forClass: LePage) 
+		viewModel: #pageViewModel 
+		object: #pageModel.
 ]
 
 { #category : #initialization }
@@ -119,6 +123,12 @@ LePageToolElement >> onSidebarChangePageWish: aWish [
 	self pageViewModel: aWish pageUIModel
 ]
 
+{ #category : #'api - page model' }
+LePageToolElement >> pageModel [
+	self hasPage ifFalse: [ ^ nil ].
+	^ self pageViewModel pageModel
+]
+
 { #category : #'api - accessing' }
 LePageToolElement >> selectionTransformation: aBlock [
 	self contentElement selectionTransformation: aBlock