← Back to branch summary

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

« back to all changes in this revision

Viewing changes to packages/extra/gtk/gdk/gdkx.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/gdk/gdkx.pp
1
 
{
2
 
   $Id: gdkx.pp,v 1.5 2004/05/02 19:14:47 jonas Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
{$ifndef gtkwin}
12
 
  {$ifndef gtkos2}
13
 
function  GDK_GET_ROOT_WINDOW : PGdkWindow;
14
 
function  GDK_GET_ROOT_PARENT : PGdkWindow;
15
 
function  GDK_GET_XDISPLAY : PDisplay;
16
 
function  GDK_WINDOW_XDISPLAY(win : PGdkWindowPrivate) : PDisplay;
17
 
function  GDK_WINDOW_XWINDOW(win : PGdkWindowPrivate) : Twindow;
18
 
function  GDK_IMAGE_XDISPLAY(image : PGdkImagePrivate) : PDisplay;
19
 
function  GDK_IMAGE_XIMAGE(image : PGdkImagePrivate) : PXImage;
20
 
function  GDK_GC_XDISPLAY(gc : PGdkGCPrivate) : PDisplay;
21
 
function  GDK_GC_XGC(gc : PGdkGCPrivate) : TGC;
22
 
function  GDK_COLORMAP_XDISPLAY(cmap : PGdkColorMapPrivate) : PDisplay;
23
 
function  GDK_COLORMAP_XCOLORMAP(cmap : PGdkColorMapPrivate) : TColorMap;
24
 
function  GDK_VISUAL_XVISUAL(vis : PGdkVisualPrivate) : PVisual;
25
 
function  GDK_FONT_XDISPLAY(font : PGdkFontPrivate) : PDisplay;
26
 
function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
27
 
 
28
 
function  gdkx_visual_get(xvisualid:TVisualID):PGdkVisual;cdecl;external gdkdll name 'gdkx_visual_get';
29
 
function  gdkx_colormap_get(xcolormap:TColormap):PGdkColormap;cdecl;external gdkdll name 'gdkx_colormap_get';
30
 
{$ifndef gtkdarwin}
31
 
function  gdk_get_client_window(dpy:pDisplay; win:TWindow):TWindow;cdecl;external gdkdll name 'gdk_get_client_window';
32
 
{$endif not gtkdarwin}
33
 
  {$endif}
34
 
{$endif}
35
 
 
36
 
{$ifndef gtkos2}
37
 
function  gdk_pixmap_foreign_new(anid:guint32):PGdkPixmap;cdecl;external gdkdll name 'gdk_pixmap_foreign_new';
38
 
function  gdk_window_foreign_new(anid:guint32):PGdkWindow;cdecl;external gdkdll name 'gdk_window_foreign_new';
39
 
{$endif}
40
 
{$endif read_interface}
41
 
 
42
 
 
43
 
{****************************************************************************
44
 
                              Implementation
45
 
****************************************************************************}
46
 
 
47
 
{$ifdef read_implementation}
48
 
 
49
 
{$ifndef gtkwin}
50
 
  {$ifndef gtkos2}
51
 
function  GDK_GET_ROOT_WINDOW : PGdkWindow;
52
 
    begin
53
 
       GDK_GET_ROOT_WINDOW:=PGdkwindow(gdk_root_window);
54
 
    end;
55
 
 
56
 
function  GDK_GET_ROOT_PARENT : PGdkWindow;
57
 
    begin
58
 
       GDK_GET_ROOT_PARENT:=PGdkWindow(@(gdk_root_parent));
59
 
    end;
60
 
 
61
 
function  GDK_GET_XDISPLAY : PDisplay;
62
 
    begin
63
 
       GDK_GET_XDISPLAY:=gdk_display;
64
 
    end;
65
 
 
66
 
function  GDK_WINDOW_XDISPLAY(win : PGdkWindowPrivate) : PDisplay;
67
 
    begin
68
 
       GDK_WINDOW_XDISPLAY:=(PGdkWindowPrivate(win))^.xdisplay;
69
 
    end;
70
 
 
71
 
function  GDK_WINDOW_XWINDOW(win : PGdkWindowPrivate) : Twindow;
72
 
    begin
73
 
       GDK_WINDOW_XWINDOW:=(PGdkWindowPrivate(win))^.xwindow;
74
 
    end;
75
 
 
76
 
function  GDK_IMAGE_XDISPLAY(image : PGdkImagePrivate) : PDisplay;
77
 
    begin
78
 
       GDK_IMAGE_XDISPLAY:=(PGdkImagePrivate(image))^.xdisplay;
79
 
    end;
80
 
 
81
 
function  GDK_IMAGE_XIMAGE(image : PGdkImagePrivate) : PXImage;
82
 
    begin
83
 
       GDK_IMAGE_XIMAGE:=(PGdkImagePrivate(image))^.ximage;
84
 
    end;
85
 
 
86
 
function  GDK_GC_XDISPLAY(gc : PGdkGCPrivate) : PDisplay;
87
 
    begin
88
 
       GDK_GC_XDISPLAY:=(PGdkGCPrivate(gc))^.xdisplay;
89
 
    end;
90
 
 
91
 
function  GDK_GC_XGC(gc : PGdkGCPrivate) : TGC;
92
 
    begin
93
 
       GDK_GC_XGC:=(PGdkGCPrivate(gc))^.xgc;
94
 
    end;
95
 
 
96
 
function  GDK_COLORMAP_XDISPLAY(cmap : PGdkColorMapPrivate) : PDisplay;
97
 
    begin
98
 
       GDK_COLORMAP_XDISPLAY:=(PGdkColormapPrivate(cmap))^.xdisplay;
99
 
    end;
100
 
 
101
 
function  GDK_COLORMAP_XCOLORMAP(cmap : PGdkColorMapPrivate) : TColorMap;
102
 
    begin
103
 
       GDK_COLORMAP_XCOLORMAP:=(PGdkColormapPrivate(cmap))^.xcolormap;
104
 
    end;
105
 
 
106
 
function  GDK_VISUAL_XVISUAL(vis : PGdkVisualPrivate) : PVisual;
107
 
    begin
108
 
       GDK_VISUAL_XVISUAL:=(PGdkVisualPrivate(vis))^.xvisual;
109
 
    end;
110
 
 
111
 
function  GDK_FONT_XDISPLAY(font : PGdkFontPrivate) : PDisplay;
112
 
    begin
113
 
       GDK_FONT_XDISPLAY:=(PGdkFontPrivate(font))^.xdisplay;
114
 
    end;
115
 
 
116
 
function  GDK_FONT_XFONT(font : PGdkFontPrivate) : gpointer;
117
 
    begin
118
 
       GDK_FONT_XFONT:=(PGdkFontPrivate(font))^.xfont;
119
 
    end;
120
 
 
121
 
  {$endif}
122
 
{$endif}
123
 
 
124
 
{$endif read_implementation}
125
 
 
126
 
 
127
 
{
128
 
  $Log: gdkx.pp,v $
129
 
  Revision 1.5  2004/05/02 19:14:47  jonas
130
 
    * fixed darwin incompatibilities
131
 
 
132
 
  Revision 1.4  2003/08/06 07:28:21  michael
133
 
  + Patch from Marc Weustinck to fix Win32 version
134
 
 
135
 
  Revision 1.3  2003/03/02 02:08:50  hajny
136
 
    + OS/2 support for GTK and X11 added by Yuri
137
 
 
138
 
  Revision 1.2  2002/09/07 15:42:58  peter
139
 
    * old logs removed and tabs fixed
140
 
 
141
 
  Revision 1.1  2002/01/29 17:55:08  peter
142
 
    * splitted to base and extra
143
 
 
144
 
}