--- a/MenuEditor.st Mon Aug 24 21:49:52 1998 +0200
+++ b/MenuEditor.st Mon Aug 24 21:54:38 1998 +0200
@@ -1758,6 +1758,38 @@
)
! !
+!MenuEditor class methodsFor:'queries'!
+
+getAllImageSelectorsFrom: aClass
+ "returns all image selectors implementing an image spec in class aClass"
+
+ |iconClass imageMethodSelectors r|
+
+ aClass isNil ifTrue:[
+ ^ #()
+ ].
+
+ aClass isSymbol
+ ifTrue: [iconClass := Smalltalk at: aClass]
+ ifFalse: [iconClass := aClass].
+
+ imageMethodSelectors := OrderedCollection new.
+
+ iconClass withAllSuperclasses do:[:cls |
+ cls class methodDictionary keysAndValuesDo: [:sel :m |
+ (r := m resourceType == #image
+ or:[r == #programImage]) ifTrue:[
+ imageMethodSelectors add:sel
+ ]
+ ]
+ ].
+
+ ^ imageMethodSelectors asSortedCollection asOrderedCollection
+
+ "Modified: / 24.8.1998 / 21:42:34 / cg"
+ "Created: / 24.8.1998 / 21:53:20 / cg"
+! !
+
!MenuEditor class methodsFor:'slices'!
slicesItem