# # button widget demo (called by 'widget') # # toplevel widget ¤¬Â¸ºß¤¹¤ì¤Ðºï½ü¤¹¤ë if defined?($button_demo) && $button_demo $button_demo.destroy $button_demo = nil end # demo ÍѤΠtoplevel widget ¤òÀ¸À® $button_demo = TkToplevel.new {|w| title("Button Demonstration") iconname("button") positionWindow(w) } # label À¸À® msg = TkLabel.new($button_demo) { font $kanji_font wraplength '4i' justify 'left' text "¥Ü¥¿¥ó¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤È¡¢¥Ü¥¿¥ó¤ÎÇØ·Ê¿§¤¬¤½¤Î¥Ü¥¿¥ó¤Ë½ñ¤«¤ì¤Æ¤¤¤ë¿§¤Ë¤Ê¤ê¤Þ¤¹¡£¥Ü¥¿¥ó¤«¤é¥Ü¥¿¥ó¤Ø¤Î°ÜÆ°¤Ï¥¿¥Ö¤ò²¡¤¹¤³¤È¤Ç¤â²Äǽ¤Ç¤¹¡£¤Þ¤¿¥¹¥Ú¡¼¥¹¤Ç¼Â¹Ô¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£" } msg.pack('side'=>'top') # frame À¸À® $button_buttons = TkFrame.new($button_demo) {|frame| TkButton.new(frame) { #text 'λ²ò' text 'ÊĤ¸¤ë' command proc{ tmppath = $button_demo $button_demo = nil tmppath.destroy } }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { text '¥³¡¼¥É»²¾È' command proc{showCode 'button'} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') # button À¸À® TkButton.new($button_demo){ text "Peach Puff" width 10 command proc{ $button_demo.configure('bg','PeachPuff1') $button_buttons.configure('bg','PeachPuff1') } }.pack('side'=>'top', 'expand'=>'yes', 'pady'=>2) TkButton.new($button_demo){ text "Light Blue" width 10 command proc{ $button_demo.configure('bg','LightBlue1') $button_buttons.configure('bg','LightBlue1') } }.pack('side'=>'top', 'expand'=>'yes', 'pady'=>2) TkButton.new($button_demo){ text "Sea Green" width 10 command proc{ $button_demo.configure('bg','SeaGreen2') $button_buttons.configure('bg','SeaGreen2') } }.pack('side'=>'top', 'expand'=>'yes', 'pady'=>2) TkButton.new($button_demo){ text "Yellow" width 10 command proc{ $button_demo.configure('bg','Yellow1') $button_buttons.configure('bg','Yellow1') } }.pack('side'=>'top', 'expand'=>'yes', 'pady'=>2)