home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpabs.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  90 lines
  1. DEFINITION MODULE WPABS;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPAbstract
  5.  
  6.   Copyright (c) 1994 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. IMPORT SOM;
  14. IMPORT WPOBJECT;
  15.  
  16. TYPE PSOMClass              = SOM.PSOMClass;
  17. TYPE INTEGER4               = SOM.INTEGER4;
  18. TYPE somMToken              = SOM.somMToken;
  19. TYPE somDToken              = SOM.somDToken;
  20. TYPE somMethodProc          = SOM.somMethodProc;
  21. TYPE PWPAbstract            = POINTER TO WPAbstract;
  22. TYPE PM_WPAbstract          = POINTER TO M_WPAbstract;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPAbstract
  26. *************************************************************************)
  27.  
  28. (*************************************************************************
  29.   SOM class API for WPAbstract, including type-bound procedures
  30. **************************************************************************)
  31.  
  32. CONST
  33.   WPAbstract_MajorVersion     = 1;
  34.   WPAbstract_MinorVersion     = 2;
  35.  
  36. TYPE
  37.   WPAbstractClassDataStructure     = RECORD
  38.     classObject                      : PSOMClass;
  39.                                      END;
  40.  
  41. VAR
  42.   WPAbstractClassData : WPAbstractClassDataStructure;
  43.  
  44. TYPE
  45.   (*$SOM+ *)
  46.   WPAbstract = RECORD( WPOBJECT.WPObject ) END;
  47.   (*$SOM- *)
  48.  
  49.  
  50. PROCEDURE WPAbstractNewClass
  51. (
  52.   majorVersion : INTEGER4;
  53.   minorVersion : INTEGER4
  54. )              : PSOMClass;
  55.  
  56.  
  57.  
  58. (*************************************************************************
  59.   SOM class API for M_WPAbstract, including type-bound procedures
  60. **************************************************************************)
  61.  
  62. CONST
  63.   M_WPAbstract_MajorVersion   = 1;
  64.   M_WPAbstract_MinorVersion   = 2;
  65.  
  66. TYPE
  67.   M_WPAbstractClassDataStructure   = RECORD
  68.     classObject                      : PSOMClass;
  69.     wpclsSaveCache                   : somMToken;
  70.     wpclsLockCache                   : somMToken;
  71.     wpclsUnlockCache                 : somMToken;
  72.                                      END;
  73.  
  74. VAR
  75.   M_WPAbstractClassData : M_WPAbstractClassDataStructure;
  76.  
  77. TYPE
  78.   (*$SOM+ *)
  79.   M_WPAbstract = RECORD( WPOBJECT.M_WPObject ) END;
  80.   (*$SOM- *)
  81.  
  82.  
  83. PROCEDURE M_WPAbstractNewClass
  84. (
  85.   majorVersion : INTEGER4;
  86.   minorVersion : INTEGER4
  87. )              : PSOMClass;
  88.  
  89. END WPABS.
  90.