--- a/HierarchicalItem.st	Thu Jun 22 07:00:02 2017 +0200
+++ b/HierarchicalItem.st	Fri Jul 14 11:45:14 2017 +0200
@@ -201,7 +201,7 @@
 
     lvl < 4 ifTrue:[
         txt := (lvl + 1) printString, ' ['.
-        img := Icon saveIcon.
+        img := ToolbarIconLibrary save22x22Icon.
 
         1 to:5 do:[:i|
             (i == 2 or:[i == 3]) ifTrue:[
@@ -219,7 +219,7 @@
     ] ifFalse:[
         image := ResourceSelectionBrowser iconPrivateClass.
         txt   := LabelAndIcon icon:image string:'Text'.
-        img   := Icon copyIcon.
+        img   := ToolbarIconLibrary copy22x22Icon.
 
         1 to:5 do:[:i|
             lbl := i odd ifTrue:[txt] ifFalse:[img].
@@ -231,6 +231,8 @@
 
     children do:[:aChild| aChild parent:self ].
   ^ children
+
+    "Modified: / 14-07-2017 / 10:21:00 / cg"
 !
 
 icon