--- a/SelectionInTreeView.st	Fri Dec 03 03:34:03 1999 +0100
+++ b/SelectionInTreeView.st	Fri Dec 03 03:39:21 1999 +0100
@@ -160,11 +160,7 @@
 closeIndicator
     "returns a little [+] bitmap"
 
-    <resource: #fileImage>
-
-    ^ Icon
-        constantNamed:#plus
-        ifAbsentPutImageFromFile:'xpmBitmaps/plus.xpm'
+    ^ HierarchicalListView closeIndicator
 
 
 
@@ -176,22 +172,14 @@
 imageClosed
     "returns a closed file-directory bitmap"
 
-    <resource: #fileImage>
-
-    ^ Icon
-        constantNamed:#directory
-        ifAbsentPutImageFromFile:'xpmBitmaps/document_images/tiny_yellow_dir.xpm'
+    ^ HierarchicalListView collapsedIcon
 
 !
 
 imageItem
     "returns a regular file bitmap"
 
-    <resource: #fileImage>
-
-    ^ Icon
-        constantNamed:#plainFile
-        ifAbsentPutImageFromFile:'xpmBitmaps/document_images/tiny_file_plain.xpm'
+    ^ HierarchicalListView emptyIcon
 
 
 
@@ -202,22 +190,14 @@
 imageOpened
     "returns an opened file-directory bitmap"
 
-    <resource: #fileImage>
-
-    ^ Icon
-        constantNamed:#directoryOpened
-        ifAbsentPutImageFromFile:'xpmBitmaps/document_images/tiny_yellow_dir_open.xpm'
+    ^ HierarchicalListView expandedIcon
 
 !
 
 openIndicator
     "returns a little [-] bitmap"
 
-    <resource: #fileImage>
-
-    ^ Icon
-        constantNamed:#minus
-        ifAbsentPutImageFromFile:'xpmBitmaps/minus.xpm'
+    ^ HierarchicalListView openIndicator
 
 
 ! !
@@ -2372,5 +2352,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.87 1999-11-29 11:38:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.88 1999-12-03 02:39:10 cg Exp $'
 ! !