diff -r 1753f2293bce -r 421b2a1f4b31 MenuEditor.st --- 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