require 'tkmove4.rb'
include TestBed
require 'draw_common2.rb'
include DrawCommon

c = TkCanvas.new.pack
testbed( c )
move = TkMove.new( c )

f = TkFrame.new.pack
TkButton.new(f, 'text'=>'enlarge', 'command'=>proc{
  move.unbind
  c.itembind('item', '1', proc{
    transform_at_cursor( c, enlarge(1.2) )
  })
}).pack('side'=>'left')
TkButton.new(f, 'text'=>'rotate', 'command'=>proc{
  move.unbind
  c.itembind('item', '1', proc{
    transform_at_cursor( c, rotate_90 )
  })
}).pack('side'=>'left')
TkButton.new(f, 'text'=>'30 degree', 'command'=>proc{
  move.unbind
  c.itembind('item', '1', proc{
    transform_at_cursor( c, rotate_degree( 30 ) )
  })
}).pack('side'=>'left')
TkButton.new(f, 'text'=>'mirror', 'command'=>proc{
  move.unbind
  c.itembind('item', '1', proc{
    transform_at_cursor( c, mirror )
  })
}).pack('side'=>'left')
Tk.mainloop