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