🚀 go-pugleaf

立石＠JAISTです。

便乗質問ですが失礼致します。

nari@mxb.meshnet.or.jpさん(06月04日13時)：
nari>>======================= sample.c ============================
nari>>#include <tk.h>
nari>>
nari>>main()
nari>>{
nari>>  Tcl_Interp *interp;
nari>>  interp = Tcl_CreateInterp();
nari>>  if (Tcl_Init(interp) == TCL_ERROR) exit(1);
nari>>  if (Tk_Init(interp) == TCL_ERROR) exit(1);
nari>>  Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
nari>>  Tcl_Eval(interp,"button .exit -text exit -command exit;pack .exit");
nari>>  Tk_MainLoop();
nari>>  Tcl_DeleteInterp(interp);
nari>>  Tcl_Exit(0);
nari>>}
nari>>======================= sample.c  (ここまで) ================

これはTcl8.0/Tk8.0までなら正常に動作しますが、
Tcl8.1/Tk8.1だとcoreを吐いて死んでしまいます。
この症状は僕だけなのでしょう？
他の方はどうでしょう？

;; 今までどうやっても無理だったのであきらめていたのですが、、、
----------------------------------------------
Name	Takaaki Tateishi
E-Mail 	ttate@jaist.ac.jp
	tateishi@pluto.dti.ne.jp
URL	http://www.pluto.dti.ne.jp/~tateishi/
Org	School of Information Science
	Japan Advanced Institute of Science and Technology (JAIST)