← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/glib/genums.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/glib/genums.inc
 
1
// included by glib2.pas
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
{$ENDIF read_forward_definitions}
 
5
 
 
6
//------------------------------------------------------------------------------
 
7
 
 
8
{$IFDEF read_interface_rest}
 
9
{ --- enum/flag values & classes ---  }
 
10
type
 
11
   PGEnumClass = ^TGEnumClass;
 
12
   PGEnumValue = ^TGEnumValue;
 
13
 
 
14
   TGEnumClass = record
 
15
        g_type_class : TGTypeClass;
 
16
        minimum : gint;
 
17
        maximum : gint;
 
18
        n_values : guint;
 
19
        values : PGEnumValue;
 
20
     end;
 
21
 
 
22
   TGEnumValue = record
 
23
        value : gint;
 
24
        value_name : Pgchar;
 
25
        value_nick : Pgchar;
 
26
     end;
 
27
 
 
28
   PGFlagsClass = ^TGFlagsClass;
 
29
   PGFlagsValue = ^TGFlagsValue;
 
30
 
 
31
   TGFlagsClass = record
 
32
        g_type_class : TGTypeClass;
 
33
        mask : guint;
 
34
        n_values : guint;
 
35
        values : PGFlagsValue;
 
36
     end;
 
37
 
 
38
   TGFlagsValue = record
 
39
        value : guint;
 
40
        value_name : Pgchar;
 
41
        value_nick : Pgchar;
 
42
     end;
 
43
 
 
44
{ --- type macros ---  }
 
45
function G_TYPE_IS_ENUM(_type : GType) : gboolean;
 
46
function G_ENUM_CLASS(_class : pointer) : PGEnumClass;
 
47
function G_IS_ENUM_CLASS(_class : pointer) : gboolean;
 
48
function G_ENUM_CLASS_TYPE(_class : pointer) : GType;
 
49
function G_ENUM_CLASS_TYPE_NAME(_class : pointer) : PGChar;
 
50
function G_TYPE_IS_FLAGS(_type : GType) : gboolean;
 
51
function G_FLAGS_CLASS(_class : pointer) : PGFlagsClass;
 
52
function G_IS_FLAGS_CLASS(_class : pointer) : gboolean;
 
53
function G_FLAGS_CLASS_TYPE(_class : pointer) : GType;
 
54
function G_FLAGS_CLASS_TYPE_NAME(_class : pointer) : PGChar;
 
55
function G_VALUE_HOLDS_ENUM(value : pointer) : gboolean;
 
56
function G_VALUE_HOLDS_FLAGS(value : pointer) : gboolean;
 
57
 
 
58
 
 
59
{ --- prototypes ---  }
 
60
 
 
61
function g_enum_get_value(enum_class:PGEnumClass; value:gint):PGEnumValue; cdecl; external gliblib;
 
62
function g_enum_get_value_by_name(enum_class:PGEnumClass; name:Pgchar):PGEnumValue; cdecl; external gliblib;
 
63
function g_enum_get_value_by_nick(enum_class:PGEnumClass; nick:Pgchar):PGEnumValue; cdecl; external gliblib;
 
64
function g_flags_get_first_value(flags_class:PGFlagsClass; value:guint):PGFlagsValue; cdecl; external gliblib;
 
65
function g_flags_get_value_by_name(flags_class:PGFlagsClass; name:Pgchar):PGFlagsValue; cdecl; external gliblib;
 
66
function g_flags_get_value_by_nick(flags_class:PGFlagsClass; nick:Pgchar):PGFlagsValue; cdecl; external gliblib;
 
67
procedure g_value_set_enum(value:PGValue; v_enum:gint); cdecl; external gliblib;
 
68
function g_value_get_enum(value:PGValue):gint; cdecl; external gliblib;
 
69
procedure g_value_set_flags(value:PGValue; v_flags:guint); cdecl; external gliblib;
 
70
function g_value_get_flags(value:PGValue):guint; cdecl; external gliblib;
 
71
{ --- registration functions ---  }
 
72
{ const_static_values is a NULL terminated array of enum/flags
 
73
   values that is taken over!
 
74
  }
 
75
function g_enum_register_static(name:Pgchar; const_static_values:PGEnumValue):GType; cdecl; external gliblib;
 
76
function g_flags_register_static(name:Pgchar; const_static_values:PGFlagsValue):GType; cdecl; external gliblib;
 
77
{ functions to complete the type information
 
78
   for enums/flags implemented by plugins
 
79
  }
 
80
procedure g_enum_complete_type_info(g_enum_type:GType; info:PGTypeInfo; const_values:PGEnumValue); cdecl; external gliblib;
 
81
procedure g_flags_complete_type_info(g_flags_type:GType; info:PGTypeInfo; const_values:PGFlagsValue); cdecl; external gliblib;
 
82
 
 
83
{$ENDIF read_interface_rest}
 
84
 
 
85
// included by glib2.pas
 
86
 
 
87