--- a/ToolApplicationModel.st	Mon Aug 24 21:51:18 1998 +0200
+++ b/ToolApplicationModel.st	Mon Aug 24 21:53:48 1998 +0200
@@ -738,35 +738,6 @@
 
 !ToolApplicationModel 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"
-!
-
 isVisualStartable
     "returns whether this application class can be started via #open"
 
@@ -1274,5 +1245,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.75 1998-08-24 19:51:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.76 1998-08-24 19:53:48 cg Exp $'
 ! !