HierarchicalListView.st
changeset 5389 d704f9a06ca8
parent 5282 ae9d2fd997ef
child 5522 127709735589
child 6253 733a1d1bc8fc
--- a/HierarchicalListView.st	Mon Dec 12 22:42:36 2016 +0100
+++ b/HierarchicalListView.st	Sun Dec 18 11:55:30 2016 +0100
@@ -237,78 +237,15 @@
 !
 
 collapsedIcon
-    ^ ToolbarIconLibrary fileTypeDirectoryIcon
-    "/ ^ self collapsedIcon_old
-!
-
-collapsedIcon_old
-    "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."
-
-    "
-     self collapsedIcon inspect
-     ImageEditor openOnClass:self andSelector:#collapsedIcon
-     Icon flushCachedIcons
-    "
-
-    <resource: #image>
-
-    ^Icon
-        constantNamed:'HierarchicalListView collapsedIcon'
-        ifAbsentPut:[(Depth1Image new) width:16; height:16; bits:(ByteArray fromPackedString:'@@@@@@@@@@@<@@@@_?!!?>G?8_?!!?>G?8@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 0]; mask:((ImageMask new) width:16; height:16; bits:(ByteArray fromPackedString:'@@@@@@@@O@A>@O?<??3??O?<??3??O?<??0@@@@@@@@b') ; yourself); yourself]
+    ^ ToolbarIconLibrary collapsedIconInTree
 !
 
 emptyIcon
-    ^ ToolbarIconLibrary fileTypeFileIcon.
-    "/ ^ self emptyIcon_old
-!
-
-emptyIcon_old 
-    "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."
-
-    "
-     self emptyIcon inspect
-     ImageEditor openOnClass:self andSelector:#emptyIcon
-     Icon flushCachedIcons
-    "
-
-    <resource: #image>
-
-    ^Icon
-        constantNamed:'HierarchicalListView emptyIcon'
-        ifAbsentPut:[(Depth1Image new) width:16; height:16; bits:(ByteArray fromPackedString:'@@@@@@@@_4A?XG<@_?A?<G?0_?A?<G?0@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width:16; height:16; bits:(ByteArray fromPackedString:'@@@@@O?@?>C?<O?8??#?>O?8??#?>O?8?? @@@@@@@@b') ; yourself); yourself]
+    ^ ToolbarIconLibrary emptyIconInTree.
 !
 
 expandedIcon
-    ^ ToolbarIconLibrary fileTypeDirectoryOpenIcon.
-    "/ ^ self expandedIcon_old.
-!
-
-expandedIcon_old 
-    "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."
-
-    "
-     self expandedIcon inspect
-     ImageEditor openOnClass:self andSelector:#expandedIcon
-     Icon flushCachedIcons
-    "
-
-    <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]
+    ^ ToolbarIconLibrary expandedIconInTree.
 !
 
 openIndicator