diff options
author | surles <surles@noemail.net> | 1998-08-03 18:29:49 (GMT) |
---|---|---|
committer | surles <surles@noemail.net> | 1998-08-03 18:29:49 (GMT) |
commit | a1f889bf1f84ba517ef1eae83c74b01463cae72e (patch) | |
tree | 364b9c7d38c75e4106e124d5b14ebeaff81dc045 | |
parent | 9d92f858dedcacc8ddef935b9a8204d437fe01f2 (diff) | |
download | tk-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.tcl | 11 | ||||
-rw-r--r-- | 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]} } |