equal
deleted
inserted
replaced
3441 autoIndent := false. |
3441 autoIndent := false. |
3442 insertMode := true. |
3442 insertMode := true. |
3443 trimBlankLines := ST80Mode not. "true." |
3443 trimBlankLines := ST80Mode not. "true." |
3444 |
3444 |
3445 "Modified: / 30.1.1998 / 14:14:59 / cg" |
3445 "Modified: / 30.1.1998 / 14:14:59 / cg" |
3446 ! |
|
3447 |
|
3448 realize |
|
3449 "make the view visible - scroll to make the cursor visible." |
|
3450 |
|
3451 super realize. |
|
3452 |
|
3453 self makeCursorVisible. |
|
3454 cursorFgColor := cursorFgColor on:device. |
|
3455 cursorBgColor := cursorBgColor on:device. |
|
3456 |
|
3457 "Modified: 20.12.1996 / 14:16:05 / cg" |
|
3458 "Created: 24.7.1997 / 18:24:12 / cg" |
|
3459 ! ! |
3446 ! ! |
3460 |
3447 |
3461 !EditTextView methodsFor:'menu actions'! |
3448 !EditTextView methodsFor:'menu actions'! |
3462 |
3449 |
3463 cut |
3450 cut |
3850 ^ w + (font widthOn:dev) |
3837 ^ w + (font widthOn:dev) |
3851 |
3838 |
3852 "Modified: 28.5.1996 / 19:32:25 / cg" |
3839 "Modified: 28.5.1996 / 19:32:25 / cg" |
3853 ! ! |
3840 ! ! |
3854 |
3841 |
|
3842 !EditTextView methodsFor:'realization'! |
|
3843 |
|
3844 realize |
|
3845 "make the view visible - scroll to make the cursor visible." |
|
3846 |
|
3847 super realize. |
|
3848 |
|
3849 self makeCursorVisible. |
|
3850 cursorFgColor := cursorFgColor on:device. |
|
3851 cursorBgColor := cursorBgColor on:device. |
|
3852 |
|
3853 "Modified: 20.12.1996 / 14:16:05 / cg" |
|
3854 "Created: 24.7.1997 / 18:24:12 / cg" |
|
3855 ! ! |
|
3856 |
3855 !EditTextView methodsFor:'redrawing'! |
3857 !EditTextView methodsFor:'redrawing'! |
3856 |
3858 |
3857 redrawCursorIfBetweenVisibleLine:startVisLine and:endVisLine |
3859 redrawCursorIfBetweenVisibleLine:startVisLine and:endVisLine |
3858 "redraw the cursor, if it sits in a line range" |
3860 "redraw the cursor, if it sits in a line range" |
3859 |
3861 |
4379 ! ! |
4381 ! ! |
4380 |
4382 |
4381 !EditTextView class methodsFor:'documentation'! |
4383 !EditTextView class methodsFor:'documentation'! |
4382 |
4384 |
4383 version |
4385 version |
4384 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.171 1998-06-18 23:03:00 cg Exp $' |
4386 ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.172 1998-06-19 00:22:20 cg Exp $' |
4385 ! ! |
4387 ! ! |