--- a/ResourceSelectionBrowser.st Sat Feb 14 22:25:35 1998 +0100
+++ b/ResourceSelectionBrowser.st Sat Feb 14 22:42:27 1998 +0100
@@ -393,7 +393,7 @@
openOnSuperclass: aSuperclassOrSymbol andClass: aClassOrSymbol andSelector: aSelector withResourceTypes: aResourceTypes
- |cls|
+ |cls sel|
resourceMethod := aSelector.
resourceTypes := aResourceTypes.
resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
@@ -404,10 +404,11 @@
(self selectionOfClass value notNil and:
[(cls := Smalltalk at: self selectionOfClass value name) isClass and:
- [accept value]])
+ [(cls class implements: (sel := self valueOfSelector value) asSymbol) and:
+ [accept value]]])
ifTrue:
[
- ^cls name, ' ', self valueOfSelector value
+ ^cls name, ' ', sel
].
^nil
! !