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