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

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