require 'tk'  
$root = TkRoot.new(:title => "Гра Баше (основний варіант)",:width=>400,:height=>300)  
Tk.root.bind( TkVirtualEvent.new('Control-c', 'Control-q'), proc{Tk.exit})  

l1 = TkLabel.new { text "Правила гри. У початковий момент в купці є n предметів.\n Два гравці  по черзі  забирають  з цієї купки предмети — \n від 1 до p включно, де 1 < p. Переможцем вважають того,\n хто зробить останній хід"
  grid('row'=>0, 'column'=>0, 'columnspan'=> 3)
}
    
l2 = TkLabel.new{ text ""
  grid('row'=>1, 'column'=>0, 'columnspan'=> 3)}
       
l3 = TkLabel.new { text "Забрати предметів"
  grid('row'=>2, 'column'=>0)
}

e = TkEntry.new { 
  width 3
  background "#ffffff"
  grid('row'=>2, 'column'=>1)
}    
b = TkButton.new { text "Почати гру"
  grid('row'=>2, 'column'=>2)  
}
# 2 Опис вікон повідомлень
def inf(s)
  m = Tk.messageBox ({
    'icon'   =>'info', 
    'message'=> s,
    'title'  =>'Гра Баше',
    'type'   =>'ok'
  })
end
def err(s)
  m = Tk.messageBox ({
    'icon'   =>'error', 
    'message'=> s,
    'title'  =>'Гра Баше',
    'type'   =>'ok'
  })
end
# 2 Кінець
Tk.mainloop