equal
deleted
inserted
replaced
2846 ^ false |
2846 ^ false |
2847 |
2847 |
2848 ! |
2848 ! |
2849 |
2849 |
2850 copySelection |
2850 copySelection |
|
2851 "the inherited code would leave the cursor behin the selection; |
|
2852 we always want it to stay at the end. |
|
2853 However: cursorToEndOfText ignores trailing spaces!! |
|
2854 " |
|
2855 |
|
2856 |cLine cCol| |
|
2857 |
|
2858 cLine := cursorLine. |
|
2859 cCol := cursorCol. |
2851 super copySelection. |
2860 super copySelection. |
2852 self cursorToEndOfText |
2861 "/ self cursorToEndOfText |
|
2862 self cursorLine:cLine col:cCol. |
2853 ! |
2863 ! |
2854 |
2864 |
2855 paste:someText |
2865 paste:someText |
2856 "paste - redefined to send the chars to the shell instead |
2866 "paste - redefined to send the chars to the shell instead |
2857 of pasting into the view" |
2867 of pasting into the view" |