# HG changeset patch
# User tz
# Date 885563964 -3600
# Node ID 947f891984649b1cf54a4f51abeb11fa4d79b4a6
# Parent  90b8b353cd2f2e70346de3ddb8db4e29574a01cb
return complete message even if not implemented

diff -r 90b8b353cd2f -r 947f89198464 ResourceSelectionBrowser.st
--- 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
 ! !