[PD-cvs] SF.net SVN: pure-data: [9777] trunk/packages/patches/fix_backspace_delete-0 .41.4.patch
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Fri May 9 21:47:11 CEST 2008
Revision: 9777
http://pure-data.svn.sourceforge.net/pure-data/?rev=9777&view=rev
Author: eighthave
Date: 2008-05-09 12:47:11 -0700 (Fri, 09 May 2008)
Log Message:
-----------
fixed up Tab, Space, Return, Escape for [key]/[keyup]/[keyname]
Modified Paths:
--------------
trunk/packages/patches/fix_backspace_delete-0.41.4.patch
Modified: trunk/packages/patches/fix_backspace_delete-0.41.4.patch
===================================================================
--- trunk/packages/patches/fix_backspace_delete-0.41.4.patch 2008-05-09 19:42:33 UTC (rev 9776)
+++ trunk/packages/patches/fix_backspace_delete-0.41.4.patch 2008-05-09 19:47:11 UTC (rev 9777)
@@ -2,20 +2,21 @@
===================================================================
--- g_editor.c (revision 9725)
+++ g_editor.c (working copy)
-@@ -1468,9 +1468,16 @@
- gotkeysym = av[1].a_w.w_symbol;
+@@ -1469,8 +1469,18 @@
else if (av[1].a_type == A_FLOAT)
{
-- char buf[3];
+ char buf[3];
- sprintf(buf, "%c", (int)(av[1].a_w.w_float));
- gotkeysym = gensym(buf);
-+ if ((int)(av[1].a_w.w_float) == 8)
-+ gotkeysym = gensym("BackSpace");
-+ else if ((int)(av[1].a_w.w_float) == 127)
-+ gotkeysym = gensym("Delete");
-+ else
++ switch((int)(av[1].a_w.w_float))
+ {
-+ char buf[3];
++ case 8: gotkeysym = gensym("BackSpace"); break;
++ case 9: gotkeysym = gensym("Tab"); break;
++ case 10: gotkeysym = gensym("Return"); break;
++ case 27: gotkeysym = gensym("Escape"); break;
++ case 32: gotkeysym = gensym("Space"); break;
++ case 127:gotkeysym = gensym("Delete"); break;
++ default:
+ sprintf(buf, "%c", (int)(av[1].a_w.w_float));
+ gotkeysym = gensym(buf);
+ }
@@ -39,7 +40,7 @@
bind $name.c <Motion> {pdtk_canvas_motion %W %x %y 0}
bind $name.c <Control-Motion> {pdtk_canvas_motion %W %x %y 2}
if {$pd_nt == 2} {
-@@ -1603,44 +1603,21 @@
+@@ -1603,44 +1603,33 @@
pdtk_canvas_checkgeometry [canvastosym $name]
}
@@ -62,6 +63,18 @@
+ if {$key == "BackSpace"} {
+ set iso ""
+ set key 8
++ } elseif {$key == "Tab"} {
++ set iso ""
++ set key 9
++ } elseif {$key == "Return"} {
++ set iso ""
++ set key 10
++ } elseif {$key == "Escape"} {
++ set iso ""
++ set key 27
++ } elseif {$key == "Space"} {
++ set iso ""
++ set key 32
+ } elseif {$key == "Delete" || $key == "KP_Delete"} {
+ set iso ""
+ set key 127
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the Pd-cvs
mailing list