add selectPath idiom to new settings browser

src/NewTools-Debugger-Commands/StDebuggerSettingsCommand.class.st

@@ -37,8 +37,7 @@ StDebuggerSettingsCommand >> canBeExecuted [
 { #category : 'executing' }
 StDebuggerSettingsCommand >> execute [
 
-	SettingBrowser new
-		rootNodes:
-			(SettingBrowser currentTree nodeNamed: #debugging) allChildren;
+	(StSettingsBrowser newApplication: self context application)
+		selectPath: #(tools debugging);
 		open
 ]

src/NewTools-Epicea/EpDashboardPresenter.class.st

@@ -150,12 +150,11 @@ EpDashboardPresenter >> monitor: anEpMonitor [
 { #category : 'actions' }
 EpDashboardPresenter >> openSettingsBrowser [
 	"Inspired on Glamour's code"
-
 	| settingsBrowser settingsWindow |
-	settingsBrowser := SettingBrowser new
-		                   changePackageSet:
-			                   {self packageOrganizer packageNamed: 'NewTools-Epicea'};
-		                   yourself.
+
+	settingsBrowser := (StSettingsBrowser newApplication: self application)
+		selectPath: #(tools epicea);
+		yourself.
 	settingsWindow := settingsBrowser open.
 	settingsBrowser expandAll
 ]

src/NewTools-FileBrowser/StFileNavigationSystemPresenter.class.st

@@ -121,9 +121,9 @@ StFileNavigationSystemPresenter >> columns: aCollectionOfColumns [
 StFileNavigationSystemPresenter >> configButtonAction [
 
 	configButton action: [
-		SettingBrowser new
-			rootNodes: (SettingBrowser currentTree nodeNamed: #fileBrowser) allChildren;
-			open ].
+		(StSettingsBrowser newApplication: self application)
+			selectPath: #(tools fileBrowser);
+			open ]
 ]
 
 { #category : 'initialization' }

src/NewTools-Pulse/StPulse.class.st

@@ -833,9 +833,8 @@ StPulse >> mutex [
 { #category : 'private - actions' }
 StPulse >> openSettingsBrowser [
 
-	SettingBrowser new
-		rootNodes:
-		(SettingBrowser currentTree nodeNamed: #pulse) allChildren;
+	(StSettingsBrowser newApplication: self application)
+		selectPath: #(tools pulse);
 		open
 ]
 

src/NewTools-SettingsBrowser/StSettingsBrowser.class.st

@@ -106,6 +106,22 @@ StSettingsBrowser >> exporter [
 	^ exporter
 ]
 
+{ #category : 'private' }
+StSettingsBrowser >> findPathOf: pathCollection on: itemCollection [
+	| first node |
+
+	pathCollection ifEmpty: [ ^ #() ].
+
+	first := pathCollection first.
+
+	node := itemCollection detect: [ :each | each name = first ] ifNone: [ nil ].
+	node ifNil: [ ^ #() ].
+
+	^ { node }, (self 
+		findPathOf: pathCollection allButFirst
+		on: node allChildren)
+]
+
 { #category : 'searching' }
 StSettingsBrowser >> followPath: aStSettingNode in: aCollection [
 
@@ -241,6 +257,21 @@ StSettingsBrowser >> selectDialog: fileReferneces [
 		  openModal
 ]
 
+{ #category : 'accessing' }
+StSettingsBrowser >> selectPath: aCollection [
+	"selects a path of the settings tree (by name).
+	 e.g. aSettingsBrowser selectPath: #(tools epicea)"
+
+	| pathItems |
+
+	pathItems := self findPathOf: aCollection on: categoriesPresenter roots.
+	pathItems isEmptyOrNil ifTrue: [ ^ self ].
+
+	categoriesPresenter
+		selectPathByItems: pathItems 
+		scrollToSelection: true
+]
+
 { #category : 'private' }
 StSettingsBrowser >> sortNodes: aCollection [ 
 

src/NewTools-WelcomeBrowser/StWelcomeSetupPresenter.class.st

@@ -118,7 +118,7 @@ StWelcomeSetupPresenter >> newThemePresenter: aTheme [
 { #category : 'actions' }
 StWelcomeSetupPresenter >> openSettingsBrowser [
 
-	SettingBrowser open
+	(StSettingsBrowser newApplication: self application) open
 ]
 
 { #category : 'private' }