← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/gtk1/src/gdk/gdk.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/gtk1/src/gdk/gdk.pp
 
1
{
 
2
 
 
3
   GDK - The GIMP Drawing Kit
 
4
   Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 
5
 
 
6
   This library is free software; you can redistribute it and/or
 
7
   modify it under the terms of the GNU Library General Public
 
8
   License as published by the Free Software Foundation; either
 
9
   version 2 of the License, or (at your option) any later version.
 
10
 
 
11
   This library is distributed in the hope that it will be useful,
 
12
   but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
14
   Library General Public License for more details.
 
15
 
 
16
   You should have received a copy of the GNU Library General Public
 
17
   License along with this library; if not, write to the
 
18
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 
19
   Boston, MA 02111-1307, USA.
 
20
 
 
21
 **********************************************************************}
 
22
unit gdk;
 
23
interface
 
24
 
 
25
{$mode objfpc} { needed for array of const }
 
26
 
 
27
{ Always use smartlinking for win32, this solves some undefined functions
 
28
  in the development gtk versions which change often (PFV) }
 
29
{$ifdef win32}
 
30
  {$ifndef NO_SMART_LINK}
 
31
    {$smartlink on}
 
32
  {$endif}
 
33
{$endif}
 
34
 
 
35
uses
 
36
  glib;
 
37
 
 
38
{$ifdef win32}
 
39
  const
 
40
    gdkdll='libgdk-0';
 
41
  {$define gtkwin}
 
42
 
 
43
  {$packrecords C}
 
44
{$else}
 
45
  {$ifdef os2}
 
46
    const
 
47
      gdkdll='gdk12';
 
48
      {$linklib gdk12}
 
49
    {$define gtkos2}
 
50
 
 
51
    {$packrecords C}
 
52
  {$else}
 
53
    const
 
54
    {$ifdef FreeBSD}
 
55
      gdkdll='gdk-12';
 
56
      {$linklib gdk-12}
 
57
    {$else}
 
58
    {$ifdef darwin}
 
59
      {$define gtkdarwin}
 
60
      gdkdll='gdk-1.2.0';
 
61
      {$linklib gdk-1.2.0}
 
62
    {$else}
 
63
      gdkdll='gdk';
 
64
      {$linklib gdk}
 
65
    {$endif}
 
66
    {$endif}
 
67
    {$linklib c}
 
68
    {$linklib X11}
 
69
 
 
70
    {$packrecords C}
 
71
  {$endif}
 
72
{$endif}
 
73
 
 
74
Type
 
75
  PLongint  = ^Longint;
 
76
  PByte     = ^Byte;
 
77
  PWord     = ^Word;
 
78
  PINteger  = ^Integer;
 
79
  PCardinal = ^Cardinal;
 
80
  PReal     = ^Real;
 
81
  PDouble   = ^Double;
 
82
 
 
83
{$define gdk_include_files}
 
84
 
 
85
{$define read_interface}
 
86
{$undef read_implementation}
 
87
 
 
88
{$i gdktypes.pp}
 
89
{$i gdkkeysyms.pp}
 
90
{$i gdkprivate.pp}
 
91
{$i gdkrgb.pp}
 
92
{$i gdkx.pp}
 
93
{$i gdkmain.pp}
 
94
 
 
95
 
 
96
implementation
 
97
 
 
98
{$undef read_interface}
 
99
{$define read_implementation}
 
100
 
 
101
{$i gdktypes.pp}
 
102
{$i gdkkeysyms.pp}
 
103
{$i gdkprivate.pp}
 
104
{$i gdkrgb.pp}
 
105
{$i gdkx.pp}
 
106
{$i gdkmain.pp}
 
107
 
 
108
end.