equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1999 by eXept Software AG |
2 COPYRIGHT (c) 1999 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
992 |
990 |
993 item drawHorizontalLineUpToText ifTrue:[ |
991 item drawHorizontalLineUpToText ifTrue:[ |
994 x1 := (self xVisibleOfTextAtLevel:itemLevel) - textStartLeft. |
992 x1 := (self xVisibleOfTextAtLevel:itemLevel) - textStartLeft. |
995 ] ifFalse:[ |
993 ] ifFalse:[ |
996 x1 := self xVisibleOfVerticalLineAt:(itemLevel + 1). |
994 x1 := self xVisibleOfVerticalLineAt:(itemLevel + 1). |
|
995 item icon notNil ifTrue:[ |
|
996 x1 := x1 - (item icon width // 2). |
|
997 ]. |
997 ]. |
998 ]. |
998 y0 := (y0 + yNext ) // 2. |
999 y0 := (y0 + yNext ) // 2. |
999 self displayLineFromX:x0 y:y0 toX:x1 y:y0. |
1000 self displayLineFromX:x0 y:y0 toX:x1 y:y0. |
1000 ]. |
1001 ]. |
1001 ]. |
1002 ]. |
1002 |
1003 |
1003 self lineStyle:#solid. |
1004 self lineStyle:#solid. |
1004 self mask:nil. |
1005 self mask:nil. |
1005 |
1006 |
1006 "Modified: / 03-12-2010 / 19:28:23 / cg" |
1007 "Modified: / 03-12-2010 / 19:28:23 / cg" |
|
1008 "Modified: / 12-06-2018 / 10:46:02 / Claus Gittinger" |
1007 ! |
1009 ! |
1008 |
1010 |
1009 drawVericalLineForElement:item minX:xL maxX:xR |
1011 drawVericalLineForElement:item minX:xL maxX:xR |
1010 "draw the vertical line my children are connected to" |
1012 "draw the vertical line my children are connected to" |
1011 |
1013 |