Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: bde44508b1
Branches Tags
freepascal.comp...
/
packages
/
extra
/
gtk2
/
atk
/
atk.pas

atk.pas 2.1 KB
History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091 
  1. { ATK -  Accessibility Toolkit
    2. 

  2.    Copyright 2001 Sun Microsystems Inc.
    3. 

  3. 

  4.    This library is free software; you can redistribute it and/or
    5. 

  5.    modify it under the terms of the GNU Library General Public
    6. 

  6.    License as published by the Free Software Foundation; either
    7. 

  7.    version 2 of the License, or (at your option) any later version.
    8. 

  8. 

  9.    This library is distributed in the hope that it will be useful,
    10. 

  10.    but WITHOUT ANY WARRANTY; without even the implied warranty of
    11. 

  11.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    12. 

  12.    Library General Public License for more details.
    13. 

  13. 

  14.    You should have received a copy of the GNU Library General Public
    15. 

  15.    License along with this library; if not, write to the
    16. 

  16.    Free Software Foundation, Inc., 59 Temple Place - Suite 330,
    17. 

  17.    Boston, MA 02111-1307, USA.
    18. 

  18.   }
    19. 

  19. unit atk; // keep unit name lowercase for kylix
    20. 

  20. 

  21. {$IFDEF FPC}
    22. 

  22.   {$mode objfpc}
    23. 

  23. {$ENDIF}
    24. 

  24. {$IFDEF VER140}
    25. 

  25.   {$DEFINE KYLIX}
    26. 

  26. {$ENDIF}
    27. 

  27. 

  28. interface
    29. 

  29. 

  30. uses glib2;
    31. 

  31. 

  32. const
    33. 

  33. {$ifdef win32}
    34. 

  34.   {$define atkwin}
    35. 

  35.   atklib = 'libatk-1.0-0.dll';
    36. 

  36.   {$IFDEF FPC}
    37. 

  37.     {$ifndef NO_SMART_LINK}
    38. 

  38.       {$smartlink on}
    39. 

  39.     {$endif}
    40. 

  40.   {$ENDIF}
    41. 

  41. {$else}
    42. 

  42.   {$ifdef UseCustomLibs}
    43. 

  43.   atklib = '';
    44. 

  44.   {$else}
    45. 

  45.   atklib = 'libatk-1.0.so';
    46. 

  46.   {$endif}
    47. 

  47. {$endif}
    48. 

  48. 

  49. {$IFNDEF KYLIX}
    50. 

  50.   {$PACKRECORDS C}
    51. 

  51. {$ELSE}
    52. 

  52.   {$ALIGN 4}
    53. 

  53.   {$WEAKPACKAGEUNIT}
    54. 

  54.   {$WARNINGS OFF}
    55. 

  55. {$ENDIF}
    56. 

  56. 

  57. type
    58. 

  58. {$DEFINE read_forward_definitions}
    59. 

  59.   // internal types
    60. 

  60.   PAtkImplementor = pointer;
    61. 

  61.   PAtkAction = pointer;
    62. 

  62.   PAtkComponent = pointer;
    63. 

  63.   PAtkDocument = pointer;
    64. 

  64.   PAtkEditableText = pointer;
    65. 

  65.   PAtkHypertext = pointer;
    66. 

  66.   PAtkImage = pointer;
    67. 

  67.   PAtkSelection = pointer;
    68. 

  68.   PAtkStreamableContent = pointer;
    69. 

  69.   PAtkTable = pointer;
    70. 

  70.   PAtkText = pointer;
    71. 

  71.   PAtkValue = pointer;
    72. 

  72. 

  73. {$include atkincludes.inc}
    74. 

  74. {$UNDEF read_forward_definitions}
    75. 

  75. 

  76. {$DEFINE read_interface_types}
    77. 

  77. {$include atkincludes.inc}
    78. 

  78. {$UNDEF read_interface_types}
    79. 

  79. 

  80. {$DEFINE read_interface_rest}
    81. 

  81. {$include atkincludes.inc}
    82. 

  82. {$UNDEF read_interface_rest}
    83. 

  83. 

  84. implementation
    85. 

  85. 

  86. // call implementation parts of header files
    87. 

  87. {$DEFINE read_implementation}
    88. 

  88. {$include atkincludes.inc}
    89. 

  89. {$UNDEF read_implementation}
    90. 

  90. 

  91. end.
    92.