From a1f889bf1f84ba517ef1eae83c74b01463cae72e Mon Sep 17 00:00:00 2001
From: surles <surles@noemail.net>
Date: Mon, 3 Aug 1998 18:29:49 +0000
Subject: Changed binding on <ButtonRelease-2> to be a binding on
 <<PasteSelection>>

FossilOrigin-Name: 5930de5d5be6662bcdc386d39edf66ea9ad08097
---
 library/entry.tcl | 11 +++++------
 library/text.tcl  | 10 +++++-----
 2 files changed, 10 insertions(+), 11 deletions(-)

diff --git a/library/entry.tcl b/library/entry.tcl
index 3a86498..62ee9b2 100644
--- a/library/entry.tcl
+++ b/library/entry.tcl
@@ -31,7 +31,6 @@
 #-------------------------------------------------------------------------
 # The code below creates the default class bindings for entries.
 #-------------------------------------------------------------------------
-
 bind Entry <<Cut>> {
     if {![catch {set data [string range [%W get] [%W index sel.first]\
 	    [expr {[%W index sel.last] - 1}]]}]} {
@@ -62,6 +61,11 @@ bind Entry <<Paste>> {
 bind Entry <<Clear>> {
     %W delete sel.first sel.last
 }
+bind Entry <<PasteSelection>> {
+    if {!$tkPriv(mouseMoved) || $tk_strictMotif} {
+	tkEntryPaste %W %x
+    }
+}
 
 # Standard Motif bindings:
 
@@ -108,11 +112,6 @@ bind Entry <ButtonRelease-1> {
 bind Entry <Control-1> {
     %W icursor @%x
 }
-bind Entry <ButtonRelease-2> {
-    if {!$tkPriv(mouseMoved) || $tk_strictMotif} {
-	tkEntryPaste %W %x
-    }
-}
 
 bind Entry <Left> {
     tkEntrySetCursor %W [expr {[%W index insert] - 1}]
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]}
 }
-- 
cgit v0.12