# HG changeset patch
# User martin
# Date 969353149 -7200
# Node ID 61595a6b2e37611d9578077753ccb521f7cdb41a
# Parent  402a364ee00124632d34f9b3e65f1132e556005c
handle font changed notification

diff -r 402a364ee001 -r 61595a6b2e37 HierarchicalItem.st
--- 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 $'
 ! !
diff -r 402a364ee001 -r 61595a6b2e37 HierarchicalListView.st
--- a/HierarchicalListView.st	Tue Sep 19 10:35:35 2000 +0200
+++ b/HierarchicalListView.st	Tue Sep 19 10:45:49 2000 +0200
@@ -170,6 +170,19 @@
 
 !HierarchicalListView methodsFor:'accessing'!
 
+font:aFont
+    "set a new font
+    "
+    |root|
+
+    (aFont isNil or:[aFont = font]) ifFalse:[
+        (list notNil and:[(root := list root) notNil]) ifTrue:[
+            root fontChanged
+        ].
+        super font:aFont
+    ].
+!
+
 list:aList
     "get the status of <showRoot> from the list
     "
@@ -1027,5 +1040,5 @@
 !HierarchicalListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.31 2000-08-21 22:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.32 2000-09-19 08:45:49 martin Exp $'
 ! !