diff options
Diffstat (limited to 'library/entry.tcl')
| -rw-r--r-- | library/entry.tcl | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/library/entry.tcl b/library/entry.tcl index 2aab934..9cc9f6f 100644 --- a/library/entry.tcl +++ b/library/entry.tcl @@ -293,14 +293,27 @@ bind Entry <<TkAccentBackspace>> { # A few additional bindings of my own. -bind Entry <2> { - if {!$tk_strictMotif} { - ::tk::EntryScanMark %W %x +if {[tk windowingsystem] ne "aqua"} { + bind Entry <2> { + if {!$tk_strictMotif} { + ::tk::EntryScanMark %W %x + } } -} -bind Entry <B2-Motion> { - if {!$tk_strictMotif} { - ::tk::EntryScanDrag %W %x + bind Entry <B2-Motion> { + if {!$tk_strictMotif} { + ::tk::EntryScanDrag %W %x + } + } +} else { + bind Entry <3> { + if {!$tk_strictMotif} { + ::tk::EntryScanMark %W %x + } + } + bind Entry <B3-Motion> { + if {!$tk_strictMotif} { + ::tk::EntryScanDrag %W %x + } } } |