home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpspneed.def < prev    next >
Text File  |  1994-05-22  |  3KB  |  87 lines
  1. DEFINITION MODULE WPSPNEED;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPSpecialNeeds;
  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 WPABS;
  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 PWPSpecialNeeds            = POINTER TO WPSpecialNeeds;
  22. TYPE PM_WPSpecialNeeds          = POINTER TO M_WPSpecialNeeds;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPSpecialNeeds
  26. *************************************************************************)
  27.  
  28.  
  29. (*************************************************************************
  30.   SOM class API for WPSpecialNeeds, including type-bound procedures
  31. **************************************************************************)
  32.  
  33. CONST
  34.   WPSpecialNeeds_MajorVersion     = 1;
  35.   WPSpecialNeeds_MinorVersion     = 2;
  36.  
  37. TYPE
  38.   WPSpecialNeedsClassDataStructure   = RECORD
  39.     classObject                        : PSOMClass;
  40.                                        END;
  41.  
  42. VAR
  43.   WPSpecialNeedsClassData : WPSpecialNeedsClassDataStructure;
  44.  
  45. TYPE
  46.   (*$SOM+ *)
  47.   WPSpecialNeeds = RECORD( WPABS.WPAbstract ) END;
  48.   (*$SOM- *)
  49.  
  50.  
  51. PROCEDURE WPSpecialNeedsNewClass
  52. (
  53.   majorVersion  : INTEGER4;
  54.   minorVersion  : INTEGER4
  55. )               : PSOMClass;
  56.  
  57.  
  58. (*************************************************************************
  59.   SOM class API for M_WPSpecialNeeds, including type-bound procedures
  60. **************************************************************************)
  61.  
  62. CONST
  63.   M_WPSpecialNeeds_MajorVersion   = 1;
  64.   M_WPSpecialNeeds_MinorVersion   = 2;
  65.  
  66. TYPE
  67.   M_WPSpecialNeedsClassDataStructure   = RECORD
  68.     classObject                          : PSOMClass;
  69.                                          END;
  70.  
  71. VAR
  72.   M_WPSpecialNeedsClassData : M_WPSpecialNeedsClassDataStructure;
  73.  
  74. TYPE
  75.   (*$SOM+ *)
  76.   M_WPSpecialNeeds = RECORD( WPABS.M_WPAbstract ) END;
  77.   (*$SOM- *)
  78.  
  79.  
  80. PROCEDURE M_WPSpecialNeedsNewClass
  81. (
  82.   majorVersion : INTEGER4;
  83.   minorVersion : INTEGER4
  84. )              : PSOMClass;
  85.  
  86. END WPSPNEED.
  87.