summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorsurles <surles>1998-08-03 18:29:50 (GMT)
committersurles <surles>1998-08-03 18:29:50 (GMT)
commit946102f185b1d07fb3384ac40dd4eceb19ea7623 (patch)
tree364b9c7d38c75e4106e124d5b14ebeaff81dc045
parent622ca64595ff70d8ab17aad14471162b8031d86e (diff)
downloadtk-946102f185b1d07fb3384ac40dd4eceb19ea7623.zip
tk-946102f185b1d07fb3384ac40dd4eceb19ea7623.tar.gz
tk-946102f185b1d07fb3384ac40dd4eceb19ea7623.tar.bz2
Changed binding on <ButtonRelease-2> to be a binding on <<PasteSelection>>
-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]}
}