[Gridflow-cvs] [svn] commit: r4886 - /trunk/src/gridflow.cxx

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Mon Dec 21 23:41:47 EST 2009


Author: matju
Date: Mon Dec 21 23:41:47 2009
New Revision: 4886

Log:
UTF-8 hack so that accented letters may be typed in pd-extended

Modified:
    trunk/src/gridflow.cxx

Modified: trunk/src/gridflow.cxx
==============================================================================
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Mon Dec 21 23:41:47 2009
@@ -990,6 +990,18 @@
 	startup_format();
 	STARTUP_LIST()
 	//sys_gui("bind . <Motion> {puts %W}\n");
+	sys_gui("rename pdtk_canvas_sendkey pdtk_canvas_sendqui\n"
+	  "proc pdtk_canvas_sendkey {name state key iso shift} {\n"
+	  "if {$iso != \"\" && [lsearch {BackSpace Tab Return Escape Space Delete KP_Delete} $iso]<0} {\n"
+	  "  binary scan [encoding convertto $iso] c* bytes\n"
+	  "  foreach byte $bytes {pd [canvastosym $name] key $state [expr {$byte & 255}] $shift \\;}\n"
+	  "} else {pdtk_canvas_sendqui $name $state $key $iso $shift}}\n");
+#if 0
+	sys_gui("rename pdtk_text_new pdtk_text_nous\n"
+	        "proc pdtk_text_new {a b c d e f g} {pdtk_text_nous $a $b $c $d [encoding convertfrom $e] $f $g}\n"
+		"rename pdtk_text_set pdtk_text_sept\n"
+	        "proc pdtk_text_set {a b e        } {pdtk_text_sept $a $b       [encoding convertfrom $e]      }\n");
+#endif
 	sys_vgui("proc gridflow_add_to_help {menu} {\n"
 		   "$menu add separator\n"
 		   "$menu add command -label {GridFlow About} -command {pd pd open about.pd %s/doc \\;}\n"



More information about the Gridflow-cvs mailing list