require 'tkmove3.rb'
require 'config.rb'
include TestBed

c = TkCanvas.new.pack
conf = TkdConfigure.new( c )

testbed( c )

f = TkFrame.new.pack
TkButton.new(f, 'text'=>'addtag_all', 'command'=>proc{ c.addtag_all( 'group' ) }).pack('side'=>'left')
TkButton.new(f, 'text'=>'dtag', 'command'=>proc{ c.dtag( 'group' ) }).pack('side'=>'left')
TkButton.new(f, 'text'=>'config', 'command'=>proc{ confbind(c, conf) }).pack('side'=>'left')

def confbind(c, conf)
  c.itembind('item', '1', proc{ configdialog( c, conf ) })
  c.itembind('item', 'B1-Motion', proc{})
end

def configdialog(c, conf)
  item = c.find_withtag('current').shift
  conf.dialog( item )
end
Tk.mainloop