[PD-cvs] pd/src u_main.tk,1.17.2.17,1.17.2.18

[Hans-Christoph Steiner]

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

Modified Files:
      Tag: branch-v0-39-2-extended
	u_main.tk 
Log Message:
map Cmd-Click to toggle editmode on Mac OS X

Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.17
retrieving revision 1.17.2.18
diff -C2 -d -r1.17.2.17 -r1.17.2.18
*** u_main.tk	9 Jul 2007 17:08:37 -0000	1.17.2.17
--- u_main.tk	9 Jul 2007 17:09:25 -0000	1.17.2.18
***************
*** 1195,1198 ****
--- 1195,1199 ----
          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}
***************
*** 1515,1519 ****
  
  proc pdtk_canvas_ctrlclick {name x y b} {
!     pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b 2 \;
  }
  
--- 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]
  }