Merge pull request #771 from badetitou/use-taskbar-icon-name

Use taskbar icon name for inspector and playground
pharo-spec · Jun 13, 2024 · 48ba042 · 48ba042
2 parents 4ee54dc + f1979f7
commit 48ba042
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 14 deletions.
diff --git a/src/NewTools-Inspector/StInspectorPresenter.class.st b/src/NewTools-Inspector/StInspectorPresenter.class.st
@@ -324,6 +324,12 @@ StInspectorPresenter >> stopProcessing [
 	StInspectorRefreshService uniqueInstance unregister: self
 ]
 
+{ #category : 'initialization' }
+StInspectorPresenter >> taskbarIconName [
+
+	^ #smallInspectIt
+]
+
 { #category : 'private - updating' }
 StInspectorPresenter >> updateList [
 
@@ -340,12 +346,6 @@ StInspectorPresenter >> updateTitle [
 		window title: self title ].
 ]
 
-{ #category : 'initialization' }
-StInspectorPresenter >> windowIcon [
-
-	^ self application iconNamed: #smallInspectIt
-]
-
 { #category : 'initialization' }
 StInspectorPresenter >> windowTitle [
 

diff --git a/src/NewTools-Playground/StPlaygroundPagePresenter.class.st b/src/NewTools-Playground/StPlaygroundPagePresenter.class.st
@@ -379,6 +379,12 @@ StPlaygroundPagePresenter >> showLineNumbers: aBoolean [
 	toggleLineNumberButton label: (StShowLineNumbersCommand iconLabelFor: self showLineNumbers)
 ]
 
+{ #category : 'initialization' }
+StPlaygroundPagePresenter >> taskbarIconName [
+
+	^ #workspace
+]
+
 { #category : 'private' }
 StPlaygroundPagePresenter >> text [
 
@@ -430,9 +436,3 @@ StPlaygroundPagePresenter >> whenActivatedDo: aBlock [
 
 	activationBlock := aBlock
 ]
-
-{ #category : 'initialization' }
-StPlaygroundPagePresenter >> windowIcon [
-
-	^ self application iconNamed: #workspace
-]
diff --git a/src/NewTools-Playground/StPlaygroundPresenter.class.st b/src/NewTools-Playground/StPlaygroundPresenter.class.st
@@ -213,9 +213,9 @@ StPlaygroundPresenter >> stopProcessing [
 ]
 
 { #category : 'initialization' }
-StPlaygroundPresenter >> windowIcon [
+StPlaygroundPresenter >> taskbarIconName [
 
-	^ self application iconNamed: #workspace
+	^ #workspace
 ]
 
 { #category : 'initialization' }