🚀 go-pugleaf

In article <NKATO.97Aug28140247@is17e1s08.jaist.ac.jp>
nkato@jaist.ac.jp writes:

>> $B%+!<%=%k$r%a%K%e!<%\%?%s>e$K;}$C$F$$$C$FI=<($5$;$kJ}$O!"(B
>> $B%I%-%e%a%s%H$rC5$7$?$H$3$m(B
>> bind .m.b <Enter> "tk_popup .m.b.1 x y"

.m.b $B$r$H$$$&L>A0$r;H$C$F$k$H$3$m$r$_$^$9$H(B menu $B$G$d$C$F$i$C$7$c$k(B
$B$h$&$G$9$,!"$3$l$@$H$&$^$/$$$+$J$$$O$:$G$9!#M}M3$O(B .m.b.1 $B$,(B tk_popup
$B$5$l$?;~E@$G(B <Leave> $B$,F/$$$F$7$^$&$N$G!"(B<Leave> $B$GJD$8$k=hM}$r$7$F$k$H(B
.m.b.1 $B$,3+$$$?=V4V$KJD$8$F$7$^$$$^$9!#(B

$B0J2<$N$h$&$K$9$k$HBg>fIW$G$9!#(B
label .l  -text "label"
pack .l
bind .l <Enter> { toplevel .t }
bind .l <Leave> { destroy .t }

$B$A$J$_$K(B TclTk $B$N3HD%$N(B Tix $B$G$O%P%k!<%s$,%5%]!<%H$5$l$F$^$9!#(B
Tix $B$O(B Win95 $B$b%5%]!<%H$7$F$^$9!#(B

--
-- $B$`$+$7$NL>A0$G$G$F$$$^$;$s(B -- $B$9$_$@$O$D$7(B --