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 |
25 learnedMacro cursorLineHolder cursorColHolder tabRequiresControl |
27 learnedMacro cursorLineHolder cursorColHolder tabRequiresControl |
26 undoSupport lastStringFromReplaceForNextSearch |
28 undoSupport lastStringFromReplaceForNextSearch |
27 lastReplacementInfo completionSupport codeAspectHolder' |
29 lastReplacementInfo completionSupport codeAspectHolder' |
28 classVariableNames:'DefaultCursorBackgroundColor DefaultCursorForegroundColor |
30 classVariableNames:'DefaultCursorBackgroundColor DefaultCursorForegroundColor |
29 DefaultCursorNoFocusForegroundColor DefaultCursorType |
31 DefaultCursorNoFocusForegroundColor DefaultCursorType |
30 DefaultCursorTypeNoFocus LastColumnNumberForSort Macros' |
32 DefaultCursorTypeNoFocus LastColumnNumberForSort Macros |
|
33 CharacterInputViewSingleton' |
31 poolDictionaries:'' |
34 poolDictionaries:'' |
32 category:'Views-Text' |
35 category:'Views-Text' |
33 ! |
36 ! |
34 |
37 |
35 Object subclass:#EditAction |
38 Object subclass:#EditAction |
6521 |
6524 |
6522 release |
6525 release |
6523 completionSupport notNil ifTrue:[ |
6526 completionSupport notNil ifTrue:[ |
6524 completionSupport release |
6527 completionSupport release |
6525 ]. |
6528 ]. |
|
6529 CharacterInputViewSingleton notNil ifTrue:[ |
|
6530 CharacterInputViewSingleton consumingView == self ifTrue:[ |
|
6531 CharacterInputViewSingleton closeRequest. |
|
6532 CharacterInputViewSingleton := nil |
|
6533 ] |
|
6534 ]. |
|
6535 |
6526 super release |
6536 super release |
|
6537 |
|
6538 "Modified: / 08-01-2019 / 18:16:31 / Claus Gittinger" |
6527 ! ! |
6539 ! ! |
6528 |
6540 |
6529 !EditTextView methodsFor:'macros'! |
6541 !EditTextView methodsFor:'macros'! |
6530 |
6542 |
6531 executeLearnedKeyboardMacro |
6543 executeLearnedKeyboardMacro |
7853 |
7865 |
7854 "Modified (format): / 15-02-2012 / 16:52:53 / cg" |
7866 "Modified (format): / 15-02-2012 / 16:52:53 / cg" |
7855 ! |
7867 ! |
7856 |
7868 |
7857 specialCharacters |
7869 specialCharacters |
7858 CharacterSetView |
7870 "open the special characters input window" |
7859 openAsInputFor:self |
7871 |
7860 label:'Special Character Input' |
7872 "CharacterInputViewSingleton := nil" |
7861 clickLabel:'Click to Insert Character'. |
7873 |
|
7874 (CharacterInputViewSingleton notNil and:[CharacterInputViewSingleton isOpen]) ifTrue:[ |
|
7875 CharacterInputViewSingleton consumingView:self. |
|
7876 CharacterInputViewSingleton topView raiseDeiconified. |
|
7877 ] ifFalse:[ |
|
7878 CharacterInputViewSingleton := |
|
7879 CharacterSetView |
|
7880 openAsInputFor:self |
|
7881 label:(resources string:'Special Character Input') |
|
7882 clickLabel:(resources string:'Click to Insert Character'). |
|
7883 ]. |
|
7884 |
|
7885 "Modified (comment): / 08-01-2019 / 18:24:13 / Claus Gittinger" |
7862 ! |
7886 ! |
7863 |
7887 |
7864 splitLinesAtCharacterOrString |
7888 splitLinesAtCharacterOrString |
7865 "ask user for the character and split after it" |
7889 "ask user for the character and split after it" |
7866 |
7890 |