Changed binding on <ButtonRelease-2> to be a binding on <<PasteSelection>>

FossilOrigin-Name: 5930de5d5be6662bcdc386d39edf66ea9ad08097

1 files changed, 5 insertions, 5 deletions

diff --git a/library/text.tcl b/library/text.tcl
index 9191a03..586d7bf 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -86,11 +86,6 @@ bind Text <ButtonRelease-1> {
 bind Text <Control-1> {
     %W mark set insert @%x,%y
 }
-bind Text <ButtonRelease-2> {
-    if {!$tkPriv(mouseMoved) || $tk_strictMotif} {
-	tkTextPaste %W %x %y
-    }
-}
 bind Text <Left> {
     tkTextSetCursor %W insert-1c
 }
@@ -254,6 +249,11 @@ bind Text <<Paste>> {
 bind Text <<Clear>> {
     catch {%W delete sel.first sel.last}
 }
+bind Text <<PasteSelection>> {
+    if {!$tkPriv(mouseMoved) || $tk_strictMotif} {
+	tkTextPaste %W %x %y
+    }
+}
 bind Text <Insert> {
     catch {tkTextInsert %W [selection get -displayof %W]}
 }