← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk/gtk/gtklayout.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:
fpcsrc/packages/extra/gtk/gtk/gtklayout.pp
 
1
{
 
2
}
 
3
 
 
4
{****************************************************************************
 
5
                                 Interface
 
6
****************************************************************************}
 
7
 
 
8
{$ifdef read_interface}
 
9
 
 
10
  type
 
11
     PGtkLayout = ^TGtkLayout;
 
12
     TGtkLayout = record
 
13
          container : TGtkContainer;
 
14
          children : PGList;
 
15
          width : guint;
 
16
          height : guint;
 
17
          xoffset : guint;
 
18
          yoffset : guint;
 
19
          hadjustment : PGtkAdjustment;
 
20
          vadjustment : PGtkAdjustment;
 
21
          bin_window : PGdkWindow;
 
22
          visibility : TGdkVisibilityState;
 
23
          configure_serial : gulong;
 
24
          scroll_x : gint;
 
25
          scroll_y : gint;
 
26
          freeze_count : guint;
 
27
       end;
 
28
 
 
29
     PGtkLayoutClass = ^TGtkLayoutClass;
 
30
     TGtkLayoutClass = record
 
31
          parent_class : TGtkContainerClass;
 
32
          set_scroll_adjustments : procedure (layout:PGtkLayout; hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment);cdecl;
 
33
       end;
 
34
 
 
35
type
 
36
  GTK_LAYOUT=PGtkLayout;
 
37
  GTK_LAYOUT_CLASS=PGtkLayoutClass;
 
38
 
 
39
function  GTK_LAYOUT_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_layout_get_type';
 
40
function  GTK_IS_LAYOUT(obj:pointer):boolean;
 
41
function  GTK_IS_LAYOUT_CLASS(klass:pointer):boolean;
 
42
 
 
43
function  gtk_layout_get_type:TGtkType;cdecl;external gtkdll name 'gtk_layout_get_type';
 
44
function  gtk_layout_new(hadjustment:PGtkAdjustment; vadjustment:PGtkAdjustment):PGtkWidget;cdecl;external gtkdll name 'gtk_layout_new';
 
45
procedure gtk_layout_put(layout:PGtkLayout; widget:PGtkWidget; x:gint; y:gint);cdecl;external gtkdll name 'gtk_layout_put';
 
46
procedure gtk_layout_move(layout:PGtkLayout; widget:PGtkWidget; x:gint; y:gint);cdecl;external gtkdll name 'gtk_layout_move';
 
47
procedure gtk_layout_set_size(layout:PGtkLayout; width:guint; height:guint);cdecl;external gtkdll name 'gtk_layout_set_size';
 
48
function  gtk_layout_get_hadjustment(layout:PGtkLayout):PGtkAdjustment;cdecl;external gtkdll name 'gtk_layout_get_hadjustment';
 
49
function  gtk_layout_get_vadjustment(layout:PGtkLayout):PGtkAdjustment;cdecl;external gtkdll name 'gtk_layout_get_vadjustment';
 
50
procedure gtk_layout_set_hadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_layout_set_hadjustment';
 
51
procedure gtk_layout_set_vadjustment(layout:PGtkLayout; adjustment:PGtkAdjustment);cdecl;external gtkdll name 'gtk_layout_set_vadjustment';
 
52
procedure gtk_layout_freeze(layout:PGtkLayout);cdecl;external gtkdll name 'gtk_layout_freeze';
 
53
procedure gtk_layout_thaw(layout:PGtkLayout);cdecl;external gtkdll name 'gtk_layout_thaw';
 
54
 
 
55
{$endif read_interface}
 
56
 
 
57
 
 
58
{****************************************************************************
 
59
                              Implementation
 
60
****************************************************************************}
 
61
 
 
62
{$ifdef read_implementation}
 
63
 
 
64
function  GTK_IS_LAYOUT(obj:pointer):boolean;
 
65
begin
 
66
  GTK_IS_LAYOUT:=(obj<>nil) and GTK_IS_LAYOUT_CLASS(PGtkTypeObject(obj)^.klass);
 
67
end;
 
68
 
 
69
function  GTK_IS_LAYOUT_CLASS(klass:pointer):boolean;
 
70
begin
 
71
  GTK_IS_LAYOUT_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_LAYOUT_TYPE);
 
72
end;
 
73
 
 
74
{$endif read_implementation}
 
75
 
 
76