Posted to tcl by kostix at Fri Sep 15 22:11:31 GMT 2006view pretty

if {$::tcl_platform(platform) != "windows"} {
    event add <<ScrollUp>>    <4>
    event add <<ScrollDown>>  <5>
    event add <<ScrollLeft>>  <6>
    event add <<ScrollRight>> <7>
    event add <<ScrollLeft>>  <Shift-4>
    event add <<ScrollRight>> <Shift-5>
}