home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpdisk.def < prev    next >
Text File  |  1994-05-21  |  4KB  |  127 lines
  1. DEFINITION MODULE WPDISK;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPDisk;
  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. IMPORT WPROOTF;
  17.  
  18. TYPE PSOMClass              = SOM.PSOMClass;
  19. TYPE INTEGER4               = SOM.INTEGER4;
  20. TYPE somMToken              = SOM.somMToken;
  21. TYPE somDToken              = SOM.somDToken;
  22. TYPE somMethodProc          = SOM.somMethodProc;
  23. TYPE PWPDisk                = POINTER TO WPDisk;
  24. TYPE PM_WPDisk              = POINTER TO M_WPDisk;
  25.  
  26. (************************************************************************
  27.   Additional TYPE- and CONST-declarations supporting WPDisk
  28. *************************************************************************)
  29.  
  30. TYPE HWND                   = OS2DEF.HWND;
  31. TYPE PWPRootFolder          = WPROOTF.PWPRootFolder;
  32.  
  33. CONST OPEN_AUTO             = 120;
  34.  
  35.  
  36. (*************************************************************************
  37.   SOM class API for WPDisk, including type-bound procedures
  38. **************************************************************************)
  39.  
  40. CONST
  41.   WPDisk_MajorVersion     = 1;
  42.   WPDisk_MinorVersion     = 2;
  43.  
  44. TYPE 
  45.   WPDiskClassDataStructure   = RECORD
  46.     classObject                : PSOMClass;
  47.     wpAddDiskDetailsPage       : somMToken;
  48.     wpSetCorrectDiskIcon       : somMToken;
  49.     wpQueryLogicalDrive        : somMToken;
  50.     wpSetLogicalDrive          : somMToken;
  51.     wpQueryRootFolder          : somMToken;
  52.     wpSetDiskInfo              : somMToken;
  53.     wpTouchDisk                : somMToken;
  54.     wpQueryDiskInfo            : somMToken;
  55.     wpQueryDriveLockStatus     : somMToken;
  56.     wpEjectDisk                : somMToken;
  57.     wpLockDrive                : somMToken;
  58.                                END;
  59.  
  60. VAR
  61.   WPDiskClassData : WPDiskClassDataStructure;
  62.  
  63. TYPE
  64.   (*$SOM+ *)
  65.   WPDisk = RECORD( WPABS.WPAbstract ) END;
  66.   (*$SOM- *)
  67.  
  68.  
  69. PROCEDURE WPDiskNewClass
  70. (
  71.   majorVersion  : INTEGER4;
  72.   minorVersion  : INTEGER4
  73. )               : PSOMClass;
  74.  
  75. PROCEDURE( Self : PWPDisk ) wpAddDiskDetailsPage
  76. (
  77.   hwndNotebook  : HWND
  78. )               : LONGCARD;
  79.  
  80. PROCEDURE( Self : PWPDisk ) wpQueryDriveLockStatus
  81. (
  82.   VAR ulLockStatus : LONGCARD;
  83.   VAR ulLockCount  : LONGCARD
  84. )               : LONGCARD;
  85.  
  86. PROCEDURE( Self : PWPDisk ) wpEjectDisk( ) : LONGCARD;
  87.  
  88. PROCEDURE( Self : PWPDisk ) wpLockDrive
  89. (
  90.   fLock         : BOOLEAN
  91. )               : LONGCARD;
  92.  
  93. PROCEDURE( Self : PWPDisk ) wpQueryLogicalDrive( ) : LONGCARD;
  94.  
  95. PROCEDURE( Self : PWPDisk ) wpQueryRootFolder( ) : PWPRootFolder;
  96.  
  97.  
  98. (*************************************************************************
  99.   SOM class API for M_WPDisk, including type-bound procedures
  100. **************************************************************************)
  101.  
  102. CONST
  103.   M_WPDisk_MajorVersion   = 1;
  104.   M_WPDisk_MinorVersion   = 2;
  105.  
  106. TYPE 
  107.   M_WPDiskClassDataStructure   = RECORD
  108.     classObject                  : PSOMClass;
  109.                                  END;
  110.  
  111. VAR
  112.   M_WPDiskClassData : M_WPDiskClassDataStructure;
  113.  
  114. TYPE
  115.   (*$SOM+ *)
  116.   M_WPDisk = RECORD( WPABS.M_WPAbstract ) END;
  117.   (*$SOM- *)
  118.  
  119.  
  120. PROCEDURE M_WPDiskNewClass
  121. (
  122.   majorVersion : INTEGER4;
  123.   minorVersion : INTEGER4
  124. )              : PSOMClass;
  125.  
  126. END WPDISK.
  127.