[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.22,1.1.1.4.2.7.4.23

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17259

Modified Files:
      Tag: impd_0_37
	u_main.tk 
Log Message:
mousewheel support on OSX.


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.22
retrieving revision 1.1.1.4.2.7.4.23
diff -C2 -d -r1.1.1.4.2.7.4.22 -r1.1.1.4.2.7.4.23
*** u_main.tk	25 Mar 2004 02:38:31 -0000	1.1.1.4.2.7.4.22
--- u_main.tk	26 Mar 2004 07:12:12 -0000	1.1.1.4.2.7.4.23
***************
*** 717,722 ****
      }
  
!     bind $name.c <Button-4> "$name.c yview scroll -1 units"
!     bind $name.c <Button-5> "$name.c yview scroll +1 units"
      #image create photo lena -file "/home/matju/lena.ppm"
      #$name.c create image 0 0 -image lena -anchor nw
--- 717,728 ----
      }
  
!     global pd_nt
!     switch $pd_nt { 2 {
!         bind $name.c  <MouseWheel> \
! 		"$name.c yview scroll \[expr -abs(%D)/%D\] units"
!     } default {
! 	bind $name.c <Button-4> "$name.c yview scroll -1 units"
!     	bind $name.c <Button-5> "$name.c yview scroll +1 units"
!     }}
      #image create photo lena -file "/home/matju/lena.ppm"
      #$name.c create image 0 0 -image lena -anchor nw
***************
*** 1917,1920 ****
--- 1923,1932 ----
  	} errMsg
  	if {[string compare "" $errMsg] != 0} {puts stderr "ERROR: $errMsg"}
+ 	global pd_nt
+ 	switch $pd_nt { 2 {
+ 		bind .log.1 <MouseWheel> {
+ 			.log.1 yview scroll [expr -2-abs(%D)/%D] units
+ 		}
+ 	}}
  }