author | Claus Gittinger <cg@exept.de> |
Mon, 23 Sep 2002 11:37:48 +0200 | |
changeset 1605 | 8aab97d1f5fe |
parent 1604 | 69dc29cf0fc5 |
child 1606 | 54f978ea4b66 |
--- a/ResourceSelectionBrowser.st Mon Sep 16 12:15:16 2002 +0200 +++ b/ResourceSelectionBrowser.st Mon Sep 23 11:37:48 2002 +0200 @@ -840,7 +840,7 @@ aClassOrSymbol isClass ifTrue: [resourceClass := aClassOrSymbol name] ifFalse: [ - aClassOrSymbol notNil ifTrue:[ + aClassOrSymbol size > 0 ifTrue:[ (Smalltalk at: aClassOrSymbol) notNil ifTrue: [resourceClass := aClassOrSymbol] ]