This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
Re: Xconq tcltk interface for the Mac
- From: mniw at sol dot dti dot ne dot jp (mniw)
- To: hronne at pp dot sbbs dot se
- Cc: xconq7 at sources dot redhat dot com
- Date: Tue, 2 Apr 2002 02:58:55 +0900 (JST)
- Subject: 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