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

1 files changed, 5 insertions, 6 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}]