🚀 go-pugleaf

  $BAR66!wElBg$G$9!#(B

On Fri Nov 14 1997 14:08:57
	shinya@uws10.akita-u.ac.jp wrote in <64gmd9$eir$1@tegata.akita-u.ac.jp> :

+ #include<stdio.h>
+ #include<tcl.h>
+ #include<tk.h>
+  
+ void main(int argc , char *argv[]) {
+   Tcl_Interp *inter;
+   int code;
+ 
+  if (argc <= 1) {
+   fprintf(stderr , "Usage %s : scriptfile\n" , argv[0]);
+   exit(255);
+ }
+ 
+  inter = Tcl_CreateInterp();
   if(Tcl_Init(interp) == TCL_ERROR)
       exit(1);
   if(Tk_Init(interp) == TCL_ERROR)
       exit(1);
+  code = Tcl_EvalFile(inter , argv[1]);
   Tk_MainLoop();
+  exit(0);
+ }

  $B$G$I$&$G$7$g$&(B? $B<+:n$N$b$N$O$3$N<j=g$GF0$$$F$$$^$9(B(Tcl7.6jp/Tk4.2jp)$B!#(B

+  $B$A$J$_$K:G=*E*$K$O(BC$B$N%W%m%0%i%`Cf$N!$(B1$BJ,CV$-$K99?7$5$l$k%G!<%?$r(BCanvas $B>e$G!$(B
+ $B%j%"%k%?%$%`$G%0%i%U$K$7$FI=<($7$?$$$H;W$C$F$$$^$9(B

  $B;d$b;w$?$h$&$J%D!<%k:n$C$F8&5f$K;HMQ$7$F$$$^$9!#4hD%$C$F2<$5$$!#(B
-- 
$BAR66(B  $BCRI'(B                  E-Mail  : kura@melchior.q.t.u-tokyo.ac.jp
Tomohiko Kurahashi          HomePage: http://selina.q.t.u-tokyo.ac.jp/~kura/