From 68521fbfc630715aaba0c1d685021b6ed077b6b5 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Mon, 9 Jul 2007 16:31:33 +0000 Subject: switch to Mac OS X standard key mapping for Cmd-T (fontpanel instead of 'send message' box) svn path=/trunk/; revision=7927 --- .../cmd-t-opens-fontpanel-0.41.0-test03.patch | 27 ++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch (limited to 'packages/patches') diff --git a/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch b/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch new file mode 100644 index 00000000..a280732f --- /dev/null +++ b/packages/patches/cmd-t-opens-fontpanel-0.41.0-test03.patch @@ -0,0 +1,27 @@ +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 16:29:16 -0000 +@@ -1618,6 +1619,7 @@ + } + + proc pdtk_canvas_ctrlkey {name key shift} { ++ global pd_nt + # first get rid of ".c" suffix; we'll refer to the toplevel instead + set topname [string trimright $name .c] + # puts stderr [concat ctrl-key $key $topname] +@@ -1658,7 +1659,11 @@ + if {$key == "v" || $key == "V"} {menu_paste $topname} + if {$key == "d" || $key == "D"} {menu_duplicate $topname} + if {$key == "a" || $key == "A"} {menu_selectall $topname} ++ if {$pd_nt == 2} { # by default, Cmd-T opens the font panel on Mac OS X ++ if {$key == "t" || $key == "T"} {menu_font $topname} ++ } else { + if {$key == "t" || $key == "T"} {menu_texteditor $topname} ++ } + if {$key == "f" || $key == "F"} {menu_findobject $topname} + if {$key == "g" || $key == "G"} {menu_findagain $topname} + } -- cgit v1.2.1