--- a/MenuEditor.st Sat Dec 08 02:49:02 2001 +0100
+++ b/MenuEditor.st Sat Dec 08 13:09:33 2001 +0100
@@ -80,10 +80,16 @@
!MenuEditor class methodsFor:'initialization'!
initialize
- ImageRetrieverClasses := #( Icon
+ ImageRetrieverClasses := #(
+ Icon
NewLauncher
SystemBrowser
- ) asList.
+ ToolbarIconLibrary
+ )
+
+ "
+ self initialize
+ "
! !
!MenuEditor class methodsFor:'instance creation'!
@@ -118,21 +124,23 @@
!MenuEditor class methodsFor:'accessing image retriever'!
addNewImageRetriever:aSymbolOrClass
+ "add a class to the imageRetriever list"
+
|key|
- aSymbolOrClass isString ifFalse:[
- aSymbolOrClass isBehavior ifTrue:[
- key := aSymbolOrClass nameWithNameSpacePrefix
- ]
- ] ifTrue:[
+ aSymbolOrClass isBehavior ifTrue:[
+ key := aSymbolOrClass nameWithNameSpacePrefix
+ ] ifFalse:[
key := aSymbolOrClass
].
key size ~~ 0 ifTrue:[
key := key asSymbol.
- (ImageRetrieverClasses identityIndexOf:key) == 0 ifTrue:[
+ (ImageRetrieverClasses includes:key) ifFalse:[
+ ImageRetrieverClasses := ImageRetrieverClasses asOrderedCollection.
ImageRetrieverClasses add:key.
+ ImageRetrieverClasses sort.
]
].
!