[PD-cvs] packages/patches cmd-click_toggles_editmode-0.41.0-test03.patch, NONE, 1.1

Hans-Christoph Steiner eighthave at users.sourceforge.net
Mon Jul 9 19:10:52 CEST 2007


Update of /cvsroot/pure-data/packages/patches
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29492

Added Files:
	cmd-click_toggles_editmode-0.41.0-test03.patch 
Log Message:
map Cmd-Click to toggle editmode on Mac OS X

--- NEW FILE: cmd-click_toggles_editmode-0.41.0-test03.patch ---
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.17.2.16
diff -u -w -r1.17.2.16 u_main.tk
--- u_main.tk	8 Jul 2007 21:56:30 -0000	1.17.2.16
+++ u_main.tk	9 Jul 2007 17:04:42 -0000
@@ -1194,6 +1194,7 @@
         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}
         bind $name.c <Alt-Shift-Button> {pdtk_canvas_click %W %x %y %b 5}
@@ -1514,7 +1515,8 @@
 }
 
 proc pdtk_canvas_ctrlclick {name x y b} {
-    pd [canvastosym $name] mouse [$name canvasx $x] [$name canvasy $y] $b 2 \;
+# first get rid of ".c" suffix; we'll refer to the toplevel instead
+	 menu_editmode [string trimright $name .c]
 }
 
 proc pdtk_canvas_altclick {name x y b} {





More information about the Pd-cvs mailing list