gnoga_2.1.2_5f127c56/demo/linxtris/src/preferences_window_pkg.ads

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
-----------------------------------------------------------------------
--
--     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.Window;       use Gtk.Window;
--  with Gtk.Spin_Button;  use Gtk.Spin_Button;
--  with Gtk.Button;       use Gtk.Button;
--  with Gtk.Check_Button; use Gtk.Check_Button;
with Gnoga_Extras;
with Gnoga.Gui.Element.Common;
with Ada.Direct_IO;

package Preferences_Window_Pkg is

   type Preferences_Type is record
      Initial_Level       : Positive := 1;
      Initial_Lines       : Natural  := 0;
      Piece_Preview       : Boolean  := True;
      Continuous_Movement : Boolean  := False;
      Animation           : Boolean  := True;
      Ghost               : Boolean  := False;
   end record;

   package Preferences_IO is new Ada.Direct_IO (Preferences_Type);

   type Preferences_Window_Record is new Gnoga_Extras.View_Type with record
      Level_Spin      : Gnoga_Extras.Labeled_Range_Type;
      Lines_Spin      : Gnoga_Extras.Labeled_Range_Type;
      OK_Button       : Gnoga.Gui.Element.Common.Button_Type;
      Preview_Check   : Gnoga_Extras.Labeled_Check_Box_Type;
      Cont_Move_Check : Gnoga_Extras.Labeled_Check_Box_Type;
      Animation_Check : Gnoga_Extras.Labeled_Check_Box_Type;
      Ghost_Check     : Gnoga_Extras.Labeled_Check_Box_Type;
      Pause_Status    : Boolean;
   end record;

   type Preferences_Window is access all Preferences_Window_Record'Class;

   Pref_Win : Preferences_Window;

   procedure Gtk_new (Win : out Preferences_Window);
   procedure Initialize (Win : access Preferences_Window_Record'Class);
   procedure Set_Preferences;
   procedure Get_Preferences;
end Preferences_Window_Pkg;