ResourceRetriever.st
changeset 378 9057ea063eca
parent 373 ae526fcf716a
child 399 0822ecf56bf2
equal deleted inserted replaced
377:5cbb117efc19 378:9057ea063eca
   108     (resource := self resource) isNil ifTrue:[
   108     (resource := self resource) isNil ifTrue:[
   109         ^ labelText
   109         ^ labelText
   110     ].
   110     ].
   111 
   111 
   112     (labelText notNil and:[resource isImage]) ifTrue:[
   112     (labelText notNil and:[resource isImage]) ifTrue:[
   113         ^ LabelAndIcon icon:resource string:(Text string:labelText emphasis:#bold)
   113         ^ LabelAndIcon icon:resource string:labelText
   114     ].
   114     ].
   115   ^ resource
   115   ^ resource
   116 
   116 
   117     "Modified: / 31.10.1997 / 12:10:05 / cg"
   117     "Modified: / 31.10.1997 / 12:10:05 / cg"
   118 ! !
   118 ! !