🚀 go-pugleaf

> UNIX$B8GM-$N%$%s%/%k!<%I%U%!%$%k$r=$@5$9$l$P%3%s%Q%$%k$O@.8y$9$k$N$G$9$,!"(B
> $B%W%m%0%i%`$r<B9T$5$;$k$H!"(B
>  Tcl_EvalFile(interp, "GUI.tcl");
> $B$J$I$H$7$?$H$3$m$G(BTCL_ERR$B$,JV$C$F$-$F$7$^$$!"8e$N=hM}$,$G$-$^$;$s!#(B
> Tk-library$B$,$*$+$l$F$$$k%G%#%l%/%H%j$,;2>H$G$-$F$$$J$$$N$G$O$J$$$+(B
> $B$H;W$$$^$9$,!"3NG'$G$-$^$;$s!#K\Mh$O(BtclIndex$B$r$-$A$s$H:n@.$9$Y$-$J$N(B
> $B$G$7$g$&$,!"J}K!$,$h$/$o$+$i$J$$$N$G!"(BUNIX$B$G$O!"(B

  $B$J$K$,5/$3$C$F$$$k$N$+3NG'$G$-$J$$$J$i$P(Binterp->result 
$B$d(B Tcl_GetVar $B$G(B errorInfo $B$J$I$r8+$F$O$I$&$G$7$g$&$+!)(B

$B$"$H!"G0$N$?$a(B ...

  tclIndex($B$D$^$j%*!<%H%m!<%I(B)$B$N5!G=$O(Btcl-library$B$N(B
init.tcl$B!"(Bwigdet$B$N%$%Y%s%H$KBP$9$kH?1~$H!"%(%i!<Js9p$N%@(B
$B%$%"%m%0$O(Btk-library$B$N(Btk.tcl$B$K$h$C$F<B8=$5$l$^$9!#(B
  $B$3$l$i$O(BTcl_Init$B!"(BTk_Init$B$G$=$l$>$l(Bsource$B$5$l$^$9$N$G!"(B
$BLa$jCM$r8+$F(Bsource($B$HB>$N=i4|2=(B)$B$,@.8y$7$?$+3NG'$r$9$k$Y(B
$B$-$G$9!#(Blibrary $B$NC5:w$O%G%#%l%/%H%j9=B$$K0MB8$9$k%k!<%k(B
$B$G9T$J$o$l$k$N$GI8=`$H0[$J$k4D6-$G<B9T$9$k$H<:GT$9$k2DG=(B
$B@-$,$"$j$^$9!#(B
  $B4D6-JQ?t(BTCL_LIBRARY$B!"(BTK_LIBRARY$B$r@_Dj$9$k$3$H$GL@<(E*(B
$B$K;XDj$b$G$-$^$9$,(BNT4.0$B$C$F4D6-JQ?t$^$@$D$+$($^$9!)(B


> Windows$BHG$G$O(BX-Window$B$NIA2h4X?t$r(BWindows$B$N(BAPI-Call$B$K%^%C%W$9$k4X?t72$,(B
> $BIUB0$9$k$?$a!"(BUNIX$B$+$i(BWindows$B$X$N0\?"$N<j4V$,:G>.$K$J$k!V$O$:!W$G$9$,!"(B
> $B$3$NCJ3,$G$D$^$E$$$F$*$j!"@h$X$9$9$a$^$;$s!#(B

> Windows$BHG(BTcl/Tk$B$H(BC$B%W%m%0%i%`$N%j%s%/J}K!$K$D$$$F$I$J$?$+(B
> $B$4B8CN$NJ}$O$$$i$C$7$c$$$^$9$G$7$g$&$+!)(B

$B8@MUDL$j$K%j%s%/$rB*$($k$J$i(BDLL$B$K$7$F$7$^$C$F(Bload
$B%3%^%s%I$G%m!<%I$9$k$N$,!"%9%^!<%H$G$O$J$$$G$7$g$&$+!#(B

$B%O%$%V%j%C%I$G:n@.$9$kJ}K!$H$$$&$N$G$"$l$P!"(B
$B>u67$,8B$i$l$k$+$bCN$l$^$;$s$,!"$*4+$a$O(Bwish$B$r2~B$$9$k$3(B
$B$H$G$9!#$3$l$@$H$*LsB+$N=i4|2=$NItJ,$rA4It!V$*$^$+$;!W$K(B
$B$G$-$^$9$7!"8=<B$KF0$$$F$$$k$b$N$+$i%9%?!<%H$9$k$3$H$,$G(B
$B$-$^$9!#(B

$BK'2l(B $BIRI'(B haga@sra.co.jp