equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
6801 ('Goto Line...' gotoLine GotoLine ) |
6803 ('Goto Line...' gotoLine GotoLine ) |
6802 ('-' ) |
6804 ('-' ) |
6803 ('Tools' tools ) |
6805 ('Tools' tools ) |
6804 ('Font...' changeFont ) |
6806 ('Font...' changeFont ) |
6805 ('Insert Unicode...' insertUnicode ) |
6807 ('Insert Unicode...' insertUnicode ) |
6806 ). |
6808 ). |
6807 CharacterSetView notNil ifTrue:[ |
6809 CharacterSetView notNil ifTrue:[ |
6808 items := items , |
6810 items := items , |
6809 #( |
6811 #( |
6810 ('Special Characters...' specialCharacters OpenSpecialCharacterWindow ) |
6812 ('Special Characters...' specialCharacters OpenSpecialCharacterWindow ) |
6811 ). |
6813 ). |
6812 ]. |
6814 ]. |
|
6815 self showLineLimitInMenu ifTrue:[ |
|
6816 items := items , |
|
6817 #( |
|
6818 ('Set Line Limit...' doSetLineLimit ) |
|
6819 ). |
|
6820 ]. |
|
6821 |
6813 items := items , #( |
6822 items := items , #( |
6814 ('-' ) |
6823 ('-' ) |
6815 ('Save As...' save SaveAs ) |
6824 ('Save As...' save SaveAs ) |
6816 ('Print' doPrint Print ) |
6825 ('Print' doPrint Print ) |
6817 ('=' ) |
6826 ('=' ) |
7056 m disable:#accept |
7065 m disable:#accept |
7057 ]. |
7066 ]. |
7058 ^ m. |
7067 ^ m. |
7059 |
7068 |
7060 "Modified: / 30-11-2017 / 15:06:03 / cg" |
7069 "Modified: / 30-11-2017 / 15:06:03 / cg" |
7061 "Modified: / 28-05-2019 / 10:32:17 / Claus Gittinger" |
7070 "Modified: / 06-06-2019 / 11:22:31 / Claus Gittinger" |
7062 ! |
7071 ! |
7063 |
7072 |
7064 getTextSelectionFromHistory |
7073 getTextSelectionFromHistory |
7065 "present the copyBufferHistory as a shortened list (first line of each), |
7074 "present the copyBufferHistory as a shortened list (first line of each), |
7066 and let user select from it. |
7075 and let user select from it. |
7814 |v| |
7823 |v| |
7815 |
7824 |
7816 v := EditTextView openWith:(Smalltalk at:#DeleteHistory). |
7825 v := EditTextView openWith:(Smalltalk at:#DeleteHistory). |
7817 v readOnly:true. |
7826 v readOnly:true. |
7818 v topView label:'deleted text'. |
7827 v topView label:'deleted text'. |
|
7828 ! |
|
7829 |
|
7830 showLineLimitInMenu |
|
7831 "only for text collectors" |
|
7832 |
|
7833 ^ false. |
|
7834 |
|
7835 "Created: / 06-06-2019 / 11:22:09 / Claus Gittinger" |
7819 ! |
7836 ! |
7820 |
7837 |
7821 sort:how ignoreCase:ignoreCase fromLine:start toLine:end |
7838 sort:how ignoreCase:ignoreCase fromLine:start toLine:end |
7822 "sort/reorder the selected lines. |
7839 "sort/reorder the selected lines. |
7823 how: |
7840 how: |