🚀 go-pugleaf

> $BNc$($P!$(B1$B$+$i(B10$B$^$G$NCM$r<h$k%9%1!<%k!&%&%#%8%'%C%H$,$"(B
> $B$C$?$H$7$F!$$=$N%9%1!<%k$,;X$9CM$r>o$K%k!<%W$GI8=`=PNO(B
> $B$5$;$k$H$7$?$i!$$I$N$h$&$J%W%m%0%i%`$rAH$a$P$$$$$N$G$7(B
> $B$g$&$+!#$D$^$j!$%9%1!<%k$rF0$+$5$J$$$G$$$k$HF1$8?t;z$,(B
> $B1d!9$HN.$l!$%^%&%9$G%9%1!<%k$r%I%i%C%0$9$k$H%j%"%k%?%$(B
> $B%`$K=PNO$5$l$k?t;z$,JQ2=$9$k$H$$$&$b$N$G$9!#(B

after$B%3%^%s%I$rMxMQ$9$l$P%9%/%j%W%H%l%Y%k$G<B8=$G$-$^$9!#(B

--- $B%5%s%W%k(B $B;O$^$j(B ---
proc putScaleValue {varName interval} {
  upvar #0 $varName var

  puts $var

  after $interval [list putScaleValue $varName $interval]
}

scale .s -variable scaleValue
pack .s

putScaleValue scaleValue 1000
--- $B%5%s%W%k(B $B=*$j(B ---

$B>e5-$N=hM}$r(BC$B$N%l%Y%k$G5-=R$7$?$$$J$i(B Tcl_CreateTimerHandler
$B$,;H$($^$9!#(B