require 'tkmove3.rb'
include TestBed

c = TkCanvas.new.pack
testbed(c)

msg = TkMessage.new(nil, 'width'=>300).pack
f = TkFrame.new.pack
TkButton.new(f, 'text'=>'itembindinfo', 'command'=>proc{
  info = c.itembindinfo('item')
  msg.text( info.inspect )
}).pack('side'=>'left')
TkButton.new(f, 'text'=>'new bind', 'command'=>proc{
  w = TkToplevel.new
  f1 = TkFrame.new(w).pack('fill'=>'x')
  TkLabel.new(f1, 'text'=>'bind: ' ).pack('side'=>'left')
  t = TkText.new(f1, 'width'=>40, 'height'=>'8').pack
  newbind = <<END
c.itembind('item', 'Double-1', proc{
  item = c.find_withtag('current').shift
  item.fill('yellow')
})
END
  t.insert('1.0', newbind )
  f2 = TkFrame.new(w).pack('fill'=>'x')
  TkButton.new(f2, 'text'=>'apply', 'command'=>proc{
    c.bind('1', proc{})
    eval t.get('1.0', 'end')
  }).pack('side'=>'left')
  TkButton.new(f2, 'text'=>'dismiss', 'command'=>proc{
    w.destroy
  }).pack('side'=>'right')
}).pack('side'=>'left')

Tk.mainloop