--- a/HierarchicalListView.st	Mon Oct 28 02:08:29 2002 +0100
+++ b/HierarchicalListView.st	Mon Oct 28 10:56:50 2002 +0100
@@ -197,48 +197,103 @@
 !HierarchicalListView class methodsFor:'resources'!
 
 closeIndicator
-    "returns a little [+] bitmap"
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
 
-    <resource: #fileImage>
+    "
+     self closeIndicator inspect
+     ImageEditor openOnClass:self andSelector:#closeIndicator
+     Icon flushCachedIcons
+    "
 
-    ^ Icon constantNamed:#plus
-             ifAbsentPut:[Smalltalk imageFromFileNamed:'plus.xpm' forClass:HierarchicalListView]
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'HierarchicalListView class closeIndicator'
+        ifAbsentPut:[(Depth2Image new) width: 9; height: 9; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUU@Z*)@Z")@Z")@X@I-Z")@Z")KZ*)@UUU;') ; colorMapFromArray:#[0 0 0 128 128 128 255 255 255]; yourself]
 !
 
 collapsedIcon
-    "returns icon to indicate a collapsed entry
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
     "
-    <resource: #fileImage>
+     self collapsedIcon inspect
+     ImageEditor openOnClass:self andSelector:#collapsedIcon
+     Icon flushCachedIcons
+    "
 
-    ^ Icon constantNamed:#directory
-             ifAbsentPut:[Smalltalk imageFromFileNamed:'dir.xpm' forClass:HierarchicalListView]
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'HierarchicalListView class collapsedIcon'
+        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@UP@@@@@@@@EUUUPAUUUT@UUUU@EUUUPAUUUT@UUUU@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O@A>@O?<??3??O?<??3??O?<??0@@@@@@@@b') ; yourself); yourself]
 !
 
 emptyIcon
-    "returns icon to indicate an not extendable entry
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
     "
-    <resource: #fileImage>
+     self emptyIcon inspect
+     ImageEditor openOnClass:self andSelector:#emptyIcon
+     Icon flushCachedIcons
+    "
 
-    ^ Icon constantNamed:#plainFile
-             ifAbsentPut:[Smalltalk imageFromFileNamed:'file_plain.xpm' forClass:HierarchicalListView]
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'HierarchicalListView class emptyIcon'
+        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@EUTP@AUUE@@UUP@@EUUU@AUUUP@UUUT@EUUU@AUUUP@UUUT@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; yourself]
 !
 
 expandedIcon
-    "returns icon to indicate an extended entry
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
     "
-    <resource: #fileImage>
+     self expandedIcon inspect
+     ImageEditor openOnClass:self andSelector:#expandedIcon
+     Icon flushCachedIcons
+    "
 
-    ^ Icon constantNamed:#directoryOpened
-             ifAbsentPut:[Smalltalk imageFromFileNamed:'dir_open.xpm' forClass:HierarchicalListView]
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'HierarchicalListView class expandedIcon'
+        ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@UP@@@UU@@@EUUUPA@@@@@R*** B***(@***(@****@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 179 179 179 255 255 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O@A>@O?<??3???????;??/?<??0@@@@@@@@b') ; yourself); yourself]
 !
 
 openIndicator
-    "returns a little [-] bitmap"
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
 
-    <resource: #fileImage>
+    "
+     self openIndicator inspect
+     ImageEditor openOnClass:self andSelector:#openIndicator
+     Icon flushCachedIcons
+    "
 
-    ^ Icon constantNamed:#minus
-             ifAbsentPut:[Smalltalk imageFromFileNamed:'minus.xpm' forClass:HierarchicalListView]
+    <resource: #image>
+
+    ^Icon
+        constantNamed:#'HierarchicalListView class openIndicator'
+        ifAbsentPut:[(Depth2Image new) width: 9; height: 9; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUU@Z*)@Z*)(Z*)HX@I@Z*)@Z*)@Z*)@UUU.') ; colorMapFromArray:#[0 0 0 128 128 128 255 255 255]; yourself]
 ! !
 
 !HierarchicalListView methodsFor:'accessing'!
@@ -1464,5 +1519,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.66 2002-10-28 01:08:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.67 2002-10-28 09:56:50 ca Exp $'
 ! !