require 'tkmove3.rb'
include TestBed

c = TkCanvas.new.pack
testbed( c )
TkFrame.new(nil){|f|
TkButton.new(f, 'text'=>'addtag_all', 'command'=>proc{ c.dtag( 'selected' ); c.addtag_all( 'group' ) }).pack('side'=>'left')
TkButton.new(f, 'text'=>'dtag', 'command'=>proc{ c.dtag( 'group' ) }).pack('side'=>'left')
}.pack
Tk.mainloop