Merge pull request #988 from Ducasse/CleanToolAPI

Cleaning more tools
pharo-spec · Feb 9, 2025 · 5452564 · 5452564
2 parents 4735438 + f1173c1
commit 5452564
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 8 deletions.
diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
@@ -640,7 +640,7 @@ StDebugger >> doBrowseMethodVersions [
 	| target |
 	target := self stackSelectionMethodContext.
 	target isBlock ifTrue: [ target := target method ].
-	self application versionBrowser
+	(self application toolNamed: #versionBrowser)
 		browseVersionsForClass: target methodClass
 		selector: target selector
 ]

diff --git a/src/NewTools-FileBrowser/StFileBrowserChangeListCommand.class.st b/src/NewTools-FileBrowser/StFileBrowserChangeListCommand.class.st
@@ -30,7 +30,8 @@ StFileBrowserChangeListCommand >> execute [
 	"Execute the actions that should be done by the command.
 	 This method expect that the context has been put in #context inst. var. if any context is relevant."
 
-	self application tools changeList openOnStream: self selectedEntry asFileReference readStream
+	(self application toolNamed: #changeList) 
+			openOnStream: self selectedEntry asFileReference readStream
 ]
 
 { #category : 'initialization' }

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-Extensions/Package.extension.st b/src/NewTools-Spotter-Extensions/Package.extension.st
@@ -57,5 +57,5 @@ Package >> spotterTagsFor: aStep [
 { #category : '*NewTools-Spotter-Extensions' }
 Package >> stActDefault [
 
-	^ Smalltalk tools browser openOnPackage: self
+	^ (Smalltalk tools toolNamed: #browser) openOnPackage: self
 ]
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;