#blognavi
#blognavi
smoking186氏のアドバイスで、ボタンでラジオボタンの切り替えを書き換えました。感謝!
require "tk" ###### Frame item = [TkFrame.new {pack('side' => 'top')}, TkFrame.new {pack('side' => 'top')}, TkFrame.new {pack('side' => 'top')}] ###### Definition def radio(a,b,c,d,e) TkRadioButton.new(a) { text b variable c value d width e pack('fill' => 'x', 'side' => 'right') } end def button(a,b,c,d) TkButton.new(a) { text b width c command d pack('side' => 'right') } end $v = [TkVariable.new, TkVariable.new, TkVariable.new] def rtbutton(i) if $v[i] == '1' $rd[i][0].select else $rd[i][1].select end end #### button...etc rd1 = [radio(item[0],"off",$v[0],nil,3), radio(item[0],"on",$v[0],1,3)] button(item[0],"abc",20,'rtbutton(0)') rd2 = [radio(item[1],"off",$v[1],nil,3), radio(item[1],"on",$v[1],1,3)] button(item[1],"123",20,'rtbutton(1)') rd3 = [radio(item[2],"off",$v[2],nil,3), radio(item[2],"on",$v[2],1,3)] button(item[2],"abc/123",20,'rtbutton(2)') $rd = [rd1, rd2, rd3] Tk.mainloop
カテゴリ: [ruby] - &trackback() - 2006年10月06日 21:48:23
#blognavi