home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / winatom.def < prev    next >
Text File  |  1994-05-03  |  2KB  |  64 lines
  1. DEFINITION MODULE WINATOM;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Presentation Manager Atom manager.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. FROM OS2DEF IMPORT LHANDLE;
  14.  
  15. TYPE
  16.   HATOMTBL               = LHANDLE;
  17.   ATOM                   = LONGCARD;
  18.  
  19. PROCEDURE WinQuerySystemAtomTable
  20. ()                       : HATOMTBL;
  21.  
  22. PROCEDURE WinCreateAtomTable
  23. ( InitialBytes           : LONGCARD;
  24.   BucketsSize            : LONGCARD
  25. )                        : HATOMTBL;
  26.  
  27. PROCEDURE WinDestroyAtomTable
  28. ( AtomTblHandle          : HATOMTBL
  29. )                        : HATOMTBL;
  30.  
  31. PROCEDURE WinAddAtom
  32. ( AtomTblHandle          : HATOMTBL;
  33.   AtomName               : ARRAY OF CHAR
  34. )                        : ATOM;
  35.  
  36. PROCEDURE WinFindAtom
  37. ( AtomTblHandle          : HATOMTBL;
  38.   AtomName               : ARRAY OF CHAR
  39. )                        : ATOM;
  40.  
  41. PROCEDURE WinDeleteAtom
  42. ( AtomTblHandle          : HATOMTBL;
  43.   Atom                   : ATOM
  44. )                        : ATOM;
  45.  
  46. PROCEDURE WinQueryAtomUsage
  47. ( AtomTblHandle          : HATOMTBL;
  48.   Atom                   : ATOM
  49. )                        : LONGCARD;
  50.  
  51. PROCEDURE WinQueryAtomLength
  52. ( AtomTblHandle          : HATOMTBL;
  53.   Atom                   : ATOM
  54. )                        : LONGCARD;
  55.  
  56. PROCEDURE WinQueryAtomName
  57. ( AtomTblHandle          : HATOMTBL;
  58.   Atom                   : ATOM;
  59.   VAR Buffer             : ARRAY OF CHAR;
  60.   BufferMax              : LONGCARD
  61. )                        : LONGCARD;
  62.  
  63. END WINATOM.
  64.