← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk2x11/include/gdkwindow-x11.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/gtk2x11/include/gdkwindow-x11.inc
 
1
{%MainUnit ../gdk2x.pas}
 
2
 
 
3
{$IFDEF read_interface_rest}
 
4
 
 
5
type
 
6
{ Offsets to add to X coordinates within window  }
 
7
{   to get GDK coodinates within window  }
 
8
{ Set when the window background is temporarily
 
9
   unset during resizing and scaling  }
 
10
{ visible rectangle of window  }
 
11
   PGdkXPositionInfo = ^TGdkXPositionInfo;
 
12
   TGdkXPositionInfo = record
 
13
        x : gint;
 
14
        y : gint;
 
15
        width : gint;
 
16
        height : gint;
 
17
        x_offset : gint;
 
18
        y_offset : gint;
 
19
        flag0 : word;
 
20
        clip_rect : TGdkRectangle;
 
21
     end;
 
22
 
 
23
const
 
24
   bm_TGdkXPositionInfo_big = $1;
 
25
   bp_TGdkXPositionInfo_big = 0;
 
26
   bm_TGdkXPositionInfo_mapped = $2;
 
27
   bp_TGdkXPositionInfo_mapped = 1;
 
28
   bm_TGdkXPositionInfo_no_bg = $4;
 
29
   bp_TGdkXPositionInfo_no_bg = 2;
 
30
function big(var a : TGdkXPositionInfo) : guint;
 
31
procedure set_big(var a : TGdkXPositionInfo; __big : guint);
 
32
function mapped(var a : TGdkXPositionInfo) : guint;
 
33
procedure set_mapped(var a : TGdkXPositionInfo; __mapped : guint);
 
34
function no_bg(var a : TGdkXPositionInfo) : guint;
 
35
procedure set_no_bg(var a : TGdkXPositionInfo; __no_bg : guint);
 
36
{ Window implementation for X11 }
 
37
 
 
38
 
 
39
type
 
40
   PGdkWindowImplX11 = ^TGdkWindowImplX11;
 
41
   TGdkWindowImplX11 = record
 
42
        parent_instance : TGdkDrawableImplX11;
 
43
        width : gint;
 
44
        height : gint;
 
45
        position_info : TGdkXPositionInfo;
 
46
        flag0 : word;
 
47
        focus_window : TWindow;
 
48
     end;
 
49
 
 
50
type
 
51
   PGdkWindowImplX11Class = ^TGdkWindowImplX11Class;
 
52
   TGdkWindowImplX11Class = record
 
53
        parent_class : TGdkDrawableImplX11Class;
 
54
     end;
 
55
 
 
56
 
 
57
function GDK_TYPE_WINDOW_IMPL_X11 : GType;
 
58
 
 
59
function GDK_WINDOW_IMPL_X11(obj : pointer) : PGdkWindowImplX11;
 
60
 
 
61
function GDK_WINDOW_IMPL_X11_CLASS(klass : pointer) : PGdkWindowImplX11Class;
 
62
 
 
63
function GDK_IS_WINDOW_IMPL_X11(obj : pointer) : boolean;
 
64
 
 
65
function GDK_IS_WINDOW_IMPL_X11_CLASS(klass : pointer) : boolean;
 
66
 
 
67
function GDK_WINDOW_IMPL_X11_GET_CLASS(obj : pointer) : PGdkWindowImplX11Class;
 
68
 
 
69
{ Set if the window, or any descendent of it, has the focus }
 
70
{ Set if !window_has_focus, but events are being sent to the
 
71
     window because the pointer is in it. (Typically, no window
 
72
     manager is running. }
 
73
{ We use an extra X window for toplevel windows that we XSetInputFocus()
 
74
     to in order to avoid getting keyboard events redirected to subwindows
 
75
     that might not even be part of this app }
 
76
 
 
77
const
 
78
   bm_TGdkWindowImplX11_has_focus = $1;
 
79
   bp_TGdkWindowImplX11_has_focus = 0;
 
80
   bm_TGdkWindowImplX11_has_pointer_focus = $2;
 
81
   bp_TGdkWindowImplX11_has_pointer_focus = 1;
 
82
function has_focus(var a : TGdkWindowImplX11) : guint;
 
83
procedure set_has_focus(var a : TGdkWindowImplX11; __has_focus : guint);
 
84
function has_pointer_focus(var a : TGdkWindowImplX11) : guint;
 
85
procedure set_has_pointer_focus(var a : TGdkWindowImplX11; __has_pointer_focus : guint);
 
86
 
 
87
 
 
88
function gdk_window_impl_x11_get_type:GType;cdecl;external;
 
89
 
 
90
{$ENDIF read_interface_rest}
 
91
 
 
92
//------------------------------------------------------------------------------
 
93
 
 
94
{$IFDEF read_implementation}
 
95
 
 
96
function big(var a : TGdkXPositionInfo) : guint;
 
97
begin
 
98
   big:=(a.flag0 and bm_TGdkXPositionInfo_big) shr bp_TGdkXPositionInfo_big;
 
99
end;
 
100
 
 
101
procedure set_big(var a : TGdkXPositionInfo; __big : guint);
 
102
begin
 
103
   a.flag0:=a.flag0 or ((__big shl bp_TGdkXPositionInfo_big) and bm_TGdkXPositionInfo_big);
 
104
end;
 
105
 
 
106
function mapped(var a : TGdkXPositionInfo) : guint;
 
107
begin
 
108
   mapped:=(a.flag0 and bm_TGdkXPositionInfo_mapped) shr bp_TGdkXPositionInfo_mapped;
 
109
end;
 
110
 
 
111
procedure set_mapped(var a : TGdkXPositionInfo; __mapped : guint);
 
112
begin
 
113
   a.flag0:=a.flag0 or ((__mapped shl bp_TGdkXPositionInfo_mapped) and bm_TGdkXPositionInfo_mapped);
 
114
end;
 
115
 
 
116
function no_bg(var a : TGdkXPositionInfo) : guint;
 
117
begin
 
118
   no_bg:=(a.flag0 and bm_TGdkXPositionInfo_no_bg) shr bp_TGdkXPositionInfo_no_bg;
 
119
end;
 
120
 
 
121
procedure set_no_bg(var a : TGdkXPositionInfo; __no_bg : guint);
 
122
begin
 
123
   a.flag0:=a.flag0 or ((__no_bg shl bp_TGdkXPositionInfo_no_bg) and bm_TGdkXPositionInfo_no_bg);
 
124
end;
 
125
 
 
126
function GDK_TYPE_WINDOW_IMPL_X11 : GType;
 
127
begin
 
128
   GDK_TYPE_WINDOW_IMPL_X11:=gdk_window_impl_x11_get_type;
 
129
end;
 
130
 
 
131
function GDK_WINDOW_IMPL_X11(obj : pointer) : PGdkWindowImplX11;
 
132
begin
 
133
   GDK_WINDOW_IMPL_X11:=PGdkWindowImplX11(G_TYPE_CHECK_INSTANCE_CAST(obj,GDK_TYPE_WINDOW_IMPL_X11));
 
134
end;
 
135
 
 
136
function GDK_WINDOW_IMPL_X11_CLASS(klass : pointer) : PGdkWindowImplX11Class;
 
137
begin
 
138
   GDK_WINDOW_IMPL_X11_CLASS:=PGdkWindowImplX11Class(G_TYPE_CHECK_CLASS_CAST(klass,GDK_TYPE_WINDOW_IMPL_X11));
 
139
end;
 
140
 
 
141
function GDK_IS_WINDOW_IMPL_X11(obj : pointer) : boolean;
 
142
begin
 
143
   GDK_IS_WINDOW_IMPL_X11:=G_TYPE_CHECK_INSTANCE_TYPE(obj,GDK_TYPE_WINDOW_IMPL_X11);
 
144
end;
 
145
 
 
146
function GDK_IS_WINDOW_IMPL_X11_CLASS(klass : pointer) : boolean;
 
147
begin
 
148
   GDK_IS_WINDOW_IMPL_X11_CLASS:=G_TYPE_CHECK_CLASS_TYPE(klass,GDK_TYPE_WINDOW_IMPL_X11);
 
149
end;
 
150
 
 
151
function GDK_WINDOW_IMPL_X11_GET_CLASS(obj : pointer) : PGdkWindowImplX11Class;
 
152
begin
 
153
   GDK_WINDOW_IMPL_X11_GET_CLASS:=PGdkWindowImplX11Class(G_TYPE_INSTANCE_GET_CLASS(obj,GDK_TYPE_WINDOW_IMPL_X11));
 
154
end;
 
155
 
 
156
function has_focus(var a : TGdkWindowImplX11) : guint;
 
157
begin
 
158
   has_focus:=(a.flag0 and bm_TGdkWindowImplX11_has_focus) shr bp_TGdkWindowImplX11_has_focus;
 
159
end;
 
160
 
 
161
procedure set_has_focus(var a : TGdkWindowImplX11; __has_focus : guint);
 
162
begin
 
163
   a.flag0:=a.flag0 or ((__has_focus shl bp_TGdkWindowImplX11_has_focus) and bm_TGdkWindowImplX11_has_focus);
 
164
end;
 
165
 
 
166
function has_pointer_focus(var a : TGdkWindowImplX11) : guint;
 
167
begin
 
168
   has_pointer_focus:=(a.flag0 and bm_TGdkWindowImplX11_has_pointer_focus) shr bp_TGdkWindowImplX11_has_pointer_focus;
 
169
end;
 
170
 
 
171
procedure set_has_pointer_focus(var a : TGdkWindowImplX11; __has_pointer_focus : guint);
 
172
begin
 
173
   a.flag0:=a.flag0 or ((__has_pointer_focus shl bp_TGdkWindowImplX11_has_pointer_focus) and bm_TGdkWindowImplX11_has_pointer_focus);
 
174
end;
 
175
 
 
176
{$ENDIF read_implementation}
 
177