{ ATK - Accessibility Toolkit Copyright 2001 Sun Microsystems Inc. This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details. You should have received a copy of the GNU Library General Public License along with this library; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. } unit atk; // keep unit name lowercase for kylix {$IFDEF FPC} {$mode objfpc} {$ENDIF} {$IFDEF VER140} {$DEFINE KYLIX} {$ENDIF} interface uses glib2; const {$ifdef win32} {$define atkwin} atklib = 'libatk-1.0-0.dll'; {$IFDEF FPC} {$smartlink on} {$ENDIF} {$else} {$ifdef UseCustomLibs} atklib = ''; {$else} atklib = 'libatk-1.0.so'; {$endif} {$endif} {$IFNDEF KYLIX} {$PACKRECORDS C} {$ELSE} {$ALIGN 4} {$WEAKPACKAGEUNIT} {$WARNINGS OFF} {$ENDIF} type {$DEFINE read_forward_definitions} // internal types PAtkImplementor = pointer; PAtkAction = pointer; PAtkComponent = pointer; PAtkDocument = pointer; PAtkEditableText = pointer; PAtkHypertext = pointer; PAtkImage = pointer; PAtkSelection = pointer; PAtkStreamableContent = pointer; PAtkTable = pointer; PAtkText = pointer; PAtkValue = pointer; {$include atkincludes.inc} {$UNDEF read_forward_definitions} {$DEFINE read_interface_types} {$include atkincludes.inc} {$UNDEF read_interface_types} {$DEFINE read_interface_rest} {$include atkincludes.inc} {$UNDEF read_interface_rest} implementation // call implementation parts of header files {$DEFINE read_implementation} {$include atkincludes.inc} {$UNDEF read_implementation} end.