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

gridflow-cvs at artengine.ca gridflow-cvs at artengine.ca
Sat Jan 16 08:05:22 EST 2010


Author: matju
Date: Sat Jan 16 08:05:21 2010
New Revision: 4891

Log:
disable unicode hack in case of hans-43 or desiredata

Modified:
    trunk/src/gridflow.cxx

Modified: trunk/src/gridflow.cxx
==============================================================================
--- trunk/src/gridflow.cxx (original)
+++ trunk/src/gridflow.cxx Sat Jan 16 08:05:21 2010
@@ -990,12 +990,12 @@
 	startup_format();
 	STARTUP_LIST()
 	//sys_gui("bind . <Motion> {puts %W}\n");
-	sys_gui("rename pdtk_canvas_sendkey pdtk_canvas_sendqui\n"
+	sys_gui("catch {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");
+	  "} 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"



More information about the Gridflow-cvs mailing list