[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