equal
deleted
inserted
replaced
6879 mainItems := mainItems , #( |
6879 mainItems := mainItems , #( |
6880 ('Copy Box' copySelectionBox CopyBox ) |
6880 ('Copy Box' copySelectionBox CopyBox ) |
6881 ('Paste Box' pasteOrReplaceBox PasteBox )) |
6881 ('Paste Box' pasteOrReplaceBox PasteBox )) |
6882 ] ifFalse:[ |
6882 ] ifFalse:[ |
6883 mainItems := mainItems , #( |
6883 mainItems := mainItems , #( |
6884 ('Copy' copySelection Copy ) |
6884 ('Copy' copySelection Copy ) |
6885 ('Paste' pasteOrReplace Paste )) |
6885 ('Paste' pasteOrReplace Paste ) |
|
6886 ('Paste...' pasteOrReplaceFromHistory PasteFromHistory )) |
6886 ]. |
6887 ]. |
6887 mainItems := mainItems , #( |
6888 mainItems := mainItems , #( |
6888 ('-' ) |
6889 ('-' ) |
6889 ('Accept' accept Accept ) |
6890 ('Accept' accept Accept ) |
6890 ('=' ) |
6891 ('=' ) |
7948 sel notNil ifTrue:[ |
7949 sel notNil ifTrue:[ |
7949 aBlock value:self value:sel. |
7950 aBlock value:self value:sel. |
7950 ] |
7951 ] |
7951 |
7952 |
7952 "Modified: / 11-11-2017 / 12:52:31 / cg" |
7953 "Modified: / 11-11-2017 / 12:52:31 / cg" |
|
7954 ! |
|
7955 |
|
7956 withSelfAndTextForPasteFromHistoryDo:aBlock |
|
7957 "common code for paste/replace from the copyBuffer history" |
|
7958 |
|
7959 |sel| |
|
7960 |
|
7961 (self checkModificationsAllowedFlashIfNot:true) ifFalse:[^ self]. |
|
7962 sel := self getTextSelectionFromHistory. |
|
7963 sel notNil ifTrue:[ |
|
7964 aBlock value:self value:sel. |
|
7965 ] |
|
7966 |
|
7967 "Modified: / 11-11-2017 / 12:52:31 / cg" |
7953 ! ! |
7968 ! ! |
7954 |
7969 |
7955 !EditTextView methodsFor:'private'! |
7970 !EditTextView methodsFor:'private'! |
7956 |
7971 |
7957 beep |
7972 beep |