home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpport.def < prev    next >
Text File  |  1994-06-01  |  3KB  |  96 lines
  1. DEFINITION MODULE WPPORT;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPPort
  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 WPTRANS;
  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 PWPPort                 = POINTER TO WPPort;
  22. TYPE PM_WPPort               = POINTER TO M_WPPort;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPPort
  26. *************************************************************************)
  27.  
  28. (*************************************************************************
  29.   SOM class API for WPPort, including type-bound procedures
  30. **************************************************************************)
  31.  
  32. CONST
  33.   WPPort_MajorVersion     = 1;
  34.   WPPort_MinorVersion     = 1;
  35.  
  36. TYPE
  37.   WPPortClassDataStructure     = RECORD
  38.     classObject                  : PSOMClass;
  39.     prtGetPortInfo               : somMToken;
  40.     prtSetPortInfo               : somMToken;
  41.     prtSettings                  : somMToken;
  42.     prtGetDeviceObject           : somMToken;
  43.     prtSetPortDiscardhwndDlg     : somMToken;
  44.     prtSetPortInstallhwndDlg     : somMToken;
  45.     prtPrintPort                 : somMToken;
  46.     prtSetIcon                   : somMToken;
  47.     prtChangePort                : somMToken;
  48.                                  END;
  49.  
  50. VAR
  51.   WPPortClassData : WPPortClassDataStructure;
  52.  
  53. TYPE
  54.   (*$SOM+ *)
  55.   WPPort = RECORD( WPTRANS.WPTransient ) END;
  56.   (*$SOM- *)
  57.  
  58.  
  59. PROCEDURE WPPortNewClass
  60. (
  61.   majorVersion  : INTEGER4;
  62.   minorVersion  : INTEGER4
  63. )               : PSOMClass;
  64.  
  65.  
  66. (*************************************************************************
  67.   SOM class API for M_WPPort, including type-bound procedures
  68. **************************************************************************)
  69.  
  70. CONST
  71.   M_WPPort_MajorVersion   = 1;
  72.   M_WPPort_MinorVersion   = 1;
  73.  
  74. TYPE
  75.   M_WPPortClassDataStructure   = RECORD
  76.     classObject                  : PSOMClass;
  77.                                  END;
  78.  
  79. VAR
  80.   M_WPPortClassData : M_WPPortClassDataStructure;
  81.  
  82. TYPE
  83.   (*$SOM+ *)
  84.   M_WPPort = RECORD( WPTRANS.M_WPTransient ) END;
  85.   (*$SOM- *)
  86.  
  87.  
  88. PROCEDURE M_WPPortNewClass
  89. (
  90.   majorVersion : INTEGER4;
  91.   minorVersion : INTEGER4
  92. )              : PSOMClass;
  93.  
  94.  
  95. END WPPORT.
  96.