gdk.pp 3.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
  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 1999-11-24 23:36:33 peter
  64. * moved to packages dir
  65. Revision 1.10 1999/10/21 14:35:23 peter
  66. * removed glibdll constant
  67. Revision 1.9 1999/10/21 08:42:00 florian
  68. * some changes to get it work with gtk 1.3 under Windows 98:
  69. - removed some trailing space after the import name
  70. - In gtkbindings.h is
  71. #define gtk_binding_entry_add gtk_binding_entry_clear
  72. so in the pascal headers the import name of gtk_bindings_entry_add should be
  73. gtk_binding_entry_clear!
  74. - removed the declaration of
  75. gtk_drag_source_unset in gtkdnd.pp it isn't in gtk-1.3.dll!
  76. - in gdk.pp glibdll must be set to gdk-1.3:
  77. const
  78. gdkdll='gdk-1.3';
  79. glibdll='gdk-1.3';
  80. else the whole gdk_* calls are imported from glib-1.3.dll which is wrong!
  81. Revision 1.8 1999/10/06 17:42:47 peter
  82. * external is now only in the interface
  83. * removed gtk 1.0 support
  84. Revision 1.7 1999/07/23 16:11:43 peter
  85. * use packrecords C
  86. Revision 1.6 1999/05/11 00:37:46 peter
  87. * win32 fixes
  88. Revision 1.5 1999/05/07 10:40:17 peter
  89. * first things for 1.2
  90. Revision 1.4 1998/11/12 11:35:46 peter
  91. + array of const
  92. Revision 1.3 1998/10/22 11:37:34 peter
  93. * fixes for win32
  94. Revision 1.2 1998/10/21 20:22:00 peter
  95. * cdecl, packrecord fixes (from the gtk.tar.gz)
  96. * win32 support
  97. * gtk.pp,gdk.pp for an all in one unit
  98. }