Use #onPagerToolInPaneWithIndex: for selecting a tool element [feenkcom/gtoolkit#5059]

chisandrei · chisandrei · commit fa5321515ffe · 2026-06-24T18:54:06.000+02:00
diff --git a/src/GToolkit-CommonPager/TBlDevScripterTarget.extension.st b/src/GToolkit-CommonPager/TBlDevScripterTarget.extension.st
@@ -31,3 +31,10 @@ TBlDevScripterTarget >> onPagerToolElement [
 					aPaneElement realToolElementDo: [ :aTool | aResult := aTool ].
 					aResult ] ]
 ]
+
+{ #category : #'*GToolkit-CommonPager' }
+TBlDevScripterTarget >> onPagerToolInPaneWithIndex: anInteger [ 
+
+	self onPagerPaneWithIndex: anInteger.
+	self onPagerToolElement.
+]
