中村です。

今度は TkEntry の textvariable についてです。

以下の Tcl/Tk と同じ挙動の ruby/Tk を
書いてみたつもりなのですが、うまく動きません。


<Tcl/Tk>
#!/usr/local/X11R6/bin/wish4.2

entry .e -textvariable v
pack .e
bind .e <Return> {puts $v}


<ruby/Tk>
#!/usr/local/bin/ruby

require "tk"

$entry = ""
entry = TkEntry.new {
  textvariable :$entry
  pack
}
entry.bind "Return" , proc{
  print $entry, "\n"
}
Tk.mainloop

よろしくお願いします。

         中村典嗣@京都大学大学院工学研究科電子通信工学専攻
         E-mail:        nnakamur / tamaru.kuee.kyoto-u.ac.jp