🚀 go-pugleaf

In article <4e4ket$bg4@news.yk.rim.or.jp>, tukachan@yk.rim.or.jp wrote:

$B$D$+$b$H!w%j%`%M%C%H(B $B$G$9!#;d$,Ej9F$7$?0J2<$N<ALd$KBP$7$F!"4v$D$+$N(B
$B%j%W%i%$%a!<%k$r$$$?$@$-$^$7$?!#(B

>option $B%3%^%s%I$K$D$$$F65$($F$/$@$5$$!#(B
>-----------------------------------------------------------------------------
>#!/usr/local/bin/wish4.0
>
>frame .f 
>pack .f
>button .f.b -text "change bg color"  -command "changeProc .f"
>pack .f.b -padx 20 -pady 30
>proc changeProc {f} {
>    option add $f.background: yellow
>}
>-----------------------------------------------------------------------------
>  option$B%3%^%s%I$N;H$$J}$rCN$j$?$/$F$3$N$h$&$J%W%m%0%i%`$r=q$$$F$_$^$7$?!#(B
>$B%\%?%s$,2!$5$l$?$i%U%l!<%`$NGX7J$,2+?'$KJQ2=$7$FM_$7$$$N$G$9!#$7$+$7$J$,(B
>$B$i$J$s$NJQ2=$b$"$j$^$;$s!#(B
>  $B$A$J$_$K(B $f.background $B$N$H$3$m$r(B Tk*Background $B$H$7$F$b2?$NJQ2=$b$"$j(B
>$B$^$;$s$G$7$?!#(Boption $B%3%^%s%I$N;H$$J}$H$$$&$N$O$3$l$G$$$$$N$G$7$g$&$+!)(B

  option $B%3%^%s%I$O%&%$%8%C%H$N@8@.A0$K;XDj$7$F$*$+$J$$$H$$$1$J$$!"$H$$$&$3$H$,(B
$B$o$+$j$^$7$?!#>e$NNc$N$h$&$K%&%$%8%C%H@8@.8e$K(Boption $B%3%^%s%I$rMQ$$$F$b$=$NB0@-(B
$B$OJQ2=$7$^$;$s!#(B
  $B%a!<%k$G$4;XE&$$$?$@$$$?J}$N$*L>A0$r5-$7$^$;$s$,!"$3$N>l$r$b$C$F$*Ni$H$+$($5(B
$B$;$FD:$-$^$9!#(B


-- 
tukachan@yk.rim.or.jp