pd/src u_main.tk,1.1.1.4.2.7.4.67,1.1.1.4.2.7.4.68 - Pd-cvs

11 May 2004


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10373
Modified Files:
      Tag: impd_0_37
    u_main.tk 
Log Message:
shift for horizontal scroll
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.67
retrieving revision 1.1.1.4.2.7.4.68
diff -C2 -d -r1.1.1.4.2.7.4.67 -r1.1.1.4.2.7.4.68
*** u_main.tk	10 May 2004 16:02:21 -0000	1.1.1.4.2.7.4.67
--- u_main.tk	11 May 2004 12:16:57 -0000	1.1.1.4.2.7.4.68
***************
*** 808,817 ****
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"
      }}
      #catch {image create photo mybackground -file "test2.gif"}
--- 808,821 ----
global pd_nt
!     switch $pd_nt { 0 {
! 	bind $name.c <Button-4>  "pdtk_canvas_scroll $name.c y -1"
!     	bind $name.c <Button-5>  "pdtk_canvas_scroll $name.c y +1"
! 	bind $name.c <Shift-Button-4>  "pdtk_canvas_scroll $name.c x -1"
!     	bind $name.c <Shift-Button-5>  "pdtk_canvas_scroll $name.c x +1"
      } default {
! 	bind $name.c  <MouseWheel> \
! 	    "pdtk_canvas_scroll $name.c y [expr -abs(%D)/%D]"
! 	bind $name.c  <Shift-MouseWheel> \
! 	    "pdtk_canvas_scroll $name.c x [expr -abs(%D)/%D]"
      }}
      #catch {image create photo mybackground -file "test2.gif"}
***************
*** 1144,1147 ****
--- 1148,1156 ----
  }
+ proc pdtk_canvas_scroll {canvas xy distance} {
+ 
+     $canvas [list $xy]view scroll $distance units
+ }
+ 
  proc pdtk_canvas_key {canvas x y key iso shift} {
  #    .controls.switches.meterbutton configure -text $key