*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 25 Oct 2004 13:13:48 +0200
changeset 2021 e5b13637d00a
parent 2020 d5c5d7928433
child 2022 6508caa8bdba
*** empty log message ***
ResourceRetriever.st
--- 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 $'
 ! !