class selection after opening
authortz
Thu, 12 Mar 1998 15:01:32 +0100
changeset 727 bbe063ccf4a3
parent 726 2a09f1934fa5
child 728 638ae95885e1
class selection after opening
ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Wed Mar 11 23:16:09 1998 +0100
+++ b/ResourceSelectionBrowser.st	Thu Mar 12 15:01:32 1998 +0100
@@ -523,8 +523,8 @@
     resourceSuperclass := aSuperclassOrSymbol isClass ifTrue: [aSuperclassOrSymbol name] ifFalse: [aSuperclassOrSymbol].
     resourceClass := aClassOrSymbol isClass 
         ifTrue: [aClassOrSymbol name] 
-        ifFalse: [(Smalltalk at: aClassOrSymbol)
-            ifTrue:  [aClassOrSymbol]
+        ifFalse: [(Smalltalk at: aClassOrSymbol) notNil
+            ifTrue: [aClassOrSymbol]
             ifFalse: [nil]].      
     self valueOfSelector value:(aSelector ? '').