Made #decorateToolbarItem: and #setUpIconForMenuItem: on CmdCommand u…

…se the FormSet for the icon.
pharo-project · Feb 18, 2024 · 02f48dc · 02f48dc
1 parent 57ac5ef
commit 02f48dc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Calypso-Browser/CmdCommand.extension.st b/src/Calypso-Browser/CmdCommand.extension.st
@@ -84,8 +84,8 @@ CmdCommand >> decorateToolbarItem: aBrowserToolbarItem [
 	self description ifNotNil: [ :d |
 		aBrowserToolbarItem setBalloonText: d ].
 
-	self defaultMenuIcon ifNotNil: [:icon |
-		aBrowserToolbarItem addIcon: icon asMorph]
+	self defaultMenuIconFormSet ifNotNil: [:iconFormSet |
+		aBrowserToolbarItem addIcon: iconFormSet asMorph]
 ]
 
 { #category : '*Calypso-Browser' }

diff --git a/src/Commander-Activators-ContextMenu/CmdCommand.extension.st b/src/Commander-Activators-ContextMenu/CmdCommand.extension.st
@@ -41,8 +41,8 @@ CmdCommand >> registerContextMenuItemsFor: aCommandItem withBuilder: aBuilder [
 { #category : '*Commander-Activators-ContextMenu' }
 CmdCommand >> setUpIconForMenuItem: aMenuItemMorph [
 
-	self defaultMenuIcon ifNotNil: [:icon |
-		aMenuItemMorph icon: icon ]
+	self defaultMenuIconFormSet ifNotNil: [:iconFormSet |
+		aMenuItemMorph iconFormSet: iconFormSet ]
 ]
 
 { #category : '*Commander-Activators-ContextMenu' }