equal
deleted
inserted
replaced
2744 |
2744 |
2745 selectStyle := nil. |
2745 selectStyle := nil. |
2746 selectVisibleLine := self visibleLineOfY:y. |
2746 selectVisibleLine := self visibleLineOfY:y. |
2747 selectLine := self visibleLineToListLine:selectVisibleLine. |
2747 selectLine := self visibleLineToListLine:selectVisibleLine. |
2748 selectLine notNil ifTrue:[ |
2748 selectLine notNil ifTrue:[ |
2749 selectCol := self colOfX:x inVisibleLine:selectLine. |
2749 selectCol := self colOfX:x inVisibleLine:selectVisibleLine. |
2750 self selectWordAtLine:selectLine col:selectCol |
2750 self selectWordAtLine:selectLine col:selectCol |
2751 ] |
2751 ] |
|
2752 |
|
2753 "Modified: / 8.9.1998 / 21:22:46 / cg" |
2752 ! |
2754 ! |
2753 |
2755 |
2754 selection |
2756 selection |
2755 "return the selection as a collection of (line-)strings. |
2757 "return the selection as a collection of (line-)strings. |
2756 If the selection ends in a full line, the last entry in the returned |
2758 If the selection ends in a full line, the last entry in the returned |
2868 ! ! |
2870 ! ! |
2869 |
2871 |
2870 !TextView class methodsFor:'documentation'! |
2872 !TextView class methodsFor:'documentation'! |
2871 |
2873 |
2872 version |
2874 version |
2873 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.121 1998-07-28 14:05:53 cg Exp $' |
2875 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.122 1998-09-08 20:09:00 cg Exp $' |
2874 ! ! |
2876 ! ! |