← 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+/gdk/gdkprivate.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+/gdk/gdkprivate.inc
 
1
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
 
2
Type
 
3
  PLongint  = ^Longint;
 
4
  PSmallInt = ^SmallInt;
 
5
  PByte     = ^Byte;
 
6
  PWord     = ^Word;
 
7
  PDWord    = ^DWord;
 
8
  PDouble   = ^Double;
 
9
 
 
10
{$PACKRECORDS C}
 
11
 
 
12
{ GDK - The GIMP Drawing Kit
 
13
   Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 
14
 
 
15
   This library is free software; you can redistribute it and/or
 
16
   modify it under the terms of the GNU Lesser General Public
 
17
   License as published by the Free Software Foundation; either
 
18
   version 2 of the License, or (at your option) any later version.
 
19
 
 
20
   This library is distributed in the hope that it will be useful,
 
21
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
22
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
23
   Lesser General Public License for more details.
 
24
 
 
25
   You should have received a copy of the GNU Lesser General Public
 
26
   License along with this library; if not, write to the
 
27
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
28
   Boston, MA 02111-1307, USA.
 
29
  }
 
30
{
 
31
   Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
 
32
   file for a list of people on the GTK+ Team.  See the ChangeLog
 
33
   files for a list of changes.  These files are distributed with
 
34
   GTK+ at ftp://ftp.gtk.org/pub/gtk/.
 
35
  }
 
36
{$ifndef __GDK_PRIVATE_H__}
 
37
{$define __GDK_PRIVATE_H__}
 
38
{$include <gdk/gdktypes.inc}
 
39
{$include <gdk/gdkevents.inc}
 
40
{$include <gdk/gdkfont.inc}
 
41
{$include <gdk/gdkgc.inc}
 
42
{$include <gdk/gdkimage.inc}
 
43
{$include <gdk/gdkregion.inc}
 
44
{$include <gdk/gdkvisual.inc}
 
45
{$include <gdk/gdkwindow.inc}
 
46
function GDK_PARENT_RELATIVE_BG : PGdkPixmap;
 
47
function GDK_NO_BG : PGdkPixmap;
 
48
 
 
49
{ was #define dname(params) para_def_expr }
 
50
{ argument types are unknown }
 
51
{ return type might be wrong }
 
52
function GDK_WINDOW_TYPE(d : longint) : longint;
 
53
 
 
54
{ was #define dname(params) para_def_expr }
 
55
{ argument types are unknown }
 
56
{ return type might be wrong }
 
57
function GDK_WINDOW_DESTROYED(d : longint) : longint;
 
58
 
 
59
procedure gdk_window_destroy_notify(window:PGdkWindow); cdecl; external gdklib;
 
60
procedure gdk_synthesize_window_state(window:PGdkWindow; unset_flags:TGdkWindowState; set_flags:TGdkWindowState); cdecl; external gdklib;
 
61
{$endif}
 
62
{ __GDK_PRIVATE_H__  }
 
63
function GDK_PARENT_RELATIVE_BG : PGdkPixmap;
 
64
  begin
 
65
     GDK_PARENT_RELATIVE_BG:=PGdkPixmap(1);
 
66
  end;
 
67
 
 
68
function GDK_NO_BG : PGdkPixmap;
 
69
  begin
 
70
     GDK_NO_BG:=PGdkPixmap(2);
 
71
  end;
 
72
 
 
73
{ was #define dname(params) para_def_expr }
 
74
{ argument types are unknown }
 
75
{ return type might be wrong }
 
76
function GDK_WINDOW_TYPE(d : longint) : longint;
 
77
begin
 
78
   GDK_WINDOW_TYPE:=(PGdkWindowObject(GDK_WINDOW(d)))^.window_type;
 
79
end;
 
80
 
 
81
{ was #define dname(params) para_def_expr }
 
82
{ argument types are unknown }
 
83
{ return type might be wrong }
 
84
function GDK_WINDOW_DESTROYED(d : longint) : longint;
 
85
begin
 
86
   GDK_WINDOW_DESTROYED:=(PGdkWindowObject(GDK_WINDOW(d)))^.destroyed;
 
87
end;
 
88
 
 
89