home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpshdir.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  96 lines
  1. DEFINITION MODULE WPSHDIR;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPSharedDir
  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 WPFOLDER;
  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 PWPSharedDir           = POINTER TO WPSharedDir;
  23. TYPE PM_WPSharedDir         = POINTER TO M_WPSharedDir;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPSharedDir
  27. *************************************************************************)
  28.  
  29. TYPE HWND                   = OS2DEF.HWND;
  30.  
  31. (*************************************************************************
  32.   SOM class API for WPSharedDir, including type-bound procedures
  33. **************************************************************************)
  34.  
  35. CONST
  36.   WPSharedDir_MajorVersion     = 1;
  37.   WPSharedDir_MinorVersion     = 2;
  38.  
  39. TYPE
  40.   WPSharedDirClassDataStructure     = RECORD
  41.     classObject                       : PSOMClass;
  42.     wpAddResourcePage                 : somMToken;
  43.                                       END;
  44.  
  45. VAR
  46.   WPSharedDirClassData : WPSharedDirClassDataStructure;
  47.  
  48. TYPE
  49.   (*$SOM+ *)
  50.   WPSharedDir = RECORD( WPFOLDER.WPFolder ) END;
  51.   (*$SOM- *)
  52.  
  53.  
  54. PROCEDURE WPSharedDirNewClass
  55. (
  56.   majorVersion  : INTEGER4;
  57.   minorVersion  : INTEGER4
  58. )               : PSOMClass;
  59.  
  60. PROCEDURE( Self : PWPSharedDir ) wpAddResourcePage
  61. (
  62.   hwndNotebook  : HWND
  63. )               : LONGCARD;
  64.  
  65.  
  66. (*************************************************************************
  67.   SOM class API for M_WPSharedDir, including type-bound procedures
  68. **************************************************************************)
  69.  
  70. CONST
  71.   M_WPSharedDir_MajorVersion   = 1;
  72.   M_WPSharedDir_MinorVersion   = 2;
  73.  
  74. TYPE
  75.   M_WPSharedDirClassDataStructure   = RECORD
  76.     classObject                       : PSOMClass;
  77.                                       END;
  78.  
  79. VAR
  80.   M_WPSharedDirClassData : M_WPSharedDirClassDataStructure;
  81.  
  82. TYPE
  83.   (*$SOM+ *)
  84.   M_WPSharedDir = RECORD( WPFOLDER.M_WPFolder ) END;
  85.   (*$SOM- *)
  86.  
  87.  
  88. PROCEDURE M_WPSharedDirNewClass
  89. (
  90.   majorVersion : INTEGER4;
  91.   minorVersion : INTEGER4
  92. )              : PSOMClass;
  93.  
  94.  
  95. END WPSHDIR.
  96.