[ruby-list:1529] Re: [Ruby/Tk] place ?

中村です。

In article <[e-mail]> 
[e-mail] (Jun Kuroda) writes:
> Tk.tk_write "place %s -relx 0.5 -rely 0.5 -anchor center",ent.path
> 
> Tk.mainloop
> - --
> 
> とかやってみました. ってこういう話じゃないですね.

こういう話です！
本に載っていたプログラムを引用させて頂くと、

〜 〜 〜 ここから 〜 〜 〜
entry .e -relief sunken -textvariable v

frame .f -height 120 -width 120
pack .e .f -fill x

set i 0
set v ""
set r 0.25
foreach n {7 8 9 * 4 5 6 / 1 2 3 - 0 + = C} {
  button .f.b$n -text $n -command ".e insert end $n"
  place .f.b$n -relx [expr ($i%4)*$r] -rely [expr ($i/4)*$r] -relw $r -relh $r
  incr i
}
bind .f.bC <1> {set v ""};
bind .f.b= <1> {set v [expr $v]}
〜 〜 〜 ここまで 〜 〜 〜

で、とりあえず、今のところ

〜 〜 〜 ここから 〜 〜 〜
#!/usr/local/bin/ruby

require "tk"

$v = ""
$i = 0
$r = 0.25

$entry = TkEntry.new {
  relief 'sunken'
  textvariable :$v
  pack('fill' => 'x')
}

# フォーカス
#$entry.focus

$frame = TkFrame.new {
  height 120
  width 120
  pack('fill' => 'x')
}

$i = 0
$r = 0.25
for $n in ["7", "8", "9", "*", "4", "5", "6", "/", "1", "2", "3", "-", "0", "+", "=", "C"]
  $button  = TkButton.new($frame) {
	text $n
	command proc {
	  print $n, "\n"
	}
  }
  Tk.tk_write "place %s -relx %f -rely %f -relw %f -relh %f", $button.path, $i % 4 * $r, $i / 4 * $r, $r, $r
  $i += 1
end

TkButton.new {
  text 'quit'
  command 'exit'
  pack('fill'=>'x')
}

Tk.mainloop
〜 〜 〜 ここまで 〜 〜 〜

こんな感じになりました。
ボタンの表示はできるのですが、
ボタンを押しても最後の 「C」しか
表示されません。
.f.b$n に相当する部分をどう書くか
だと思うのですが…。

In article <[e-mail]> 
[e-mail] (Yukihiro Matsumoto) writes:
> placeを使えるようにするパッチを以下につけておきます．

使ってみました。

place('relx' => $i % 4 * $r, 'rely' => $i / 4 * $r, 'relw' => $r, 'relh' => $r)

とやってうまくいきました。

>  僕は未だに, variable を使えません. ML count 558 頃の話の正解
> を教えて下さい.

どうも、うちではうまく動かないような気がします。

#!/usr/local/bin/ruby

require "tk"

$lcr = 1

left = TkRadioButton.new {
  text 'left'
  value 1
  variable :$lcr
  anchor 'w'
  pack('side'=>'left', 'fill'=>'x')
}

center = TkRadioButton.new {
  text 'center'
  value 2
  variable :$lcr
  anchor 'w'
  pack('side'=>'left', 'fill'=>'x')
}

right = TkRadioButton.new {
  text 'right'
  value 3
  variable :$lcr
  anchor 'w'
  pack('side'=>'left', 'fill'=>'x')
}

Tk.mainloop

これでうまく動くはずなんですよね？

         中村典嗣@京都大学大学院工学研究科電子通信工学専攻
         E-mail:        [e-mail]