🚀 go-pugleaf

$B$D$+$b$H!w%j%`%M%C%H(B $B$G$9!#(B

$B0JA0!"(Btk4.0$B$G%U%k%+%i!<$N%$%a!<%8$,I=<($G$-$J$$!"$H?=$7>e$2$?(B
$B$H$3$m!"ED8}!w#A#I#C$5$s$K%"%I%P%$%9$r<u$1$?;v$K4X$9$k!"%j%W%i(B
$B%$$,BgJQCY$/$J$C$F$9$_$^$;$s$G$7$?!#7kO@$r$$$($P!"(B

  frame .f -visual truecolor

$B$H$9$k$H%U%k%+%i!<I=<($,$G$-$^$7$?!#$?$@$7!"(Bwin41a1$B$r(BWindowsNT$B>e(B
$B$GF0$+$9$H$3$N$h$&$J;XDj$r$7$J$/$F$b%U%k%+%i!<I=<($,$G$-$^$7$?!#(B
  $B$^$?(Bgif$B7A<0$N%U%!%$%k$G%U%k%+%i!<I=<($,$G$-$J$$$HJQ$J$3$H$r?=(B
$B$7$"$2$F$7$^$$$^$7$?$,!"%a!<%k$G!V(Bgif$B7A<0$O(B256$B?'$^$G$@$h!W$H$$$&(B
$B;XE&$b$4$6$$$^$7$?!#BgJQ$P$+$J<ALd$r$7$F$7$^$C$?$3$H$r$*OM$S$$$?(B
$B$7$^$9!#(B
  $B$"$H$$$m$$$m$d$C$F$_$?$3$H$K4X$7$F$N46A[$r>/$7$P$+$j=q$+$;$F$$(B
$B$?$@$/$H!"(B

$BBg$-$5(B1280x1028 $B$N(Bimagefile$B$H$$L>$N(Bppm$B7A<0%$%a!<%8%U%!%$%k$r(B
$BMQ0U$7$F$*$$$F(B  

   set img [image create photo img -file imagefile]
   set can [canvas .can -width 1280 -height 1028]

   $can create image 0 0 -image $img -anchor nw
   
$B$J$I$H%W%m%0%i%`$r=q$/$H%W%m%0%i%`$NN)$A>e$,$j$,0[>o$KCY$$$G$9$M!#(B
$B>e$N%W%m%0%i%`$rJ#?t2s7+$jJV$9$H%P%0$J$N$G$O$J$$$+$H5?$C$F$7$^$&(B
$B$[$ICY$$$G$9!#$3$l$O:#$N$H$3$m$7$g$&$,$J$$$3$H$J$N$G$7$g$&$+!#(B

-- 
tukachan@yk.rim.or.jp