← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gtk/gtklayout.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/gtk+/gtk/gtklayout.inc
 
1
// included by gtk2.pas
 
2
 
 
3
{$IFDEF read_forward_definitions}
 
4
{$ENDIF read_forward_definitions}
 
5
 
 
6
//------------------------------------------------------------------------------
 
7
 
 
8
{$IFDEF read_interface_types}
 
9
{< public > }
 
10
{< private > }
 
11
   PGtkLayout = ^TGtkLayout;
 
12
   TGtkLayout = record
 
13
        container : TGtkContainer;
 
14
        children : PGList;
 
15
        width : guint;
 
16
        height : guint;
 
17
        hadjustment : PGtkAdjustment;
 
18
        vadjustment : PGtkAdjustment;
 
19
        bin_window : PGdkWindow;
 
20
        visibility : TGdkVisibilityState;
 
21
        scroll_x : gint;
 
22
        scroll_y : gint;
 
23
        freeze_count : guint;
 
24
     end;
 
25
 
 
26
{ Padding for future expansion  }
 
27
   PGtkLayoutClass = ^TGtkLayoutClass;
 
28
   TGtkLayoutClass = record
 
29
        parent_class : TGtkContainerClass;
 
30
        set_scroll_adjustments : procedure (layout:PGtkLayout; hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment); cdecl;
 
31
        _gtk_reserved1 : procedure ; cdecl;
 
32
        _gtk_reserved2 : procedure ; cdecl;
 
33
        _gtk_reserved3 : procedure ; cdecl;
 
34
        _gtk_reserved4 : procedure ; cdecl;
 
35
     end;
 
36
 
 
37
{$ENDIF read_interface_types}
 
38
 
 
39
//------------------------------------------------------------------------------
 
40
 
 
41
{$IFDEF read_interface_rest}
 
42
function GTK_TYPE_LAYOUT : GType;
 
43
function GTK_LAYOUT(obj: pointer) : PGtkLayout;
 
44
function GTK_LAYOUT_CLASS(klass: pointer) : PGtkLayoutClass;
 
45
function GTK_IS_LAYOUT(obj: pointer) : boolean;
 
46
function GTK_IS_LAYOUT_CLASS(klass: pointer) : boolean;
 
47
function GTK_LAYOUT_GET_CLASS(obj: pointer) : PGtkLayoutClass;
 
48
 
 
49
 
 
50
function gtk_layout_get_type:TGtkType; cdecl; external gtklib;
 
51
function gtk_layout_new(hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment):PGtkWidget; cdecl; external gtklib;
 
52
procedure gtk_layout_put(layout:PGtkLayout; child_widget:PGtkWidget; x:gint; y:gint); cdecl; external gtklib;
 
53
procedure gtk_layout_move(layout:PGtkLayout; child_widget:PGtkWidget; x:gint; y:gint); cdecl; external gtklib;
 
54
procedure gtk_layout_set_size(layout:PGtkLayout; width:guint; height:guint); cdecl; external gtklib;
 
55
procedure gtk_layout_get_size(layout:PGtkLayout; width:Pguint; height:Pguint); cdecl; external gtklib;
 
56
function gtk_layout_get_hadjustment(layout:PGtkLayout):PGtkAdjustment; cdecl; external gtklib;
 
57
function gtk_layout_get_vadjustment(layout:PGtkLayout):PGtkAdjustment; cdecl; external gtklib;
 
58
procedure gtk_layout_set_hadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment); cdecl; external gtklib;
 
59
procedure gtk_layout_set_vadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment); cdecl; external gtklib;
 
60
 
 
61
{$ifndef GTK_DISABLE_DEPRECATED}
 
62
{ These disable and enable moving and repainting the scrolling window
 
63
   of the GtkLayout, respectively.  If you want to update the layout's
 
64
   offsets but do not want it to repaint itself, you should use these
 
65
   functions.
 
66
 
 
67
   - I don't understand these are supposed to work, so I suspect
 
68
   - they don't now.                    OWT 1/20/98
 
69
  }
 
70
 
 
71
procedure gtk_layout_freeze(layout:PGtkLayout); cdecl; external gtklib;
 
72
procedure gtk_layout_thaw(layout:PGtkLayout); cdecl; external gtklib;
 
73
{$endif}
 
74
{ GTK_DISABLE_DEPRECATED  }
 
75
{$ENDIF read_interface_rest}
 
76
 
 
77
//------------------------------------------------------------------------------
 
78
 
 
79
{$IFDEF read_implementation}
 
80
function GTK_TYPE_LAYOUT : GType;
 
81
begin
 
82
   GTK_TYPE_LAYOUT:=gtk_layout_get_type;
 
83
end;
 
84
 
 
85
function GTK_LAYOUT(obj: pointer) : PGtkLayout;
 
86
begin
 
87
   GTK_LAYOUT:=PGtkLayout(GTK_CHECK_CAST(obj,GTK_TYPE_LAYOUT));
 
88
end;
 
89
 
 
90
function GTK_LAYOUT_CLASS(klass: pointer) : PGtkLayoutClass;
 
91
begin
 
92
   GTK_LAYOUT_CLASS:=PGtkLayoutClass(GTK_CHECK_CLASS_CAST(klass,GTK_TYPE_LAYOUT));
 
93
end;
 
94
 
 
95
function GTK_IS_LAYOUT(obj: pointer) : boolean;
 
96
begin
 
97
   GTK_IS_LAYOUT:=GTK_CHECK_TYPE(obj,GTK_TYPE_LAYOUT);
 
98
end;
 
99
 
 
100
function GTK_IS_LAYOUT_CLASS(klass: pointer) : boolean;
 
101
begin
 
102
   GTK_IS_LAYOUT_CLASS:=GTK_CHECK_CLASS_TYPE(klass,GTK_TYPE_LAYOUT);
 
103
end;
 
104
 
 
105
function GTK_LAYOUT_GET_CLASS(obj: pointer) : PGtkLayoutClass;
 
106
begin
 
107
   GTK_LAYOUT_GET_CLASS:=PGtkLayoutClass(GTK_CHECK_GET_CLASS(obj,GTK_TYPE_LAYOUT));
 
108
end;
 
109
 
 
110
{$ENDIF read_implementation}
 
111
// included by gtk2.pas
 
112