This is the mail archive of the xconq7@sources.redhat.com mailing list for the Xconq project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: Xconq tcltk interface for the Mac


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]