🚀 go-pugleaf

  $B0f8}!wIY;NDL$G$9!#(B

  Tcl_Eval $B$NBh(B2$B0z?t$O(B writable memory $B$G$J$1$l$P$J$i$J$$(B
$B$N$G0J2<$N$h$&$KD>$9I,MW$,$"$j$^$9!#(B

  $B%=%U%H%P%s%/$+$i=P$F$$$k(B $B!X(BTcl & Tk$B%D!<%k%-%C%H!Y$G$b(B
$B$=$&$7$J$$$H!H%3%"%@%s%W$,5/$3$k!I$h$H=q$+$l$F$$$^$9!#(B

$B!t$+$/8@$&;d$b$O$^$j$^$7$?(B (^_^;)

======================= sample.c ============================
#include <tk.h>

main()
{
  char buf[256];

  Tcl_Interp *interp;
  interp = Tcl_CreateInterp();
  if (Tcl_Init(interp) == TCL_ERROR) exit(1);
  if (Tk_Init(interp) == TCL_ERROR) exit(1);
  Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);

  strcpy(buf, "button .exit -text exit -command exit;pack .exit");
  Tcl_Eval(interp, buf);

  Tk_MainLoop();
  Tcl_DeleteInterp(interp);
  Tcl_Exit(0);
}
======================= sample.c  ($B$3$3$^$G(B) ================


<6lgv6n$kn6$1@jaist-news.jaist.ac.jp>$B$N5-;v$K$*$$$F(B
ttate@jaist.ac.jp$B$5$s$O=q$-$^$7$?!#(B

> $B$3$l$O(BTcl8.0/Tk8.0$B$^$G$J$i@5>o$KF0:n$7$^$9$,!"(B
> Tcl8.1/Tk8.1$B$@$H(Bcore$B$rEG$$$F;`$s$G$7$^$$$^$9!#(B
> $B$3$N>I>u$OKM$@$1$J$N$G$7$g$&!)(B
> $BB>$NJ}$O$I$&$G$7$g$&!)(B

--------------------------------------------------------------------
[$B0f8}(B   $B9n8J(B   ] $BIY;NDL(B $B@n:j9)>l(B CAD$BK\It(B CAD$B3+H/E}3gIt(B $BBh0l(BCAD$B3+H/It(B
[IGUCHI Katsumi] Email: igu@fd.cad.fujitsu.co.jp  Nifty-ID: GDG03031