← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gtk/gtkbox.pp

  • 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:
packages/extra/gtk/gtk/gtkbox.pp
1
 
{
2
 
   $Id: gtkbox.pp,v 1.2 2002/09/07 15:42:59 peter Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
    type
12
 
       PGtkBox = ^TGtkBox;
13
 
       TGtkBox = record
14
 
            container : TGtkContainer;
15
 
            children : PGList;
16
 
            spacing : gint16;
17
 
            flag0 : {$ifdef win32}longint{$else}word{$endif};
18
 
         end;
19
 
 
20
 
    const
21
 
       bm_box_homogeneous = 1;
22
 
       bp_box_homogeneous = 0;
23
 
function  homogeneous(var a : TGtkBox) : guint;
24
 
procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
25
 
 
26
 
    type
27
 
       PGtkBoxClass = ^TGtkBoxClass;
28
 
       TGtkBoxClass = record
29
 
            parent_class : TGtkContainerClass;
30
 
         end;
31
 
 
32
 
       PGtkBoxChild = ^TGtkBoxChild;
33
 
       TGtkBoxChild = record
34
 
            widget : PGtkWidget;
35
 
            padding : guint16;
36
 
            flag0 : {$ifdef win32}longint{$else}word{$endif};
37
 
         end;
38
 
 
39
 
    const
40
 
       bm_box_expand = 1;
41
 
       bp_box_expand = 0;
42
 
       bm_box_fill = 2;
43
 
       bp_box_fill = 1;
44
 
       bm_box_pack = 4;
45
 
       bp_box_pack = 2;
46
 
 
47
 
function  expand(var a : TGtkBoxChild) : guint;
48
 
procedure set_expand(var a : TGtkBoxChild; __expand : guint);
49
 
function  fill(var a : TGtkBoxChild) : guint;
50
 
procedure set_fill(var a : TGtkBoxChild; __fill : guint);
51
 
function  pack(var a : TGtkBoxChild) : guint;
52
 
procedure set_pack(var a : TGtkBoxChild; __pack : guint);
53
 
 
54
 
Type
55
 
  GTK_BOX=PGtkBox;
56
 
  GTK_BOX_CLASS=PGtkBoxClass;
57
 
 
58
 
function  GTK_BOX_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
59
 
function  GTK_IS_BOX(obj:pointer):boolean;
60
 
function  GTK_IS_BOX_CLASS(klass:pointer):boolean;
61
 
 
62
 
function  gtk_box_get_type:TGtkType;cdecl;external gtkdll name 'gtk_box_get_type';
63
 
procedure gtk_box_pack_start(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_start';
64
 
procedure gtk_box_pack_end(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint);cdecl;external gtkdll name 'gtk_box_pack_end';
65
 
procedure gtk_box_pack_start_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_start_defaults';
66
 
procedure gtk_box_pack_end_defaults(box:PGtkBox; widget:PGtkWidget);cdecl;external gtkdll name 'gtk_box_pack_end_defaults';
67
 
procedure gtk_box_set_homogeneous(box:PGtkBox; homogeneous:gboolean);cdecl;external gtkdll name 'gtk_box_set_homogeneous';
68
 
procedure gtk_box_set_spacing(box:PGtkBox; spacing:gint);cdecl;external gtkdll name 'gtk_box_set_spacing';
69
 
procedure gtk_box_reorder_child(box:PGtkBox; child:PGtkWidget; position:gint);cdecl;external gtkdll name 'gtk_box_reorder_child';
70
 
procedure gtk_box_query_child_packing(box:PGtkBox; child:PGtkWidget; expand:Pgboolean; fill:Pgboolean; padding:Pguint;pack_type:PGtkPackType);cdecl;external gtkdll name 'gtk_box_query_child_packing';
71
 
procedure gtk_box_set_child_packing(box:PGtkBox; child:PGtkWidget; expand:gboolean; fill:gboolean; padding:guint; pack_type:TGtkPackType);cdecl;external gtkdll name 'gtk_box_set_child_packing';
72
 
 
73
 
{$endif read_interface}
74
 
 
75
 
 
76
 
{****************************************************************************
77
 
                              Implementation
78
 
****************************************************************************}
79
 
 
80
 
{$ifdef read_implementation}
81
 
 
82
 
function  homogeneous(var a : TGtkBox) : guint;
83
 
      begin
84
 
         homogeneous:=(a.flag0 and bm_box_homogeneous) shr bp_box_homogeneous;
85
 
      end;
86
 
 
87
 
procedure set_homogeneous(var a : TGtkBox; __homogeneous : guint);
88
 
      begin
89
 
         a.flag0:=a.flag0 or ((__homogeneous shl bp_box_homogeneous) and bm_box_homogeneous);
90
 
      end;
91
 
 
92
 
function  expand(var a : TGtkBoxChild) : guint;
93
 
      begin
94
 
         expand:=(a.flag0 and bm_box_expand) shr bp_box_expand;
95
 
      end;
96
 
 
97
 
procedure set_expand(var a : TGtkBoxChild; __expand : guint);
98
 
      begin
99
 
         a.flag0:=a.flag0 or ((__expand shl bp_box_expand) and bm_box_expand);
100
 
      end;
101
 
 
102
 
function  fill(var a : TGtkBoxChild) : guint;
103
 
      begin
104
 
         fill:=(a.flag0 and bm_box_fill) shr bp_box_fill;
105
 
      end;
106
 
 
107
 
procedure set_fill(var a : TGtkBoxChild; __fill : guint);
108
 
      begin
109
 
         a.flag0:=a.flag0 or ((__fill shl bp_box_fill) and bm_box_fill);
110
 
      end;
111
 
 
112
 
function  pack(var a : TGtkBoxChild) : guint;
113
 
      begin
114
 
         pack:=(a.flag0 and bm_box_pack) shr bp_box_pack;
115
 
      end;
116
 
 
117
 
procedure set_pack(var a : TGtkBoxChild; __pack : guint);
118
 
      begin
119
 
         a.flag0:=a.flag0 or ((__pack shl bp_box_pack) and bm_box_pack);
120
 
      end;
121
 
 
122
 
function  GTK_IS_BOX(obj:pointer):boolean;
123
 
begin
124
 
  GTK_IS_BOX:=(obj<>nil) and GTK_IS_BOX_CLASS(PGtkTypeObject(obj)^.klass);
125
 
end;
126
 
 
127
 
function  GTK_IS_BOX_CLASS(klass:pointer):boolean;
128
 
begin
129
 
  GTK_IS_BOX_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_BOX_TYPE);
130
 
end;
131
 
 
132
 
{$endif read_implementation}
133
 
 
134
 
 
135
 
{
136
 
  $Log: gtkbox.pp,v $
137
 
  Revision 1.2  2002/09/07 15:42:59  peter
138
 
    * old logs removed and tabs fixed
139
 
 
140
 
  Revision 1.1  2002/01/29 17:55:08  peter
141
 
    * splitted to base and extra
142
 
 
143
 
}