equal
deleted
inserted
replaced
975 yNext := self yVisibleOfLine:start. |
975 yNext := self yVisibleOfLine:start. |
976 |
976 |
977 start to:stop do:[:anIndex| |
977 start to:stop do:[:anIndex| |
978 |y0 index x0 x1 itemLevel| |
978 |y0 index x0 x1 itemLevel| |
979 |
979 |
980 item := list at:anIndex |
980 item := list at:anIndex ifAbsent:nil. |
981 ifAbsent:[ |
981 item isNil ifTrue:[ |
982 self lineStyle:#solid. |
982 self lineStyle:#solid. |
983 self mask:nil. |
983 self mask:nil. |
984 ^ self |
984 ^ self |
985 ]. |
985 ]. |
986 |
986 |
987 y0 := yNext. |
987 y0 := yNext. |
988 yNext := self yVisibleOfLine:anIndex + 1. |
988 yNext := self yVisibleOfLine:anIndex + 1. |
989 |
989 |
990 item parent isNil ifTrue:[ |
990 item parent isNil ifTrue:[ |
1678 ! ! |
1678 ! ! |
1679 |
1679 |
1680 !HierarchicalListView class methodsFor:'documentation'! |
1680 !HierarchicalListView class methodsFor:'documentation'! |
1681 |
1681 |
1682 version |
1682 version |
1683 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.128 2013-11-05 11:32:42 cg Exp $' |
1683 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.129 2014-01-20 13:46:33 cg Exp $' |
1684 ! |
1684 ! |
1685 |
1685 |
1686 version_CVS |
1686 version_CVS |
1687 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.128 2013-11-05 11:32:42 cg Exp $' |
1687 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.129 2014-01-20 13:46:33 cg Exp $' |
1688 ! ! |
1688 ! ! |
1689 |
1689 |