[PD-cvs] pd/src u_main.tk,1.17.2.19,1.17.2.20

Hans-Christoph Steiner eighthave at users.sourceforge.net
Wed Jul 11 23:55:47 CEST 2007


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

Modified Files:
      Tag: branch-v0-39-2-extended
	u_main.tk 
Log Message:
switched Cmd-Click to the more Pd-ish behavior that Ctrl-Click has on the other platforms

Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.19
retrieving revision 1.17.2.20
diff -C2 -d -r1.17.2.19 -r1.17.2.20
*** u_main.tk	9 Jul 2007 18:40:26 -0000	1.17.2.19
--- u_main.tk	11 Jul 2007 21:55:45 -0000	1.17.2.20
***************
*** 1193,1199 ****
          bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x %y %b 5}
          bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x %y %b 6}
          bind $name.c <Option-Control-Shift-Button> \
              {pdtk_canvas_click %W %x %y %b 7}
-         bind $name.c <Mod1-Button> {pdtk_canvas_ctrlclick %W %x %y %b}
      } else {
          bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4}
--- 1193,1199 ----
          bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x %y %b 5}
          bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x %y %b 6}
+         bind $name.c <Mod1-Button> {pdtk_canvas_click %W %x %y %b 6}
          bind $name.c <Option-Control-Shift-Button> \
              {pdtk_canvas_click %W %x %y %b 7}
      } else {
          bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4}
***************
*** 1516,1521 ****
  
  proc pdtk_canvas_ctrlclick {name x y b} {
! # first get rid of ".c" suffix; we'll refer to the toplevel instead
! 	 menu_editmode [string trimright $name .c]
  }
  
--- 1516,1520 ----
  
  proc pdtk_canvas_ctrlclick {name x y b} {
!     pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b 2 \;
  }
  





More information about the Pd-cvs mailing list