diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-18 20:42:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-18 20:42:57 (GMT) |
| commit | 452f3387dfdfe45cb1fc59b28657e5111a2778d8 (patch) | |
| tree | 2963a8cef29c683ccc7d3ef33fc5ea2880230d88 /library/text.tcl | |
| parent | c0c401e9d4e7565e3d5b2adda77fe939fd766ee6 (diff) | |
| parent | ef0195454b1d958bcad88274c0246d0ac81b781c (diff) | |
| download | tk-452f3387dfdfe45cb1fc59b28657e5111a2778d8.zip tk-452f3387dfdfe45cb1fc59b28657e5111a2778d8.tar.gz tk-452f3387dfdfe45cb1fc59b28657e5111a2778d8.tar.bz2 | |
Merge 8.6. Also add <6> and <7> bindings for X11, where appropriate
Diffstat (limited to 'library/text.tcl')
| -rw-r--r-- | library/text.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/library/text.tcl b/library/text.tcl index 788a6b9..b5eaf4d 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -468,7 +468,7 @@ if {[tk windowingsystem] eq "aqua"} { } } -if {"x11" eq [tk windowingsystem]} { +if {[tk windowingsystem] eq "x11"} { # Support for mousewheels on Linux/Unix commonly comes through mapping # the wheel to the extended buttons. If you have a mousewheel, find # Linux configuration info at: @@ -493,6 +493,16 @@ if {"x11" eq [tk windowingsystem]} { %W xview scroll 50 pixels } } + bind Text <6> { + if {!$tk_strictMotif} { + %W xview scroll -50 pixels + } + } + bind Text <7> { + if {!$tk_strictMotif} { + %W xview scroll 50 pixels + } + } } # ::tk::TextClosestGap -- |