equal
deleted
inserted
replaced
670 |
670 |
671 recomputeList:aList |
671 recomputeList:aList |
672 "add all shown children and its shown sub children into |
672 "add all shown children and its shown sub children into |
673 a list |
673 a list |
674 " |
674 " |
|
675 |item |
|
676 size "{ Class: SmallInteger }" |
|
677 idx "{ Class: SmallInteger }" |
|
678 | |
|
679 |
675 hide ifFalse:[ |
680 hide ifFalse:[ |
676 self childrenDo:[:aChild| |
681 (size := self children size) ~~ 0 ifTrue:[ |
677 aList add:aChild. |
682 idx := 1. |
678 aChild recomputeList:aList |
683 |
|
684 size timesRepeat:[ |
|
685 aList add:(item := children at:idx). |
|
686 item recomputeList:aList. |
|
687 idx := idx + 1. |
|
688 ] |
679 ] |
689 ] |
680 ] |
690 ] |
681 ! |
691 ! |
682 |
692 |
683 showIndicator |
693 showIndicator |
815 ! ! |
825 ! ! |
816 |
826 |
817 !TreeItem class methodsFor:'documentation'! |
827 !TreeItem class methodsFor:'documentation'! |
818 |
828 |
819 version |
829 version |
820 ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.18 1998-04-04 06:48:46 ca Exp $' |
830 ^ '$Header: /cvs/stx/stx/libwidg2/TreeItem.st,v 1.19 1998-04-04 08:45:57 ca Exp $' |
821 ! ! |
831 ! ! |