1------------------------------------------------------------------------------
2--                  GtkAda - Ada95 binding for Gtk+/Gnome                   --
3--                                                                          --
4--      Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet       --
5--                     Copyright (C) 1998-2015, AdaCore                     --
6--                                                                          --
7-- This library is free software;  you can redistribute it and/or modify it --
8-- under terms of the  GNU General Public License  as published by the Free --
9-- Software  Foundation;  either version 3,  or (at your  option) any later --
10-- version. This library is distributed in the hope that it will be useful, --
11-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --
12-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.                            --
13--                                                                          --
14-- As a special exception under Section 7 of GPL version 3, you are granted --
15-- additional permissions described in the GCC Runtime Library Exception,   --
16-- version 3.1, as published by the Free Software Foundation.               --
17--                                                                          --
18-- You should have received a copy of the GNU General Public License and    --
19-- a copy of the GCC Runtime Library Exception along with this program;     --
20-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
21-- <http://www.gnu.org/licenses/>.                                          --
22--                                                                          --
23------------------------------------------------------------------------------
24
25--  <group>Glib, the general-purpose library</group>
26
27package Glib.Enums is
28
29   type Glib_Traverse_Flags is mod 2 ** 32;
30   Traverse_Leafs     : constant Glib_Traverse_Flags := 2 ** 0;
31   Traverse_Non_Leafs : constant Glib_Traverse_Flags := 2 ** 1;
32   Traverse_All       : constant Glib_Traverse_Flags :=
33     Traverse_Leafs or Traverse_Non_Leafs;
34   Traverse_Flags     : constant Glib_Traverse_Flags := 16#03#;
35
36   type Glib_Traverse_Type is (In_Order, Pre_Order, Post_Order, Level_Order);
37   pragma Convention (C, Glib_Traverse_Type);
38
39end Glib.Enums;
40