--- 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.
         ]
     ].
 !