#FEATURE by cg
class: EditTextView
comment/format in: #getTextSelectionFromHistory
changed: #pasteOrReplaceFromHistory
paste from history moves that item to the top of the
history list.
--- a/EditTextView.st Wed Oct 10 18:24:39 2018 +0200
+++ b/EditTextView.st Fri Oct 12 12:08:13 2018 +0200
@@ -6991,6 +6991,8 @@
|sel listOfPasteTextLines box history|
history := device getCopyBufferHistory copy.
+
+ "/ the list presents each first line only
listOfPasteTextLines :=
history collect:[:entry |
|text shown|
@@ -7478,6 +7480,8 @@
text := self getTextSelectionFromHistory.
text notNil ifTrue:[
+ "/ move to top of list.
+ device rememberInCopyBufferHistory:text.
self pasteOrReplace:text
]