Thread View: fj.lang.misc
3 messages
3 total messages
Started by KONDOU Nobuhiro
Wed, 22 Oct 1997 00:00
[Q] ruby and Tk
Author: KONDOU Nobuhiro
Date: Wed, 22 Oct 1997 00:00
Date: Wed, 22 Oct 1997 00:00
59 lines
2077 bytes
2077 bytes
$B$3$s$I$&$H?=$7$^$9!#(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
class Manager
def initialize
@root = TkRoot.new;
@root.withdraw;
end;
def get_root
return @root;
end;
end;
$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
Q2 $B%a%K%e!<$N:n$jJ}$,$o$+$j$^$;$s!#:#$O!"(B
$manager = Manager.new;
class DrawApp
def initialize(filename)
@toplevel = TkToplevel.new($manager.get_root);
@toplevel.title(filename);
@menuframe = TkFrame.new(@toplevel, {"border" => 1, "relief" => "raised"});
@menu_file = TkMenubutton.new(@menuframe, {"text" => "File", "underline" => 0, "menu" => @menu_file_m});
@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"});
end;
end;
$B$H$d$C$F$$$k$N$G$9$,!"(Bmenu $B$,(B post $B$5$l$^$;$s!#(B
$B2r7h:v$r$4B8CN$NJ}$O!"65$($F2<$5$$!#(B
$B$^$?!"(Bruby $B$G$D$/$C$?!"%"%W%j%1!<%7%g%s$d$=$N:n$jJ}$K4X$9$k>pJs$O(B
$B$I$N$h$&$K$7$?$i<j$KF~$l$i$l$k$N$G$7$g$&$+!)(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/
Re: [Q] ruby and Tk
Author: Shugo Maeda
Date: Thu, 23 Oct 1997 00:00
Date: Thu, 23 Oct 1997 00:00
31 lines
1571 bytes
1571 bytes
$BA0ED$G$9!#(B
In article <62jo99$rfc@news.osk.threewebnet.or.jp> nkon@osk2.3web.ne.jp (KONDOU Nobuhiro) writes:
| @menu_file = TkMenubutton.new(@menuframe, {"text" => "File", "underline" => 0, "menu" => @menu_file_m});
$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$^$?!"(Bruby $B$G$D$/$C$?!"%"%W%j%1!<%7%g%s$d$=$N:n$jJ}$K4X$9$k>pJs$O(B
|$B$I$N$h$&$K$7$?$i<j$KF~$l$i$l$k$N$G$7$g$&$+!)(B
http://www.netlab.co.jp/ruby/jp
$B$,8x<0%[!<%`%Z!<%8$G$9!#(B
$B$"$H!"(Bruby-list@netlab.co.jp$B$X6u$N%a!<%k$rAw$k$H%a!<%j%s%0%j%9%H$K(B
$BF~$k$3$H$,$G$-$^$9!#(B(Subject$B$O2?$G$b$h$$$G$9!#(B)
$BA0ED(B $B=$8c(B
Re: [Q] ruby and Tk
Author: KONDOU Nobuhiro
Date: Sun, 26 Oct 1997 00:00
Date: Sun, 26 Oct 1997 00:00
86 lines
3239 bytes
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/
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads