🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.misc
Article #195

Re: [Q] ruby and Tk

#195
From: KONDOU Nobuhiro
Date: Sun, 26 Oct 1997 00:00
86 lines
3239 bytes

$B$3$s$I$&$G$9!#(B

<62jo99$rfc@news.osk.threewebnet.or.jp>$B$N5-;v$K$*$$$F(B
$B;d$O=q$-$^$7$?!#(B

>> ruby $B$+$i(B Tk $B$r;H$*$&$H$7$F!"$o$+$i$J$$$3$H$,=P$F$-$^$7$?!#(B
>> 
>> $B:n@.$7$h$&$H$7$F$$$k%"%W%j%1!<%7%g%s$O!"(B
>> 
>> o ruby $B$+$i(B Tk $B$r;H$&$*3(=q$-%=%U%H(B
>> o . (root windows) $B$OI=<($7$J$$(B
>> o $B%U%!%$%kKh$K(B toplevel window $B$rI=<($7$F!"(B
>>   $B$=$NAk$,%a%K%e!<$dIA2h%(%j%"$r;}$D(B
>> 
>> $B$H$$$&$b$N$G$9!#(B

>> Q1 . $B$rI=<($7$J$$$?$a$K!"(B

>> Q2 $B%a%K%e!<$N:n$jJ}$,$o$+$j$^$;$s!#:#$O!"(B

$B$KBP$7$F!"65$($FD:$-$^$7$?!#(B

<mm2yb3lgnl5.fsf@tosyo10.ex.ecip.osaka-u.ac.jp>$B$N5-;v$K$*$$$F(B
le4441ms@ex.ecip.osaka-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B


>> $B:#!"(BNeXT$B$J$N$G$A$g$C$H;n$;$J$$$N$G$9$,!"$3$N;~E@$G(B@menu_file_m$B$,(B
>> $B$^$@(Bnil$B$J$N$G$&$^$/$$$+$J$$$N$G$O$J$$$G$7$g$&$+!#(B
>> 
>> @menu_file_m = TkMenu.new(@menu_file)
>> @menu_file_m.add("command", {"label" => "New"});
>> @menu_file_m.add("separator");
>> @menu_file_m.add("command", {"label" => "End"});
>> 
>> $B$N8e$G!"(B
>> 
>> @menu_file.menu(@menu_file_m)
>> 
>> $B$H$9$l$P$&$^$/$$$-$^$;$s!)(B

$B$&$^$/$$$-$^$7$?!#$?$7$+$K!"$*$C$7$c$kDL$j$G$9!#(B
Menu#menu $B$,$"$k$3$H$KB.$/5$$E$1$P$h$+$C$?$H;W$$$^$9!#(B


<62n8ku$got$1@yama15.yz.yamagata-u.ac.jp>$B$N5-;v$K$*$$$F(B
aito@ei5sun.yz.yamagata-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>> >> $B$H$d$C$F$$$k$N$G$9$,!"(B. $B$,I=<($5$l$F$7$^$$$^$9!#(B
>> >> $B$I$&$9$l$P!"(B. $B$rI=<($7$J$$$h$&$K$J$k$G$7$g$&$+!#(B
>> 
>> root $B$,I=<($5$l$F$7$^$&$N$O!$(BTk.mainloop $B$NDj5A$NCf$G!$(B
>> after idle {wm deiconify .} $B$r<B9T$7$F$$$k$+$i$G$9!%(B
>> tkcore.rb $B$H(B tkthcore.rb $B$r=q$-$+$($F$7$^$&$N$,0lHV(B
>> $BAa$$$N$G$9$,!$$A$g$C$HDq93$,$"$k$J$"!%(B
>> 
>> x = TkRoot.new
>> Tk.after 1000, Proc.new{x.withdraw}
>> 
>> $B$J$I$H$d$k$H!$(Broot $B$,0l=V8+$($?8e$G>C$($F$/$l$^$9$,!$(B
>> $B$A$g$C$H$+$C$30-$$$G$9$M!%(B

$B$H$j$"$($:!"$3$NJ}K!$G?J$a$F$$$-$?$$$H;W$$$^$9!#(B
$B$^$@!"J8K!$,$h$/$o$+$C$F$$$J$$$N$G!"$7$m$&$H$N;W$$$D$-$J$N$G$9$,!"(B
Tk.mainloop $B$r<+J,$N%W%m%0%i%`$NCf$G!"(B
$B>e=q$-$9$k$H$$$&J}K!$O;H$($J$$$N$G$7$g$&$+!)(B
$B$+$($C$FE%>B$K$O$^$k$@$1$N$h$&$J5$$b$9$k$N$G$9$,!#(B

$B65$($FD:$$$F$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$_$J$5$s!"$3$N$h$&$J>pJs$r$I$N$h$&$K$7$F!"<j$KF~$l$F(B
$BM}2r$7$F$$$k$N$G$7$g$&$+!#(B
$B7k6I!"(BML $B$G%$%s%5%$%@!<$J>pJs$rF~<j$7$F%W%m%0%i%`$rAH$s$G$$$k(B
$BCJ3,$J$N$+$J$H;W$$$^$9!#(B

>> ruby $B$N(B ML $B$,$"$j$^$9!%(Bruby-list@netlab.co.jp $B$G$9!%(B

ML $B$KF~$C$FJY6/$5$;$F$b$i$$$?$$$H;W$$$^$9!#(B


--
*** $B%a%$%k%"%I%l%9JQ$o$j$^$7$?(B ***
$B6aF#Lw9@(B <nkon@osk2.3web.ne.jp>
http://www2.osk.3web.ne.jp/~nkon/3web/
http://tsl.pe.u-tokyo.ac.jp/~kon/tslhome/
Technical Details
Message-ID: <62vcvg$gls@news.osk.threewebnet.or.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail
References: <62jo99$rfc@news.osk.threewebnet.or.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 10b195,cb633e124bb2a723
X-Google-Attributes: gid10b195,public
From: nkon@osk2.3web.ne.jp (KONDOU Nobuhiro)
Subject: Re: [Q] ruby and Tk
Date: 1997/10/26
Message-ID: <62vcvg$gls@news.osk.threewebnet.or.jp>
X-Deja-AN: 285726788
References: <62jo99$rfc@news.osk.threewebnet.or.jp>
Organization: personal user
Newsgroups: fj.lang.misc