--- a/MenuEditor.st	Fri Mar 24 18:28:20 2000 +0100
+++ b/MenuEditor.st	Thu Apr 13 12:54:09 2000 +0200
@@ -12,6 +12,8 @@
 
 
 
+"{ Package: 'stx:libtool2' }"
+
 ResourceSpecEditor subclass:#MenuEditor
 	instanceVariableNames:'treeView typeOfCanvas listOfCanvas listOfSlices
 		lastImageRetriever slices'
@@ -1938,7 +1940,7 @@
      imageMethodSelectors := OrderedCollection new.
 
      iconClass withAllSuperclasses do:[:cls |
-        cls class methodDictionary keysAndValuesDo: [:sel :m | 
+        cls class selectorsAndMethodsDo:[:sel :m | 
             ((r := m resourceType) == #image
             or:[r == #programImage]) ifTrue:[
                 imageMethodSelectors add:sel