From f1979f7d081d0ba95641643a3f9ef8d6839f1b21 Mon Sep 17 00:00:00 2001
From: Benoit Verhaeghe <benoit@badetitou.fr>
Date: Wed, 5 Jun 2024 14:29:56 +0200
Subject: [PATCH] use taskbar icon name

---
 src/NewTools-Inspector/StInspectorPresenter.class.st | 12 ++++++------
 .../StPlaygroundPagePresenter.class.st               | 12 ++++++------
 .../StPlaygroundPresenter.class.st                   |  4 ++--
 3 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/src/NewTools-Inspector/StInspectorPresenter.class.st b/src/NewTools-Inspector/StInspectorPresenter.class.st
index c852ea39d..de1354d67 100644
--- 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
index 21c94fea7..a42c6aba7 100644
--- 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
index 6ddc40f90..59639a22e 100644
--- 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' }