home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wppdr.def < prev    next >
Text File  |  1994-06-01  |  3KB  |  94 lines
  1. DEFINITION MODULE WPPDR;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPPdr
  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 PWPPdr                 = POINTER TO WPPdr;
  22. TYPE PM_WPPdr               = POINTER TO M_WPPdr;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPPdr
  26. *************************************************************************)
  27.  
  28. (*************************************************************************
  29.   SOM class API for WPPdr, including type-bound procedures
  30. **************************************************************************)
  31.  
  32. CONST
  33.   WPPdr_MajorVersion     = 1;
  34.   WPPdr_MinorVersion     = 1;
  35.  
  36. TYPE
  37.   WPPdrClassDataStructure     = RECORD
  38.     classObject                 : PSOMClass;
  39.     prtGetPDriverInfo           : somMToken;
  40.     prtSetPDriverInfo           : somMToken;
  41.     prtGetPDriverName           : somMToken;
  42.     prtGetPDeviceName           : somMToken;
  43.     prtSetPdrIcon               : somMToken;
  44.     prtSetPDriverDiscardhwndDlg : somMToken;
  45.     prtSetPDriverInstallhwndDlg : somMToken;
  46.                                 END;
  47.  
  48. VAR
  49.   WPPdrClassData : WPPdrClassDataStructure;
  50.  
  51. TYPE
  52.   (*$SOM+ *)
  53.   WPPdr = RECORD( WPTRANS.WPTransient ) END;
  54.   (*$SOM- *)
  55.  
  56.  
  57. PROCEDURE WPPdrNewClass
  58. (
  59.   majorVersion  : INTEGER4;
  60.   minorVersion  : INTEGER4
  61. )               : PSOMClass;
  62.  
  63.  
  64. (*************************************************************************
  65.   SOM class API for M_WPPdr, including type-bound procedures
  66. **************************************************************************)
  67.  
  68. CONST
  69.   M_WPPdr_MajorVersion   = 1;
  70.   M_WPPdr_MinorVersion   = 1;
  71.  
  72. TYPE
  73.   M_WPPdrClassDataStructure   = RECORD
  74.     classObject                 : PSOMClass;
  75.                                 END;
  76.  
  77. VAR
  78.   M_WPPdrClassData : M_WPPdrClassDataStructure;
  79.  
  80. TYPE
  81.   (*$SOM+ *)
  82.   M_WPPdr = RECORD( WPTRANS.M_WPTransient ) END;
  83.   (*$SOM- *)
  84.  
  85.  
  86. PROCEDURE M_WPPdrNewClass
  87. (
  88.   majorVersion : INTEGER4;
  89.   minorVersion : INTEGER4
  90. )              : PSOMClass;
  91.  
  92.  
  93. END WPPDR.
  94.