gdk.pp 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130
  1. {
  2. $Id$
  3. GDK - The GIMP Drawing Kit
  4. Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
  5. This library is free software; you can redistribute it and/or
  6. modify it under the terms of the GNU Library General Public
  7. License as published by the Free Software Foundation; either
  8. version 2 of the License, or (at your option) any later version.
  9. This library is distributed in the hope that it will be useful,
  10. but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  12. Library General Public License for more details.
  13. You should have received a copy of the GNU Library General Public
  14. License along with this library; if not, write to the
  15. Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  16. Boston, MA 02111-1307, USA.
  17. **********************************************************************}
  18. unit gdk;
  19. interface
  20. {$mode objfpc} { needed for array of const }
  21. uses
  22. glib;
  23. {$ifdef win32}
  24. const
  25. gdkdll='gdk-1.3';
  26. {$define gtkwin}
  27. {$else}
  28. const
  29. gdkdll='gdk';
  30. {$linklib c}
  31. {$linklib X11}
  32. {$endif}
  33. {$packrecords C}
  34. Type
  35. PLongint = ^Longint;
  36. PByte = ^Byte;
  37. PWord = ^Word;
  38. PINteger = ^Integer;
  39. PCardinal = ^Cardinal;
  40. PReal = ^Real;
  41. PDouble = ^Double;
  42. {$define gdk_include_files}
  43. {$define read_interface}
  44. {$undef read_implementation}
  45. {$i gdktypes.pp}
  46. {$i gdkkeysyms.pp}
  47. {$i gdkprivate.pp}
  48. {$i gdkrgb.pp}
  49. {$i gdkx.pp}
  50. {$i gdkmain.pp}
  51. implementation
  52. {$undef read_interface}
  53. {$define read_implementation}
  54. {$i gdktypes.pp}
  55. {$i gdkkeysyms.pp}
  56. {$i gdkprivate.pp}
  57. {$i gdkrgb.pp}
  58. {$i gdkx.pp}
  59. {$i gdkmain.pp}
  60. end.
  61. {
  62. $Log$
  63. Revision 1.1 2000-07-13 06:34:01 michael
  64. + Initial import
  65. Revision 1.1 1999/11/24 23:36:33 peter
  66. * moved to packages dir
  67. Revision 1.10 1999/10/21 14:35:23 peter
  68. * removed glibdll constant
  69. Revision 1.9 1999/10/21 08:42:00 florian
  70. * some changes to get it work with gtk 1.3 under Windows 98:
  71. - removed some trailing space after the import name
  72. - In gtkbindings.h is
  73. #define gtk_binding_entry_add gtk_binding_entry_clear
  74. so in the pascal headers the import name of gtk_bindings_entry_add should be
  75. gtk_binding_entry_clear!
  76. - removed the declaration of
  77. gtk_drag_source_unset in gtkdnd.pp it isn't in gtk-1.3.dll!
  78. - in gdk.pp glibdll must be set to gdk-1.3:
  79. const
  80. gdkdll='gdk-1.3';
  81. glibdll='gdk-1.3';
  82. else the whole gdk_* calls are imported from glib-1.3.dll which is wrong!
  83. Revision 1.8 1999/10/06 17:42:47 peter
  84. * external is now only in the interface
  85. * removed gtk 1.0 support
  86. Revision 1.7 1999/07/23 16:11:43 peter
  87. * use packrecords C
  88. Revision 1.6 1999/05/11 00:37:46 peter
  89. * win32 fixes
  90. Revision 1.5 1999/05/07 10:40:17 peter
  91. * first things for 1.2
  92. Revision 1.4 1998/11/12 11:35:46 peter
  93. + array of const
  94. Revision 1.3 1998/10/22 11:37:34 peter
  95. * fixes for win32
  96. Revision 1.2 1998/10/21 20:22:00 peter
  97. * cdecl, packrecord fixes (from the gtk.tar.gz)
  98. * win32 support
  99. * gtk.pp,gdk.pp for an all in one unit
  100. }