equal
deleted
inserted
replaced
23 wordWrap replacementWordSelectStyle acceptChannel acceptEnabled |
23 wordWrap replacementWordSelectStyle acceptChannel acceptEnabled |
24 st80Mode disableIfInvisible cursorMovementWhenUpdating learnMode |
24 st80Mode disableIfInvisible cursorMovementWhenUpdating learnMode |
25 learnedMacro cursorLineHolder cursorColHolder tabRequiresControl |
25 learnedMacro cursorLineHolder cursorColHolder tabRequiresControl |
26 undoSupport lastStringFromReplaceForNextSearch |
26 undoSupport lastStringFromReplaceForNextSearch |
27 lastReplacementInfo completionSupport codeAspectHolder' |
27 lastReplacementInfo completionSupport codeAspectHolder' |
28 classVariableNames:'DefaultCursorForegroundColor DefaultCursorBackgroundColor |
28 classVariableNames:'DefaultCursorBackgroundColor DefaultCursorForegroundColor |
29 DefaultCursorType DefaultCursorNoFocusForegroundColor |
29 DefaultCursorNoFocusForegroundColor DefaultCursorType |
30 DefaultCursorTypeNoFocus LastColumnNumberForSort Macros' |
30 DefaultCursorTypeNoFocus LastColumnNumberForSort Macros' |
31 poolDictionaries:'' |
31 poolDictionaries:'' |
32 category:'Views-Text' |
32 category:'Views-Text' |
33 ! |
33 ! |
34 |
34 |
7734 "ask user for the character and split after it" |
7734 "ask user for the character and split after it" |
7735 |
7735 |
7736 |sel in out separator record| |
7736 |sel in out separator record| |
7737 |
7737 |
7738 selectionStartLine isNil ifTrue:[^ self]. |
7738 selectionStartLine isNil ifTrue:[^ self]. |
|
7739 self checkModificationsAllowed ifFalse:[^ self]. |
7739 |
7740 |
7740 separator := Dialog request:(resources string:'Split selected lines after which separator character or string:'). |
7741 separator := Dialog request:(resources string:'Split selected lines after which separator character or string:'). |
7741 separator isEmptyOrNil ifTrue:[^ self]. |
7742 separator isEmptyOrNil ifTrue:[^ self]. |
7742 |
7743 |
7743 sel := self selectionAsString. |
7744 sel := self selectionAsString. |
7750 self |
7751 self |
7751 undoableDo:[ |
7752 undoableDo:[ |
7752 self replaceSelectionBy:(out contents). |
7753 self replaceSelectionBy:(out contents). |
7753 ] |
7754 ] |
7754 info:'Split Selection' |
7755 info:'Split Selection' |
|
7756 |
|
7757 "Modified: / 15-11-2017 / 11:56:45 / cg" |
7755 ! |
7758 ! |
7756 |
7759 |
7757 undoablePaste:someText |
7760 undoablePaste:someText |
7758 self undoablePaste:someText info:nil. |
7761 self undoablePaste:someText info:nil. |
7759 |
7762 |