[Sguil-cvs] sguil/client sguil.tk,1.216,1.217

[Bamm V. <ba...@us...>]

Update of /cvsroot/sguil/sguil/client
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31948

Modified Files:
	sguil.tk 
Log Message:
Added proc WheelEvent to fix mouse wheel for windows.


Index: sguil.tk
===================================================================
RCS file: /cvsroot/sguil/sguil/client/sguil.tk,v
retrieving revision 1.216
retrieving revision 1.217
diff -C2 -d -r1.216 -r1.217
*** sguil.tk	15 Feb 2006 23:08:59 -0000	1.216
--- sguil.tk	17 Feb 2006 16:20:38 -0000	1.217
***************
*** 2735,2738 ****
--- 2735,2743 ----
  }
  
+ # Do mouse wheel magic on winders
+ if { $tcl_platform(platform) == "windows" } {
+     bind all <MouseWheel> { WheelEvent %X %Y %D }
+ }
+ 
  # Down arrow moves selected event down one.
  # Ctl right/left arrow selects next/prev tab