--- a/ResourceRetriever.st	Wed Oct 23 10:15:12 2002 +0200
+++ b/ResourceRetriever.st	Thu Oct 24 14:36:01 2002 +0200
@@ -16,7 +16,7 @@
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#ResourceRetriever
-	instanceVariableNames:'className resourceOwner selector labelText'
+	instanceVariableNames:'className resourceOwner selector labelText resource'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-UI'
@@ -76,6 +76,20 @@
 
 ! !
 
+!ResourceRetriever class methodsFor:'instance creation'!
+
+icon:anIcon
+    ^ self icon:anIcon string:nil
+!
+
+icon:anIcon string:aLabelOrNil
+    |resource|
+
+    resource := self new.
+    resource icon:anIcon string:aLabelOrNil.
+    ^ resource
+! !
+
 !ResourceRetriever class methodsFor:'accessing resource'!
 
 findResourceLabel:label in:aResourceOwner
@@ -177,6 +191,11 @@
     resourceOwner := nil.
 !
 
+icon:anIcon string:aLabelOrNil
+    resource  := anIcon.
+    labelText := aLabelOrNil.
+!
+
 labelText
     ^ labelText
 !
@@ -229,6 +248,8 @@
     "
     |img cls|
 
+    resource notNil  ifTrue:[ ^ resource].
+
     selector isNil ifTrue:[
         ^nil
     ].
@@ -319,5 +340,5 @@
 !ResourceRetriever class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.5 2000-12-16 17:53:51 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.6 2002-10-24 12:36:01 cg Exp $'
 ! !