equal
deleted
inserted
replaced
477 |
477 |
478 self unselect. |
478 self unselect. |
479 super list:something |
479 super list:something |
480 |
480 |
481 "Modified: 29.4.1996 / 12:13:24 / cg" |
481 "Modified: 29.4.1996 / 12:13:24 / cg" |
|
482 ! |
|
483 |
|
484 setContents:something |
|
485 "set the contents (either a string or a Collection of strings) |
|
486 dont change the position (i.e. do not scroll) or the selection." |
|
487 |
|
488 |selStartLine selStartCol selEndLine selEndCol selStyle| |
|
489 |
|
490 selStartLine := selectionStartLine. |
|
491 selStartCol := selectionStartCol. |
|
492 selEndLine := selectionEndLine. |
|
493 selEndCol := selectionEndCol. |
|
494 selStyle := selectStyle. |
|
495 |
|
496 super setContents:something. |
|
497 |
|
498 selStartLine notNil ifTrue:[ |
|
499 self |
|
500 selectFromLine:selStartLine col:selStartCol |
|
501 toLine:selEndLine col:selEndCol. |
|
502 ]. |
|
503 |
|
504 selectStyle := selStyle |
|
505 |
|
506 "Modified: / 31.3.1998 / 23:33:21 / cg" |
482 ! |
507 ! |
483 |
508 |
484 setList:something |
509 setList:something |
485 "set the displayed contents (a collection of strings) |
510 "set the displayed contents (a collection of strings) |
486 without redraw. |
511 without redraw. |
996 selectionFgColor := selectionFgColor on:device. |
1021 selectionFgColor := selectionFgColor on:device. |
997 selectionBgColor := selectionBgColor on:device. |
1022 selectionBgColor := selectionBgColor on:device. |
998 ! |
1023 ! |
999 |
1024 |
1000 quadClickX:x y:y |
1025 quadClickX:x y:y |
1001 "qaudrupleClick-click - select all" |
1026 "quadrupleClick-click - select all" |
1002 |
1027 |
1003 self selectAll |
1028 self selectAll |
1004 |
1029 |
1005 "Created: 11.9.1997 / 04:15:24 / cg" |
1030 "Created: / 11.9.1997 / 04:15:24 / cg" |
|
1031 "Modified: / 31.3.1998 / 14:21:13 / cg" |
1006 ! |
1032 ! |
1007 |
1033 |
1008 tripleClickX:x y:y |
1034 tripleClickX:x y:y |
1009 "triple-click - select line under pointer" |
1035 "triple-click - select line under pointer" |
1010 |
1036 |
2815 ! ! |
2841 ! ! |
2816 |
2842 |
2817 !TextView class methodsFor:'documentation'! |
2843 !TextView class methodsFor:'documentation'! |
2818 |
2844 |
2819 version |
2845 version |
2820 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.113 1998-03-31 09:27:14 cg Exp $' |
2846 ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.114 1998-04-01 09:22:12 cg Exp $' |
2821 ! ! |
2847 ! ! |