# # form widget demo (called by 'widget') # # toplevel widget ¤¬Â¸ºß¤¹¤ì¤Ðºï½ü¤¹¤ë if defined?($form_demo) && $form_demo $form_demo.destroy $form_demo = nil end # demo ÍѤΠtoplevel widget ¤òÀ¸À® $form_demo = TkToplevel.new {|w| title("Form Demonstration") iconname("form") positionWindow(w) } # label À¸À® msg = TkLabel.new($form_demo) { font $font wraplength '4i' justify 'left' text "¤³¤Î¥¦¥£¥ó¥É¥¦¤Ï´Êñ¤Ê¥Õ¥©¡¼¥àÆþÎÏÍѤˤʤäƤ¤¤Æ¡¢¤µ¤Þ¤¶¤Þ¤Ê¥¨¥ó¥È¥ê¤ËÆþÎϤ¬¤Ç¤¤Þ¤¹¡£¥¿¥Ö¤Ç¥¨¥ó¥È¥ê¤ÎÀÚÂؤ¨¤¬¤Ç¤¤Þ¤¹¡£" } msg.pack('side'=>'top', 'fill'=>'x') # frame À¸À® TkFrame.new($form_demo) {|frame| TkButton.new(frame) { #text 'λ²ò' text 'ÊĤ¸¤ë' command proc{ tmppath = $form_demo $form_demo = nil tmppath.destroy } }.pack('side'=>'left', 'expand'=>'yes') TkButton.new(frame) { text '¥³¡¼¥É»²¾È' command proc{showCode 'form'} }.pack('side'=>'left', 'expand'=>'yes') }.pack('side'=>'bottom', 'fill'=>'x', 'pady'=>'2m') # entry À¸À® form_data = [] (1..5).each{|i| f = TkFrame.new($form_demo, 'bd'=>2) e = TkEntry.new(f, 'relief'=>'sunken', 'width'=>40) l = TkLabel.new(f) e.pack('side'=>'right') l.pack('side'=>'left') form_data[i] = {'frame'=>f, 'entry'=>e, 'label'=>l} } # ʸ»úÎóÀßÄê form_data[1]['label'].text('̾Á°:') form_data[2]['label'].text('½»½ê:') form_data[5]['label'].text('ÅÅÏÃ:') # pack (1..5).each{|i| form_data[i]['frame'].pack('side'=>'top', 'fill'=>'x')}