From 708b6e7cb346c46e37146133acf2434088d6c903 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 9 Jul 2007 17:10:50 +0000 Subject: map Cmd-Click to toggle editmode on Mac OS X svn path=/trunk/; revision=7930 --- .../cmd-click_toggles_editmode-0.41.0-test03.patch | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 packages/patches/cmd-click_toggles_editmode-0.41.0-test03.patch diff --git a/packages/patches/cmd-click_toggles_editmode-0.41.0-test03.patch b/packages/patches/cmd-click_toggles_editmode-0.41.0-test03.patch new file mode 100644 index 00000000..2d41da36 --- /dev/null +++ b/packages/patches/cmd-click_toggles_editmode-0.41.0-test03.patch @@ -0,0 +1,25 @@ +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 {pdtk_canvas_click %W %x %y %b 6} + bind $name.c \ + {pdtk_canvas_click %W %x %y %b 7} ++ bind $name.c {pdtk_canvas_ctrlclick %W %x %y %b} + } else { + bind $name.c {pdtk_canvas_click %W %x %y %b 4} + bind $name.c {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} { -- cgit v1.2.1