--- a/HierarchicalItem.st	Wed Nov 24 11:16:40 2010 +0100
+++ b/HierarchicalItem.st	Wed Nov 24 17:26:59 2010 +0100
@@ -788,7 +788,7 @@
         #redraw         redraw but height and width are unchanged
         .......         all others: the height and width are reset
     "
-    |model why|
+    |model|
 
     what ~~ #redraw ifTrue:[
         (what ~~ #hierarchy and:[what ~~ #icon]) ifTrue:[
@@ -796,14 +796,13 @@
                 width := height := nil
             ].
         ].
-        why := what
-    ] ifFalse:[
-        why := #redraw
     ].
     (model := self model) notNil ifTrue:[
-        model itemChanged:why with:anArgument from:self
+        model itemChanged:what with:anArgument from:self
     ].
-    super changed:why with:anArgument
+    super changed:what with:anArgument
+
+    "Modified: / 24-11-2010 / 17:21:20 / cg"
 !
 
 childrenOrderChanged
@@ -1956,9 +1955,9 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.98 2010-09-20 07:44:08 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.99 2010-11-24 16:26:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.98 2010-09-20 07:44:08 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.99 2010-11-24 16:26:59 cg Exp $'
 ! !