Extracted reference to Smalltalk ui icons into #defaultIconProvider method.

Author: juliendelplanque

src/Commander2-UI/CmUICommand.class.st

@@ -41,6 +41,11 @@ CmUICommand >> beHiddenWhenCantBeRun [
 	self displayStrategy: CmUIHideWhenCantBeRun new
 ]
 
+{ #category : #accessing }
+CmUICommand >> defaultIconProvider [
+	^ Smalltalk ui icons
+]
+
 { #category : #accessing }
 CmUICommand >> displayStrategy [
 	^ displayStrategy
@@ -93,7 +98,7 @@ CmUICommand >> iconNamed: aSymbol [
 
 { #category : #accessing }
 CmUICommand >> iconProvider [
-	^ iconProvider ifNil: [ iconProvider := Smalltalk ui icons ]
+	^ iconProvider ifNil: [ iconProvider := self defaultIconProvider ]
 ]
 
 { #category : #accessing }