1-----------------------------------------------------------------------
2--               GtkAda - Ada95 binding for Gtk+/Gnome               --
3--                                                                   --
4--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
5--                Copyright (C) 2000-2002 ACT-Europe                 --
6--                                                                   --
7-- This library is free software; you can redistribute it and/or     --
8-- modify it under the terms of the GNU General Public               --
9-- License as published by the Free Software Foundation; either      --
10-- version 2 of the License, or (at your option) any later version.  --
11--                                                                   --
12-- This library is distributed in the hope that it will be useful,   --
13-- but WITHOUT ANY WARRANTY; without even the implied warranty of    --
14-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --
15-- General Public License for more details.                          --
16--                                                                   --
17-- You should have received a copy of the GNU General Public         --
18-- License along with this library; if not, write to the             --
19-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --
20-- Boston, MA 02111-1307, USA.                                       --
21--                                                                   --
22-- As a special exception, if other files instantiate generics from  --
23-- this unit, or you link this unit with other files to produce an   --
24-- executable, this  unit  does not  by itself cause  the resulting  --
25-- executable to be covered by the GNU General Public License. This  --
26-- exception does not however invalidate any other reasons why the   --
27-- executable file  might be covered by the  GNU Public License.     --
28-----------------------------------------------------------------------
29
30--  <group>Glib, the general-purpose library</group>
31
32package Glib.Enums is
33
34   type Glib_Traverse_Flags is mod 2 ** 32;
35   Traverse_Leafs     : constant Glib_Traverse_Flags := 2 ** 0;
36   Traverse_Non_Leafs : constant Glib_Traverse_Flags := 2 ** 1;
37   Traverse_All       : constant Glib_Traverse_Flags :=
38     Traverse_Leafs or Traverse_Non_Leafs;
39   Traverse_Flags     : constant Glib_Traverse_Flags := 16#03#;
40
41   type Glib_Traverse_Type is (In_Order, Pre_Order, Post_Order, Level_Order);
42   pragma Convention (C, Glib_Traverse_Type);
43
44end Glib.Enums;
45