バインド(bindメソッド)

• マウスボタンを押す/離す
• マウスカーソルを動かす
• マウスカーソルが特定のウィジェットに入る/出る
• キーを押す/離す

メソッドの書式は，

bind(eventname, procedure[, keyword])

です．

• 第1引数：イベント名．種類は下表を参照してください．
• 第2引数：イベントが発生したときのコマンド．proc{x}とすることで，xをRubyスクリプトで記述できます．
• 第3引数(任意)：第2引数のコマンドに引き渡すキーワード．たとえば，イベントが発生した時のマウスポインタの座標を獲得したい場合，
  第2引数はproc{|x,y|procedure(x,y)}で，
  第3引数は"%x,%y"で獲得できます．

使用例を示します．

#!/usr/local/bin/ruby

require 'tk'

root = TkRoot.new

var = TkVariable.new('bindtest')
label = TkLabel.new(root, 'textvariable' => var).pack('fill'=>'both')
TkMessage.new(root,
	      'width' => 150,
	      'text' => 'このウィンドウの上にカーソルを当ててクリックやキーにタッチすると，いろいろなことが起こりそうです．').pack

TkButton.new(root,
	     'text' => 'quit',
	     'command' => proc{exit}).pack
root.bind('Button-1', proc{label.background('blue')})
root.bind('ButtonRelease-1', proc{label.background('gray85')})
root.bind('Button-2', proc{label.background('green')})
root.bind('ButtonRelease-2', proc{label.background('gray85')})
root.bind('Button-3', proc{label.background('red')})
root.bind('ButtonRelease-3', proc{label.background('gray85')})
root.bind('Double-1', proc{label.background('gold')})
root.bind('Double-2', proc{label.background('purple')})
root.bind('Double-3', proc{label.background('white')})
root.bind('Enter', proc{var.value = 'test!'})
root.bind('Leave', proc{var.value = 'test'})
root.bind('Key', proc{|k| var.value = "You pressed \"#{k}\"."}, "%K")
Tk.mainloop

イベントとキーワードの一覧を以下に示します．イベント名は

"(イベント)-(修飾イベント名)"