equal
deleted
inserted
replaced
1269 typeOfSelection := selType. |
1269 typeOfSelection := selType. |
1270 |
1270 |
1271 "Created: / 31.3.1998 / 23:35:06 / cg" |
1271 "Created: / 31.3.1998 / 23:35:06 / cg" |
1272 ! ! |
1272 ! ! |
1273 |
1273 |
|
1274 |
1274 !EditTextView methodsFor:'accessing-look'! |
1275 !EditTextView methodsFor:'accessing-look'! |
1275 |
1276 |
1276 cursorForegroundColor:color1 backgroundColor:color2 |
1277 cursorForegroundColor:color1 backgroundColor:color2 |
1277 "set both cursor foreground and cursor background colors" |
1278 "set both cursor foreground and cursor background colors" |
1278 |
1279 |
4514 "/ |
4515 "/ |
4515 "/ treat the whole selection as cursor |
4516 "/ treat the whole selection as cursor |
4516 "/ |
4517 "/ |
4517 self setCursorLine:(selectionEndLine ? selectionStartLine). |
4518 self setCursorLine:(selectionEndLine ? selectionStartLine). |
4518 self setCursorCol:selectionStartCol. |
4519 self setCursorCol:selectionStartCol. |
4519 cursorCol == 0 ifTrue:[ |
4520 (cursorCol == 0 or:[selectionEndCol == 0]) ifTrue:[ |
4520 self setCursorCol:1. |
4521 self setCursorCol:1. |
4521 self setCursorLine:(cursorLine - 1). |
4522 self setCursorLine:(cursorLine - 1). |
4522 ]. |
4523 ]. |
4523 self makeCursorVisible. |
4524 self makeCursorVisible. |
4524 |
4525 |
8039 ! ! |
8040 ! ! |
8040 |
8041 |
8041 !EditTextView class methodsFor:'documentation'! |
8042 !EditTextView class methodsFor:'documentation'! |
8042 |
8043 |
8043 version |
8044 version |
8044 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.549 2013-04-30 18:23:03 cg Exp $' |
8045 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.550 2013-05-15 10:46:04 cg Exp $' |
8045 ! |
8046 ! |
8046 |
8047 |
8047 version_CVS |
8048 version_CVS |
8048 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.549 2013-04-30 18:23:03 cg Exp $' |
8049 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.550 2013-05-15 10:46:04 cg Exp $' |
8049 ! ! |
8050 ! ! |
8050 |
8051 |