--- 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 $'
! !
--- 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 $'
! !