--- a/ResourceRetriever.st Mon Oct 18 15:48:30 2004 +0200
+++ b/ResourceRetriever.st Mon Oct 25 13:13:48 2004 +0200
@@ -220,14 +220,14 @@
"
|resource|
- (resource := self resource) isNil ifTrue:[
+ (resource := self resource value) isNil ifTrue:[
^ labelText
].
(labelText notNil and:[resource isImage]) ifTrue:[
^ LabelAndIcon icon:resource string:labelText
].
- ^ resource
+ ^ resource
"Modified: / 31.10.1997 / 12:10:05 / cg"
! !
@@ -261,7 +261,7 @@
"
|img cls|
- resource notNil ifTrue:[ ^ resource].
+ resource notNil ifTrue:[^ resource].
selector isNil ifTrue:[
^nil
@@ -353,5 +353,5 @@
!ResourceRetriever class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.10 2004-03-12 12:43:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.11 2004-10-25 11:13:48 cg Exp $'
! !