def initialize (name, street, avenue, direction, beepers)
super()
@robot = UrRobot.new(street, avenue, direction, beepers)
@name = name
@dialog = TkToplevel.new(self){
title name
}
@@offset = 15
$canvas = $window.canvas
@dialog.raise_window $window
$world = Robota::World
where = "+" + (900 + @@count*@@offset).to_s + "+" + (25 + @@count*@@offset).to_s
geometry_string = '150x' + '150' + where
@@count += 1
@dialog.geometry(newGeometry = geometry_string)
TkGrid.rowconfigure(@dialog, 2, :weight => 1)
TkGrid.columnconfigure(@dialog, 0, :weight => 1)
move = TkButton.new(@dialog, :text => "Move", :command => lambda{move_robot})
move.grid(:row => 0, :column => 0)
turn = TkButton.new(@dialog, :text => "TurnLeft", :command => lambda{turn_robot})
turn.grid(:row => 1, :column => 0, :sticky => 'n')
pick = TkButton.new(@dialog, :text => "PickBeeper", :command => lambda{pick_beeper})
pick.grid(:row => 2, :column => 0, :sticky => 'n')
put = TkButton.new(@dialog, :text => "PutBeeper", :command => lambda{put_beeper})
put.grid(:row => 3, :column => 0, :sticky => 'n')
off = TkButton.new(@dialog, :text => "TurnOff", :command => lambda{off_robot})
off.grid(:row => 4, :column => 0, :sticky => 'n')
end