home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpsystem.def < prev    next >
Text File  |  1994-05-22  |  4KB  |  131 lines
  1. DEFINITION MODULE WPSYSTEM;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPSystem;
  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. IMPORT OS2DEF;
  16.  
  17. TYPE PSOMClass              = SOM.PSOMClass;
  18. TYPE INTEGER4               = SOM.INTEGER4;
  19. TYPE somMToken              = SOM.somMToken;
  20. TYPE somDToken              = SOM.somDToken;
  21. TYPE somMethodProc          = SOM.somMethodProc;
  22. TYPE PWPSystem            = POINTER TO WPSystem;
  23. TYPE PM_WPSystem          = POINTER TO M_WPSystem;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPSystem
  27. *************************************************************************)
  28.  
  29. TYPE HWND                 = OS2DEF.HWND;
  30.  
  31. (*************************************************************************
  32.   SOM class API for WPSystem, including type-bound procedures
  33. **************************************************************************)
  34.  
  35. CONST
  36.   WPSystem_MajorVersion     = 1;
  37.   WPSystem_MinorVersion     = 2;
  38.  
  39. TYPE
  40.   WPSystemClassDataStructure   = RECORD
  41.     classObject                    : PSOMClass;
  42.     wpAddSystemWindowPage          : somMToken;   
  43.     wpAddSystemLogoPage            : somMToken;   
  44.     wpAddSystemPrintScreenPage     : somMToken;   
  45.     wpAddSystemConfirmationPage    : somMToken;   
  46.     wpAddTitleConfirmationPage     : somMToken;   
  47.     wpAddSystemScreenPage          : somMToken;   
  48.     wpAddDMQSDisplayTypePage       : somMToken;   
  49.                                    END;
  50.  
  51. VAR
  52.   WPSystemClassData : WPSystemClassDataStructure;
  53.  
  54. TYPE
  55.   (*$SOM+ *)
  56.   WPSystem = RECORD( WPABS.WPAbstract ) END;
  57.   (*$SOM- *)
  58.  
  59.  
  60. PROCEDURE WPSystemNewClass
  61. (
  62.   majorVersion  : INTEGER4;
  63.   minorVersion  : INTEGER4
  64. )               : PSOMClass;
  65.  
  66. PROCEDURE( Self : PWPSystem ) wpAddSystemWindowPage
  67. (
  68.   hwndNotebook  : HWND
  69. )               : LONGCARD;
  70.  
  71. PROCEDURE( Self : PWPSystem ) wpAddSystemLogoPage
  72. (
  73.   hwndNotebook  : HWND
  74. )               : LONGCARD;
  75.  
  76. PROCEDURE( Self : PWPSystem ) wpAddSystemPrintScreenPage
  77. (
  78.   hwndNotebook  : HWND
  79. )               : LONGCARD;
  80.  
  81. PROCEDURE( Self : PWPSystem ) wpAddSystemConfirmationPage
  82. (
  83.   hwndNotebook  : HWND
  84. )               : LONGCARD;
  85.  
  86. PROCEDURE( Self : PWPSystem ) wpAddTitleConfirmationPage
  87. (
  88.   hwndNotebook  : HWND
  89. )               : LONGCARD;
  90.  
  91. PROCEDURE( Self : PWPSystem ) wpAddSystemScreenPage
  92. (
  93.   hwndNotebook  : HWND
  94. )               : LONGCARD;
  95.  
  96. PROCEDURE( Self : PWPSystem ) wpAddDMQSDisplayTypePage
  97. (
  98.   hwndNotebook  : HWND
  99. )               : LONGCARD;
  100.  
  101.  
  102. (*************************************************************************
  103.   SOM class API for M_WPSystem, including type-bound procedures
  104. **************************************************************************)
  105.  
  106. CONST
  107.   M_WPSystem_MajorVersion   = 1;
  108.   M_WPSystem_MinorVersion   = 2;
  109.  
  110. TYPE
  111.   M_WPSystemClassDataStructure   = RECORD
  112.     classObject                      : PSOMClass;
  113.                                      END;
  114.  
  115. VAR
  116.   M_WPSystemClassData : M_WPSystemClassDataStructure;
  117.  
  118. TYPE
  119.   (*$SOM+ *)
  120.   M_WPSystem = RECORD( WPABS.M_WPAbstract ) END;
  121.   (*$SOM- *)
  122.  
  123.  
  124. PROCEDURE M_WPSystemNewClass
  125. (
  126.   majorVersion : INTEGER4;
  127.   minorVersion : INTEGER4
  128. )              : PSOMClass;
  129.  
  130. END WPSYSTEM.
  131.