add GtPagerWrapperElement>>#gtNavigationContextFor: [feenkcom/gtoolkit#3422]

JurajKubelka · JurajKubelka · commit 61740340e8c1 · 2024-10-30T19:05:21.000-03:00
diff --git a/src/GToolkit-Pager/GtPagerWrapperElement.class.st b/src/GToolkit-Pager/GtPagerWrapperElement.class.st
@@ -26,6 +26,19 @@ GtPagerWrapperElement >> embellisher: aStencil [
 	self viewModel embellisher: aStencil
 ]
 
+{ #category : #'gt - extensions' }
+GtPagerWrapperElement >> gtNavigationContextFor: aView [
+	<gtView>
+	^ aView forward
+		title: 'Navigation contexts';
+		priority: 3;
+		object: [ self navigationContext ];
+		view: #gtNavigationContextsFor:;
+		actionButtonIcon: BrGlamorousVectorIcons inspect
+			tooltip: 'Inspect navigation context'
+			action: [ :aButton | aButton phlow spawnObject: self navigationContext ]
+]
+
 { #category : #testing }
 GtPagerWrapperElement >> hasTool [
 	<return: #Boolean>
