EditTextView.st
changeset 6313 6bf4e512ddb9
parent 6310 53912415ce0e
child 6314 ac5b9324a82a
--- 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