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