Cleaning more tools

pharo-spec · Feb 8, 2025 · d536568 · d536568
1 parent e9ad12f
commit d536568
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/src/NewTools-Finder/StFinderResult.class.st b/src/NewTools-Finder/StFinderResult.class.st
@@ -54,7 +54,7 @@ StFinderResult >> browser [
 	"We should check how to do it via the stApplication but ok for now"
 
 
-	^ application tools browser
+	^ application toolNamed: #browser
 ]
 
 { #category : 'accessing' }
@@ -248,7 +248,7 @@ StFinderResult >> sendersAction [
 StFinderResult >> versionBrowser [
 	"We should check how to do it via the stApplication but ok for now"
 
-	^ application tools versionBrowser
+	^ application toolNamed: #versionBrowser
 ]
 
 { #category : 'action' }

diff --git a/src/NewTools-MethodBrowsers/SystemNavigation.extension.st b/src/NewTools-MethodBrowsers/SystemNavigation.extension.st
@@ -11,5 +11,5 @@ SystemNavigation >> browseAllUsersOfClassOrTrait: class [
 { #category : '*NewTools-MethodBrowsers' }
 SystemNavigation >> browseVersionsOf: aMethod [
 
-	self tools versionBrowser browseVersionsForMethod: aMethod
+	(self tools toolNamed: #versionBrowser) browseVersionsForMethod: aMethod
 ]
diff --git a/src/NewTools-Playground/StPlaygroundPresenter.class.st b/src/NewTools-Playground/StPlaygroundPresenter.class.st
@@ -84,7 +84,7 @@ StPlaygroundPresenter class >> menuCommandOn: aBuilder [
 	<worldMenu>
 	(aBuilder item: #Playground)
 		parent: #InputOutput;
-		action: [ self currentApplication tools workspace open ];
+		action: [ (self currentApplication toolNamed: #workspace) open ];
 		order: 1;
 		keyText: 'o, p';
 		help: 'A window used as a scratchpad area where fragments of Pharo code can be entered, stored, edited, and evaluated.';

diff --git a/src/NewTools-Spotter/StSpotter.class.st b/src/NewTools-Spotter/StSpotter.class.st
@@ -149,7 +149,7 @@ StSpotter class >> isShowingTips [
 StSpotter class >> menuCommandOn: aBuilder [
 	<worldMenu>
 	(aBuilder item: #Spotter)
-		action: [ self currentApplication tools spotter open ];
+		action: [ (self currentApplication toolNamed: #spotter) open ];
 		keyText: 'Shift + Enter';
 		order: 1;
 		parent: #Searching;