3463 |
3463 |
3464 replaceSelectionBy:something |
3464 replaceSelectionBy:something |
3465 "delete the selection (if any) and insert something, a character or string; |
3465 "delete the selection (if any) and insert something, a character or string; |
3466 leave cursor after insertion" |
3466 leave cursor after insertion" |
3467 |
3467 |
3468 self replaceSelectionBy:something keepCursor:false |
3468 self replaceSelectionBy:something keepCursor:false select:false |
3469 ! |
3469 ! |
3470 |
3470 |
3471 replaceSelectionBy:something keepCursor:keep |
3471 replaceSelectionBy:something keepCursor:keep |
3472 "delete the selection (if any) and insert something, a character or string; |
3472 "delete the selection (if any) and insert something, a character or string; |
3473 leave cursor after insertion or leave it, depending on keep" |
3473 leave cursor after insertion or leave it, depending on keep" |
3474 |
3474 |
3475 |sel l c | |
3475 self replaceSelectionBy:something keepCursor:keep select:false |
|
3476 |
|
3477 "Modified: 9.10.1996 / 16:14:35 / cg" |
|
3478 ! |
|
3479 |
|
3480 replaceSelectionBy:something keepCursor:keep select:selectNewText |
|
3481 "delete the selection (if any) and insert something, a character or string; |
|
3482 leave cursor after insertion or leave it, depending on keep. |
|
3483 If selectNewText is true, select the new text; otherwise deselect" |
|
3484 |
|
3485 |sel l c selStartLine selStartCol| |
3476 |
3486 |
3477 l := cursorLine. |
3487 l := cursorLine. |
3478 c := cursorCol. |
3488 c := cursorCol. |
3479 |
3489 |
3480 sel := self selection. |
3490 sel := self selection. |
3481 sel notNil ifTrue:[ |
3491 sel isNil ifTrue:[ |
|
3492 selStartLine := l. |
|
3493 selStartCol := c. |
|
3494 ] ifFalse:[ |
|
3495 selStartLine := selectionStartLine. |
|
3496 selStartCol := selectionStartCol. |
|
3497 |
3482 self setLastStringToReplace: sel. |
3498 self setLastStringToReplace: sel. |
3483 |
3499 |
3484 self deleteSelection. |
3500 self deleteSelection. |
3485 replacing := true. |
3501 replacing := true. |
3486 lastReplacementInfo lastReplacement: ''. |
3502 lastReplacementInfo lastReplacement: ''. |