home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wprootf.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  89 lines
  1. DEFINITION MODULE WPROOTF;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPRootFolder
  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.  
  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 PWPRootFolder          = POINTER TO WPRootFolder;
  22. TYPE PM_WPRootFolder        = POINTER TO M_WPRootFolder;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPRootFolder
  26. *************************************************************************)
  27.  
  28.  
  29. (*************************************************************************
  30.   SOM class API for WPRootFolder, including type-bound procedures
  31. **************************************************************************)
  32.  
  33. CONST
  34.   WPRootFolder_MajorVersion     = 1;
  35.   WPRootFolder_MinorVersion     = 2;
  36.  
  37. TYPE
  38.   WPRootFolderClassDataStructure     = RECORD
  39.     classObject                        : PSOMClass;
  40.     wpSetViewTitle                     : somMToken;
  41.                                        END;
  42.  
  43. VAR
  44.   WPRootFolderClassData : WPRootFolderClassDataStructure;
  45.  
  46. TYPE
  47.   (*$SOM+ *)
  48.   WPRootFolder = RECORD( WPFOLDER.WPFolder ) END;
  49.   (*$SOM- *)
  50.  
  51.  
  52. PROCEDURE WPRootFolderNewClass
  53. (
  54.   majorVersion  : INTEGER4;
  55.   minorVersion  : INTEGER4
  56. )               : PSOMClass;
  57.  
  58.  
  59. (*************************************************************************
  60.   SOM class API for M_WPRootFolder, including type-bound procedures
  61. **************************************************************************)
  62.  
  63. CONST
  64.   M_WPRootFolder_MajorVersion   = 1;
  65.   M_WPRootFolder_MinorVersion   = 2;
  66.  
  67. TYPE
  68.   M_WPRootFolderClassDataStructure   = RECORD
  69.     classObject                        : PSOMClass;
  70.                                        END;
  71.  
  72. VAR
  73.   M_WPRootFolderClassData : M_WPRootFolderClassDataStructure;
  74.  
  75. TYPE
  76.   (*$SOM+ *)
  77.   M_WPRootFolder = RECORD( WPFOLDER.M_WPFolder ) END;
  78.   (*$SOM- *)
  79.  
  80.  
  81. PROCEDURE M_WPRootFolderNewClass
  82. (
  83.   majorVersion : INTEGER4;
  84.   minorVersion : INTEGER4
  85. )              : PSOMClass;
  86.  
  87.  
  88. END WPROOTF.
  89.