equal
deleted
inserted
replaced
678 |
678 |
679 (model := self model) notNil ifTrue:[ |
679 (model := self model) notNil ifTrue:[ |
680 model itemChanged:what with:anArgument from:self |
680 model itemChanged:what with:anArgument from:self |
681 ]. |
681 ]. |
682 super changed:what with:anArgument |
682 super changed:what with:anArgument |
|
683 ! |
|
684 |
|
685 fontChanged |
|
686 "called if the font has changed |
|
687 " |
|
688 width := height := nil. |
|
689 |
|
690 children size ~~ 0 ifTrue:[ |
|
691 children do:[:el| el fontChanged ]. |
|
692 ]. |
683 ! |
693 ! |
684 |
694 |
685 hierarchyChanged |
695 hierarchyChanged |
686 "hierarchy changed; optimize redrawing |
696 "hierarchy changed; optimize redrawing |
687 " |
697 " |
1545 ! ! |
1555 ! ! |
1546 |
1556 |
1547 !HierarchicalItem class methodsFor:'documentation'! |
1557 !HierarchicalItem class methodsFor:'documentation'! |
1548 |
1558 |
1549 version |
1559 version |
1550 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.24 2000-09-06 12:41:59 cg Exp $' |
1560 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.25 2000-09-19 08:45:05 martin Exp $' |
1551 ! ! |
1561 ! ! |