🚀 go-pugleaf

$B2CF#!wKLN&@hC<Bg$G$9!#(B

$B$I$&$b%"%I%P%$%9$"$j$,$H$&$4$6$$$^$9!#(B

1$B7oL\$N(B
$B!V%a%K%e!<%\%?%s>e$K%+!<%=%k$r;}$C$F$$$/$H%5%V%a%K%e!<$rI=<($7(B
$B%+!<%=%k$r%\%?%s$+$i30$9$H%5%V%a%K%e!<$r>C$9=hM}$r9M$($F$$$^$9!#(B
Win95$B%"%W%j$N%a%K%e!<A*BrF0:n$r<B8=$7$?$$$N$G$9!#!W(B
$B$G$9$,!"@h$N5-;v$G$O%W%m%0%i%`$r4JN,2=$7$9$.$^$7$?!#(B

menubutton .m.b1 -text "FILE" -menu .m.b1.m
menu .m.b1.m 
.m.b1.m add command -label "NEW" -command......
.m.b1.m add separator
.m.b1.m add command -label "OPEN" -command......

menubutton .m.b2 -text "EVAL" -menu .m.b2.m
menu .m.b2.m 
.m.b2.m add command -label "GRAPH" -command......
....................

bind .m.b1 <Enter> "tk_popup .m.b1.m $x $y"
bind .m.b1 <Leave> ".m.b1.m unpost"  <- $B$3$l$rDj5A$9$k$H8f;XE&$N$H$*$j(B
                                        $BF0:n$,$*$+$7$/$J$j$^$9!#(B
                                        unpost$B$O%X%k%W%U%!%$%k$K$J$+$C$?$h$&$J(B?

bind .m.b2 <Enter> "tk_popup .m.b2.m $x $y"
bind .m.b2 <Leave> ""    <-$B;CDjA<CV$G$3$&$7$F$"$j$^$9!#(B

$B$N$h$&$JCf$G!"$$$m$$$m;n$7$F$$$^$9$,!"Nc$($P(B.m.b1$B$+$i(B.m.b1.m$B$,(Btk_popup
$B$5$l$?CJ3,$G!"%^%&%9%+!<%=%k$r(B.m.b2$B$N%a%K%e!<Fb$K;}$C$F$$$C$F$b(B
Enter$B$r46CN$7$F$/$l$J$$$H$3$m$G$D$^$E$$$F$$$^$9!#(B
menubutton$B$K(B-activebackground$B$N?';XDj$r$7$F$$$k$N$G!"(B
$B?'$,JQ$o$i$J$$$N$G3NG'$G$-$^$7$?!#(B
<Leave>$B$NDj5A$,$J$/$F$b(B<Enter>$B$@$1$GF($2$l$k$H$O;W$C$F$$$^$9!#(B
$B$?$H$($PI=<($5$l$F$$$k(Bmenu$B%&%$%8%'%C%H$r$9$Y$F>C$7$F$+$i(Btk_popup$B$9$k(B
$B%9%/%j%W%H$r(Bbind$B$G$-$l$P<B8=$G$-$k$N$G$9$,!"(Bunpost$B$O;H$$J}$,$^$:$$$N$+(B
$B$&$^$/5!G=$7$F$/$l$^$;$s!#(B
$B$d$O$j:,K\E*$K%a%K%e!<$G$O$@$a$J$N$G$7$g$&$+!#(B


2$B7oL\$N(B
$B!V$^$?F1MM$N=hM}$J$N$G$9$,!"(BWin95$B$N%"%W%j$G$h$/;H$o$l$F$$$k%D!<%k%P!<(B
$B$N%"%$%3%s$K%+!<%=%k$r;}$C$F$$$/$H%P%k!<%sI=<($G@bL@$,=P$^$9$h$M!#(B
$B$=$3$G%\%?%s$r0lNs$KJB$Y$F$*$$$F!"F1MM$NA`:n$G%P%k!<%s$"$k$$$O%&%$%s%I%&(B
$B$rI=<($5$;$?$$$N$G$9!#!W(B
$B$G$9$,!"0J2<$N$h$&$K@bL@I=<(MQ$N(Blabel$B$r$"$i$+$8$aKd$a9~$s$G$*$$$F!"(B
$B$=$3$KI=<($5$;$k$3$H$G$H$j$"$($:F($2$^$7$?!#(B

label .la -text "Undefined"

button .b.1 -text ... -command ...
button .b.2 -text ... -command ...
.......

bind .b.1 <Enter> ".la configure -text \"August\""
bind .b.1 <Leave> ".la configure -text \"\""
bind .b.2 <Enter> ".la configure -text \"September\""
bind .b.1 <Leave> ".la configure -text \"\""
.......

--
----------------------------
$B2CF#(B $BD>9'!J@P@n8)9)6H;n83>l!K(B
E-mail: nkato@jaist.ac.jp
$B#J#A#I#S#T(B $BKLN&@hC<2J3X5;=QBg3X1!Bg3X(B
$B>pJs2J3X8&5f2J(B $BT"F#8&5f<<(B
923-12 $B@P@n8)G=H~74C$8}D.00Bf(B1$B!<(B1
TEL 0761-51-1699 ext.1371
FAX 0761-51-1149