🚀 go-pugleaf

 $B;32<(B@$B=)EDBg$H?=$7$^$9!%8=:_!$(BC$B8@8l$N%W%m%0%i%`$+$i(Btk$B%&%$%8%'%C%H$r8F$S=P$7$F!$(B
C$B8@8lCf$G7W;;$7$?7k2L$r%j%"%k%?%$%`$GI=<($5$;$k%D!<%k$r:n$C$F$$$^$9!%(B
 $B$=$NCf$G!$%D!<%k$N30OHItJ,$r@8@.$9$k%k!<%A%s$,$"$j$^$7$F!$$=$3$G30OH$r@8@.$7(B
$B$?D>8e$K(Bupdate$B%3%^%s%I$r<B9T$5$;!$$=$N30OHJB$S$K%\%?%s$d%j%9%H%\%C%/%9Ey$N4pK\(B
$BE*$J%&%$%8%'%C%H$r2hLL>e$KI=<($5$;$k$N$G$9$,!$$=$3$G@8@.$5$l$?%\%?%s$d%a%K%e!<(B
$BEy$r2!$7$?$j3+$+$;$?$j$9$k;v$,=PMh$^$;$s!%DL>o$O(BTk_MainLoop $B$rMQ$$$k$H;W$&$N$G(B
$B$9$,!$$3$l$rMQ$$$k$H=hM}$,$=$3$G;_$^$C$F$7$^$&0Y!$$3$NMM$J%D!<%k$K$O;HMQ=PMh$^(B
$B$;$s!%(B
 $B$3$N>uBV$r4JC1$KI=$7$?$N$,2<5-$N%W%m%0%i%`$G$9!%(B

-------------------------------------------------------------------
#include<stdio.h>
#include"tcl.h"
#include"tk.h"


main(){
 Tcl_Interp *interp;
 int code;

 interp = Tcl_CreateInterp();

 if((code = Tcl_Init(interp)) == TCL_ERROR)
    exit(1);

 if((code = Tk_Init(interp)) == TCL_ERROR)
    exit(1);


 code = Tcl_EvalFile(interp , "sample");
 Tcl_Eval(interp , "update");

printf("test flush");
 
sleep(60);

  exit(0);

}

------- "sample"-----------------------------
button .b -text testbutton -command exit;
pack .b;

----------------------------------------------------------------------

$B$3$NMM$K!$(Btcl$B%9%/%j%W%H(B"sample" $B$r(BC$B$NCf$G<B9T$5$;%\%?%s(B.b$B$rI=<($7$?$^$^<!$N=hM}(B
($B>e$NNc$G$O(B printf("test flush"); )$B$r9T$$$?$$$N$G$9$,!$$3$NI=<($5$l$?%\%?%s(B.b$B$r(B
$B2!$9;v$,=PMh$^$;$s!%(B
 $B$3$NMM$J>l9g!$$I$&$9$l$PNI$$$N$G$7$g$&$+(B?
	
................................................
.--  @ @    $B=)EDBg3X9[;33XItEE5$EE;R9)3X2J(B     .
.-- ( - )   $B:dED8&5f<<(B($BDL?.9)3X(B) $B;32<(B $B?.Li(B     .
.   e-mail: shinya@sakata-lab.ee.akita-u.ac.jp .
................................................