home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpqdr.def < prev    next >
Text File  |  1994-06-01  |  3KB  |  92 lines
  1. DEFINITION MODULE WPQDR;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPQdr
  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 PWPQdr                 = POINTER TO WPQdr;
  22. TYPE PM_WPQdr               = POINTER TO M_WPQdr;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPQdr
  26. *************************************************************************)
  27.  
  28. (*************************************************************************
  29.   SOM class API for WPQdr, including type-bound procedures
  30. **************************************************************************)
  31.  
  32. CONST
  33.   WPQdr_MajorVersion     = 1;
  34.   WPQdr_MinorVersion     = 1;
  35.  
  36. TYPE
  37.   WPQdrClassDataStructure     = RECORD
  38.     classObject                 : PSOMClass;
  39.     prtGetQDriverInfo           : somMToken;
  40.     prtSetQDriverInfo           : somMToken;
  41.     prtSetQdrIcon               : somMToken;
  42.     prtSetQDriverDiscardhwndDlg : somMToken;
  43.     prtSetQDriverInstallhwndDlg : somMToken;
  44.                                 END;
  45.  
  46. VAR
  47.   WPQdrClassData : WPQdrClassDataStructure;
  48.  
  49. TYPE
  50.   (*$SOM+ *)
  51.   WPQdr = RECORD( WPTRANS.WPTransient ) END;
  52.   (*$SOM- *)
  53.  
  54.  
  55. PROCEDURE WPQdrNewClass
  56. (
  57.   majorVersion  : INTEGER4;
  58.   minorVersion  : INTEGER4
  59. )               : PSOMClass;
  60.  
  61.  
  62. (*************************************************************************
  63.   SOM class API for M_WPQdr, including type-bound procedures
  64. **************************************************************************)
  65.  
  66. CONST
  67.   M_WPQdr_MajorVersion   = 1;
  68.   M_WPQdr_MinorVersion   = 1;
  69.  
  70. TYPE
  71.   M_WPQdrClassDataStructure   = RECORD
  72.     classObject                 : PSOMClass;
  73.                                 END;
  74.  
  75. VAR
  76.   M_WPQdrClassData : M_WPQdrClassDataStructure;
  77.  
  78. TYPE
  79.   (*$SOM+ *)
  80.   M_WPQdr = RECORD( WPTRANS.M_WPTransient ) END;
  81.   (*$SOM- *)
  82.  
  83.  
  84. PROCEDURE M_WPQdrNewClass
  85. (
  86.   majorVersion : INTEGER4;
  87.   minorVersion : INTEGER4
  88. )              : PSOMClass;
  89.  
  90.  
  91. END WPQDR.
  92.