Posted to tcl by kostix at Fri Sep 15 22:11:31 GMT 2006view raw
- 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>
- }