equal
deleted
inserted
replaced
3063 ! |
3063 ! |
3064 |
3064 |
3065 selectLineAtY:y |
3065 selectLineAtY:y |
3066 "select the line at given y-(view-)coordinate" |
3066 "select the line at given y-(view-)coordinate" |
3067 |
3067 |
3068 |selectVisibleLine selectLine| |
3068 |selectLine| |
3069 |
3069 |
3070 selectVisibleLine := self visibleLineOfY:y. |
3070 selectLine := self lineAtY:y. "/ self visibleLineToListLine:(self visibleLineOfY:y). |
3071 selectLine := self visibleLineToListLine:selectVisibleLine. |
|
3072 selectLine notNil ifTrue:[ |
3071 selectLine notNil ifTrue:[ |
3073 self selectLine:selectLine |
3072 self selectLine:selectLine |
3074 ] |
3073 ] |
3075 ! |
3074 ! |
3076 |
3075 |
3077 selectLineWhereCharacterPosition:pos |
3076 selectLineWhereCharacterPosition:pos |
3078 "select the line, where characterPosition pos is living. |
3077 "select the line, where characterPosition pos is living. |
3210 ! ! |
3209 ! ! |
3211 |
3210 |
3212 !TextView class methodsFor:'documentation'! |
3211 !TextView class methodsFor:'documentation'! |
3213 |
3212 |
3214 version |
3213 version |
3215 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.165 2001-09-27 17:52:57 cg Exp $' |
3214 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.166 2001-09-28 13:24:59 cg Exp $' |
3216 ! ! |
3215 ! ! |