🚀 go-pugleaf

$BGHB?Ln!w7DXf5A=NBg3X1!$G$9!%(B

canvas$B%&%#%8%'%C%H$N(Brectangle$B7?$N%"%$%F%`$K4X$7$F<ALd$,$"$j$^$9!%(B

$BKM$NL\E*$H$7$F$O%^%&%9$N%\%?%s$,(Brectangle$BFb$G2!$5$l$?;~!$$=$N(Brectangle
$B%"%$%F%`$r%0%j%0%jF0$+$7$?$j!$>C5n$7$?$j!$OH$N?'$rJQ99$7$?$j$7$?$$$N$G(B
$B$9!%$7$+$7!$(Brectangle$B%"%$%F%`$O?'$GEI$j$D$V$7$F$$$J$$$?$a!$OH$N>e$G$O(B
current$B$G;XDj$G$-$^$9$,!$OH$rD6$($F(Brectangle$B$NCf$K$O$$$C$F$7$^$&$H!$%$(B
$B%Y%s%H$,=&$($^$;$s!%(B

$B6qBNE*$K$O<!$N$h$&$JNcBj%9%/%j%W%H$r=q$-$^$7$?!%(B

canvas .canvas1 -width 100 -height 100

.canvas1 create rect 10 10 20 20 \
        -fill {} -outline red -width 1m \
	-tags myrect

.canvas1 bind myrect <Any-Enter> ".canvas1 itemconfig current \
		-outline SteelBlue2"

$B$3$N%9%/%j%W%H$G$O(Bcanvas$BFb$KEI$j$D$V$7$F$$$J$$OH$@$1$N;M3Q$r=q$$$F$$$^(B
$B$9!%$d$j$?$$$3$H$O;M3Q$NOH5Z$S$=$NFbIt$K%^%&%9$,F~$C$?$i!$OH$N?'$r(B
SteelBlue2$B$KJQ99$9$k$H$$$&J*$G$9!%(B($B$7$+$7!$$3$NNc$G$OOH$N>e$K%^%&%9%+!<(B
$B%=%k$,F~$C$?;~$N$_OH$N?'$,(BSteelBlue2$B$KJQ$o$k!%(B)

$B$A$J$_$K!$;M3Q$rOH$@$1$G$O$J$/$F!$(B-fill$B%*%W%7%g%s$GEI$j$D$V$9$H!$;M3Q(B
$BFb$K%^%&%9%+!<%=%k$,F~$C$F$b%$%Y%s%H$,=&$($^$9!%$7$+$7!$$3$l$G$OKM$K$H$C(B
$B$F$OLr$KN)$A$^$;$s!%(B

$B3'$5$s!$$I$s$J$3$H$G$b9=$$$^$;$s!%%"%I%P%$%9$r@'Hs$h$m$7$/$*4j$$CW$7$^(B
$B$9!%(B
--

              $B7DXf5A=NBg3X(B $BM}9)3X8&5f2J(B $B7W;;5!2J3X@l96(B $B=$;N(B2$BG/(B
          $B;3K\8&5f<<(B $BGHB?Ln(B $B?N(B $B!J(BJin Hatano$B!K(Bjin@yy.cs.keio.ac.jp
            http://riho.yy.cs.keio.ac.jp/contrib/jin/jin.html