summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles@noemail.net>1998-08-03 18:29:49 (GMT)
committersurles <surles@noemail.net>1998-08-03 18:29:49 (GMT)
commita1f889bf1f84ba517ef1eae83c74b01463cae72e (patch)
tree364b9c7d38c75e4106e124d5b14ebeaff81dc045
parent9d92f858dedcacc8ddef935b9a8204d437fe01f2 (diff)
downloadtk-a1f889bf1f84ba517ef1eae83c74b01463cae72e.zip
tk-a1f889bf1f84ba517ef1eae83c74b01463cae72e.tar.gz
tk-a1f889bf1f84ba517ef1eae83c74b01463cae72e.tar.bz2
Changed binding on <ButtonRelease-2> to be a binding on <<PasteSelection>>
FossilOrigin-Name: 5930de5d5be6662bcdc386d39edf66ea9ad08097
-rw-r--r--library/entry.tcl11
-rw-r--r--library/text.tcl10
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]}
}