equal
deleted
inserted
replaced
1118 |
1118 |
1119 line := self yVisibleToLineNr:y. |
1119 line := self yVisibleToLineNr:y. |
1120 line notNil ifTrue:[ |
1120 line notNil ifTrue:[ |
1121 item := self at:line ifAbsent:nil. |
1121 item := self at:line ifAbsent:nil. |
1122 item notNil ifTrue:[ |
1122 item notNil ifTrue:[ |
|
1123 "/ translate the coordinate relative to the items origin |
1123 x0 := self xVisibleOfIconAtLevel:(item level). |
1124 x0 := self xVisibleOfIconAtLevel:(item level). |
1124 x >= x0 ifTrue:[ |
1125 x >= x0 ifTrue:[ |
1125 x0 := self xVisibleOfTextAtLevel:(item level). |
1126 x0 := self xVisibleOfTextAtLevel:(item level). |
1126 y0 := self yVisibleOfLine:line. |
1127 y0 := self yVisibleOfLine:line. |
1127 |
1128 |
1641 ! ! |
1642 ! ! |
1642 |
1643 |
1643 !HierarchicalListView class methodsFor:'documentation'! |
1644 !HierarchicalListView class methodsFor:'documentation'! |
1644 |
1645 |
1645 version |
1646 version |
1646 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.102 2006-03-15 10:38:36 cg Exp $' |
1647 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.103 2006-03-16 19:43:27 cg Exp $' |
1647 ! ! |
1648 ! ! |