blog/2006年10月05日/Rubyいじり（ボタンでラジオボタンの切り替え） - 0141029 @wiki

#blognavi

とりあえず試作。ボタンの連動はまだなし。

キャプチャ画像はファイル自体を参照しないと見れません。

require "tk"

###### Frame

item1 = TkFrame.new {
  pack('side' => 'top')
}
item2 = TkFrame.new {
  pack('side' => 'top')
}
item3 = 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

def rtbutton1
  if $v1 == '1'
    $rd10.select
  else
    $rd11.select
  end
end

def rtbutton2
  if $v2 == '1'
    $rd20.select
  else
    $rd21.select
  end
end

def rtbutton3
  if $v3 == '1'
    $rd30.select
  else
    $rd31.select
  end
end

#### button...etc

$v1 = TkVariable.new
$rd10 = radio(item1,"off",$v1,nil,3)
$rd11 = radio(item1,"on",$v1,1,3)
button(item1,"abc",20,'rtbutton1')

$v2 = TkVariable.new
$rd20 = radio(item2,"off",$v2,nil,3)
$rd21 = radio(item2,"on",$v2,1,3)
button(item2,"123",20,'rtbutton2')

$v3 = TkVariable.new
$rd30 = radio(item3,"off",$v3,nil,3)
$rd31 = radio(item3,"on",$v3,1,3)
button(item3,"abc/123",20,'rtbutton3')

Tk.mainloop

カテゴリ: [ruby] - &trackback() - 2006年10月05日 17:46:07

#blognavi