--- a/HierarchicalItem.st	Mon Nov 29 15:53:42 2004 +0100
+++ b/HierarchicalItem.st	Sat Dec 11 10:09:16 2004 +0100
@@ -1794,7 +1794,7 @@
 !HierarchicalItem::Example methodsFor:'accessing'!
 
 children
-    |lvl lbl txt image img icon tmp|
+    |lvl lbl txt image img icon|
 
     children notNil ifTrue:[
         ^ children
@@ -1809,7 +1809,7 @@
 
     lvl < 4 ifTrue:[
         txt := (lvl + 1) printString, ' ['.
-        img := NewLauncher saveImageIcon.
+        img := Icon saveIcon.
 
         1 to:5 do:[:i|
             (i == 2 or:[i == 3]) ifTrue:[
@@ -1896,5 +1896,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.66 2004-06-23 07:49:33 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.67 2004-12-11 09:09:16 ca Exp $'
 ! !