--- 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