equal
deleted
inserted
replaced
2059 index := self nextAfterSelection. |
2059 index := self nextAfterSelection. |
2060 self key:key select:index x:x y:y. |
2060 self key:key select:index x:x y:y. |
2061 ^ self |
2061 ^ self |
2062 ]. |
2062 ]. |
2063 "/ |
2063 "/ |
2064 "/ stupid: Home and End are cought in ScrollableView |
2064 "/ stupid: Home and End are caught in ScrollableView |
2065 "/ we normally do not get them ... |
2065 "/ we normally do not get them ... |
2066 "/ (need to call handlesKey: from there ... |
2066 "/ (need to call handlesKey: from there ... |
2067 "/ ... and implement it here) |
2067 "/ ... and implement it here) |
2068 "/ |
2068 "/ |
2069 (key == #BeginOfText) ifTrue:[ |
2069 (key == #BeginOfText) ifTrue:[ |
3296 ! ! |
3296 ! ! |
3297 |
3297 |
3298 !SelectionInListView class methodsFor:'documentation'! |
3298 !SelectionInListView class methodsFor:'documentation'! |
3299 |
3299 |
3300 version |
3300 version |
3301 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.108 1997-06-11 14:07:08 ca Exp $' |
3301 ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.109 1997-06-16 18:28:31 cg Exp $' |
3302 ! ! |
3302 ! ! |