# File karel/remote_control.rb, line 15
  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 #"+900+25"
  @@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