--- a/TreeItemWithImage.st	Thu Feb 11 18:49:30 1999 +0100
+++ b/TreeItemWithImage.st	Thu Feb 11 19:09:18 1999 +0100
@@ -1,5 +1,5 @@
 TreeItem subclass:#TreeItemWithImage
-	instanceVariableNames:'image'
+	instanceVariableNames:'icon'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support'
@@ -28,18 +28,20 @@
 
 !TreeItemWithImage methodsFor:'accessing'!
 
-image
-    "return the value of the instance variable 'image' (automatically generated)"
-
-    ^ image!
+icon
+    "return the value of the instance variable 'icon' (automatically generated)"
 
-image:something
-    "set the value of the instance variable 'image' (automatically generated)"
+    icon isNil ifTrue:[^ super icon].
+    ^ icon
+!
 
-    image := something.! !
+icon:something
+    "set the value of the instance variable 'icon' (automatically generated)"
+
+    icon := something.! !
 
 !TreeItemWithImage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItemWithImage.st,v 1.2 1999-02-11 17:49:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItemWithImage.st,v 1.3 1999-02-11 18:09:18 cg Exp $'
 ! !