Xconq tcltk interface for the Mac

[mniw]

When I tried "Quit" or "Resign", Segfault happened.
This patch seems to work?

--- tkconq.tcl.orig     Tue Apr  2 02:44:09 2002
+++ tkconq.tcl  Tue Apr  2 02:44:30 2002
@@ -3011,11 +3011,11 @@
 }
 
 proc bool_yes { mapn } {
-    interp_key $mapn "y" 0 0
+    interp_key $mapn "y" "y" 0 0
 }
 
 proc bool_no { mapn } {
-    interp_key $mapn "n" 0 0
+    interp_key $mapn "n" "n" 0 0
 }
 
 proc ask_bool_done { mapn } {
@@ -3079,7 +3079,7 @@
        set_unit_type $map_number($map) [ utype_actual $n ]
        # Arguments are dummies, this is effectively a pseudo-event
        # that gets the modalhandler function to run.
-       interp_key $map_number($map) a 0 0
+       interp_key $map_number($map) a a 0 0
     }
 }
 
---
MA dunzi <mniw@sol.dti.ne.jp> http://tadalunch.s5.xrea.com/xconq/index.html