Merge branch 'pharo-spec:Pharo13' into p13-settings-browser-support

pharo-spec · Nov 21, 2024 · 021023e · 021023e
2 parents 9f4f02a + 29c27a3
commit 021023e
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 8 deletions.
diff --git a/src/NewTools-Core/StPharoApplication.class.st b/src/NewTools-Core/StPharoApplication.class.st
@@ -77,7 +77,7 @@ StPharoApplication >> newIconProvider [
 { #category : 'registration' }
 StPharoApplication >> register: aTool as: aNameSelector [
 
-	Smalltalk tools register: aTool as: aNameSelector
+	self tools register: aTool as: aNameSelector
 ]
 
 { #category : 'private - running' }
@@ -136,5 +136,5 @@ StPharoApplication >> tools [
 { #category : 'registration' }
 StPharoApplication >> unregisterToolWithRole: aName [
 
-	Smalltalk tools unregisterToolWithRole: aName
+	self tools unregisterToolWithRole: aName
 ]
diff --git a/src/NewTools-FileBrowser/StFileSystemPresenter.class.st b/src/NewTools-FileBrowser/StFileSystemPresenter.class.st
@@ -43,7 +43,7 @@ StFileSystemPresenter class >> buildCommandsGroupWith: presenter forRoot: rootCo
 StFileSystemPresenter class >> initialize [
 	"Register myself as the file list tool once I'm loaded."
 
-	Smalltalk tools fileListTool: self
+	self currentApplication tools fileListTool: self
 ]
 
 { #category : 'defaults' }

diff --git a/src/NewTools-Inspector/StInspectorPresenter.class.st b/src/NewTools-Inspector/StInspectorPresenter.class.st
@@ -138,7 +138,7 @@ StInspectorPresenter class >> preferredExtent: aPoint [
 StInspectorPresenter class >> register [
 	<script>
 
-	self registerToolsOn: Smalltalk tools
+	self registerToolsOn: self currentApplication tools
 ]
 
 { #category : 'tools registry' }

diff --git a/src/NewTools-MethodBrowsers/StMessageBrowser.class.st b/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
@@ -32,7 +32,7 @@ Class {
 StMessageBrowser class >> beDefaultBrowser [
 	<script>
 
-	self registerToolsOn: Smalltalk tools
+	self registerToolsOn: self currentApplication tools
 ]
 
 { #category : 'instance creation' }

diff --git a/src/NewTools-Playground/StPlaygroundPresenter.class.st b/src/NewTools-Playground/StPlaygroundPresenter.class.st
@@ -97,7 +97,7 @@ StPlaygroundPresenter class >> menuCommandOn: aBuilder [
 	<worldMenu>
 	(aBuilder item: #Playground)
 		parent: #InputOutput;
-		action: [ Smalltalk tools workspace open ];
+		action: [ self currentApplication tools 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.';
@@ -125,7 +125,7 @@ StPlaygroundPresenter class >> register [
 	"Add ourselves to registry. See [Smalltalk tools]" 
 	<script>
 
-	self registerToolsOn: Smalltalk tools
+	self registerToolsOn: self currentApplication tools
 ]
 
 { #category : 'tools registry' }

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