# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 885892825 -3600
# Node ID e2e1ea0132291e8c58531f4155d04cfa0f2d588a
# Parent  fde17b1640d62f06e1374a28faae80b95f1b4bc0
Take care of nil selectors in #openOnSuperClass:andClass:andSelector:

diff -r fde17b1640d6 -r e2e1ea013229 ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Tue Jan 27 10:15:31 1998 +0100
+++ b/ResourceSelectionBrowser.st	Tue Jan 27 10:20:25 1998 +0100
@@ -352,18 +352,19 @@
     resourceTypes := aResourceTypes.
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
     resourceClass := aClassOrSymbol isClass ifTrue: [aClassOrSymbol name] ifFalse: [aClassOrSymbol].
-    self valueOfSelector value: aSelector.
+    self valueOfSelector value:(aSelector ? '').
 
     self open.
 
-    (self selectionOfClass value notNil and: 
-    [(cls := Smalltalk at: self selectionOfClass value name) isClass and:
-    [accept value]])
-    ifTrue:
-    [
+    (self selectionOfClass value notNil 
+     and:[(cls := Smalltalk at: self selectionOfClass value name) isClass 
+          and:[accept value]]
+    ) ifTrue:[
         ^cls name, ' ', self valueOfSelector value
     ].
     ^nil
+
+    "Modified: / 26.1.1998 / 22:26:50 / stefan"
 ! !
 
 !ResourceSelectionBrowser methodsFor:'startup / release'!