← 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/gtk.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/gtk.pp
 
1
{
 
2
 
 
3
   GTK - The GIMP Toolkit
 
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 gtk;
 
23
interface
 
24
 
 
25
{ Always use smartlinking for win32, this solves some undefined functions
 
26
  in the development gtk versions which change often (PFV) }
 
27
{$ifdef win32}
 
28
  {$ifndef NO_SMART_LINK}
 
29
    {$smartlink on}
 
30
  {$endif}
 
31
{$endif}
 
32
 
 
33
{$mode objfpc} { needed for array of const }
 
34
 
 
35
uses
 
36
  glib,gdk;
 
37
 
 
38
{$ifdef win32}
 
39
  const
 
40
    gtkdll='libgtk-0';
 
41
  {$define gtkwin}
 
42
 
 
43
  {$packrecords c}
 
44
{$else}
 
45
  {$ifdef os2}
 
46
    const
 
47
      gtkdll='gtk12';
 
48
    {$define gtkos2}
 
49
 
 
50
    {$packrecords c}
 
51
  {$else}
 
52
    const
 
53
    {$ifdef FreeBSD}
 
54
      gtkdll='gtk-12';
 
55
      {$linklib gtk-12}
 
56
    {$else}
 
57
    {$ifdef darwin}
 
58
      {$define gtkdarwin}
 
59
      gtkdll='gtk-1.2.0';
 
60
      {$linklib gtk-1.2.0}
 
61
    {$else}
 
62
      gtkdll='gtk';
 
63
      {$linklib gtk}
 
64
    {$endif darwin}
 
65
    {$endif freebsd}
 
66
    {$linklib c}
 
67
    {$linklib Xi}
 
68
    {$linklib Xext}
 
69
    {$linklib X11}
 
70
    {$linklib m}
 
71
 
 
72
    {$packrecords C}
 
73
  {$endif}
 
74
{$endif}
 
75
 
 
76
Type
 
77
  PLongint  = ^Longint;
 
78
  PByte     = ^Byte;
 
79
  PWord     = ^Word;
 
80
  PINteger  = ^Integer;
 
81
  PCardinal = ^Cardinal;
 
82
  PReal     = ^Real;
 
83
  PDouble   = ^Double;
 
84
 
 
85
{$define gtk_include_files}
 
86
 
 
87
{$define read_interface}
 
88
{$undef read_implementation}
 
89
 
 
90
{$i gtkincludes.pp}
 
91
 
 
92
  implementation
 
93
 
 
94
{$undef read_interface}
 
95
{$define read_implementation}
 
96
 
 
97
{$i gtkincludes.pp}
 
98
 
 
99
end.