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> }