--- a/ResourceSelectionBrowser.st Fri Jan 23 14:37:27 1998 +0100
+++ b/ResourceSelectionBrowser.st Fri Jan 23 14:59:24 1998 +0100
@@ -302,14 +302,14 @@
resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
self valueOfSelector value: aSelector.
- self open.
- (self selectionOfClass value notNil and: [
- (cls := Smalltalk at: self selectionOfClass value name) isClass &
- (cls class implements: (sel := self valueOfSelector value)) &
- accept value])
+ self open.
+
+ (self selectionOfClass value notNil and:
+ [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
+ [accept value]])
ifTrue:
[
- ^cls name, ' ', sel
+ ^cls name, ' ', self valueOfSelector value
].
^nil
! !