diff options
| -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]} } |