--- a/HierarchicalItem.st	Tue Sep 19 10:35:35 2000 +0200
+++ b/HierarchicalItem.st	Tue Sep 19 10:45:49 2000 +0200
@@ -682,6 +682,16 @@
     super changed:what with:anArgument
 !
 
+fontChanged
+    "called if the font has changed
+    "
+    width := height := nil.
+
+    children size ~~ 0 ifTrue:[
+        children do:[:el| el fontChanged ].
+    ].
+!
+
 hierarchyChanged
     "hierarchy changed; optimize redrawing
     "
@@ -1547,5 +1557,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.24 2000-09-06 12:41:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.25 2000-09-19 08:45:05 martin Exp $'
 ! !