--- a/EditTextView.st Fri Apr 27 12:10:05 2018 +0200
+++ b/EditTextView.st Fri Apr 27 13:35:46 2018 +0200
@@ -5159,25 +5159,23 @@
Note, that middle button on X11 is translated to button
128 in Smalltalk/X - see XWorkstation class>>initializeConstants"
(button == #paste and:[device platformName == #X11]) ifTrue:[
+ "change the cursor position..."
+ super buttonPress:1 x:x y:y.
+ self buttonRelease:1 x:x y:y.
self undoableDo:[
self paste: (self getClipboardText:#selection).
].
- ^self.
+ ^ self.
].
(button == 1) ifTrue:[
self hideCursor
].
-"/ some very old code from times, when a right-click was a paste in X11
-"/
-"/ (button == #paste) ifTrue:[
-"/ self pasteOrReplace.
-"/ ^ self
-"/ ].
super buttonPress:button x:x y:y
"Modified: / 23-03-1999 / 13:51:40 / cg"
"Modified (comment): / 17-04-2012 / 21:02:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 27-04-2018 / 13:35:09 / stefan"
!
buttonRelease:button x:x y:y