-----------------------------------------------------------------------
--
-- Copyright (C) 2003 DĂșlio Matos Leite de Carvalho e Silva
--
-- This file is part of LinXtris.
--
-- LinXtris is free software; you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation; either version 2 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU General Public License for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
--
-----------------------------------------------------------------------
-- with Gtk.Button; use Gtk.Button;
-- with Gtk.Window; use Gtk.Window;
-- with Gtk.Label; use Gtk.Label;
with Gnoga.Gui.View;
with Gnoga_Extras;
with Gnoga.Gui.Element.Common;
with Ada.Direct_IO;
package Scores_Window_pkg is
type Label_Array is array (1 .. 10) of Gnoga.Gui.View.View_Type;
type Scores_Window_Record is new Gnoga_Extras.View_Type with record
OK_Button : Gnoga.Gui.Element.Common.Button_Type;
Scores_Label : Label_Array;
Names_Label : Label_Array;
Pause_Status : Boolean;
end record;
type Scores_Window is access all Scores_Window_Record'Class;
Scores_Win : Scores_Window;
procedure Gtk_new (Win : out Scores_Window);
procedure Initialize (Win : access Scores_Window_Record'Class);
procedure Get_Scores;
procedure Set_Score
(Name : Gnoga.String;
Score : Natural);
function Get_Minimum_Score return Natural;
function Get_Maximum_Score return Natural;
Minimum_Score : Natural := 0;
type Score_Type is record
Name : String (1 .. 20);
Score : Natural;
end record;
package Scores_IO is new Ada.Direct_IO (Score_Type);
end Scores_Window_pkg;