changeset 331 | aa1663b8c2ab |
parent 320 | 5915a3370a59 |
child 343 | 8358ce37f8be |
--- a/ResourceRetriever.st Wed Oct 15 12:41:27 1997 +0200 +++ b/ResourceRetriever.st Wed Oct 15 12:45:33 1997 +0200 @@ -123,16 +123,14 @@ resource "returns form assigned to resource or nil " - |img cls| + |img cls appl| selector isNil ifTrue:[ ^nil ]. resourceOwner isNil ifTrue:[ - ( className isNil - or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] - ) ifTrue:[ + (resourceOwner := Smalltalk classNamed:className) isNil ifTrue:[ ^ nil ] ].