home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpdesk.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  111 lines
  1. DEFINITION MODULE WPDESK;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPDesktop
  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 PWPDesktop              = POINTER TO WPDesktop;
  23. TYPE PM_WPDesktop            = POINTER TO M_WPDesktop;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPDesktop
  27. *************************************************************************)
  28.  
  29. TYPE HWND                    = OS2DEF.HWND;
  30.  
  31. (*************************************************************************
  32.   SOM class API for WPDesktop, including type-bound procedures
  33. **************************************************************************)
  34.  
  35. CONST
  36.   WPDesktop_MajorVersion     = 1;
  37.   WPDesktop_MinorVersion     = 2;
  38.  
  39. TYPE
  40.   WPDesktopClassDataStructure    = RECORD
  41.     classObject                    : PSOMClass;
  42.     wpIsCurrentDesktop             : somMToken;
  43.     wpAddDesktopLockup1Page        : somMToken;
  44.     wpAddDesktopLockup2Page        : somMToken;
  45.     wpAddDesktopLockup3Page        : somMToken;
  46.                                    END;
  47.  
  48. VAR
  49.   WPDesktopClassData : WPDesktopClassDataStructure;
  50.  
  51. TYPE
  52.   (*$SOM+ *)
  53.   WPDesktop = RECORD( WPFOLDER.WPFolder ) END;
  54.   (*$SOM- *)
  55.  
  56.  
  57. PROCEDURE WPDesktopNewClass
  58. (
  59.   majorVersion  : INTEGER4;
  60.   minorVersion  : INTEGER4
  61. )               : PSOMClass;
  62.  
  63. PROCEDURE( Self : PWPDesktop ) wpIsCurrentDesktop( ) : BOOLEAN;
  64.  
  65. PROCEDURE( Self : PWPDesktop ) wpAddDesktopLockup1Page
  66. (
  67.   hwndNotebook  : HWND
  68. )               : LONGCARD;
  69.  
  70. PROCEDURE( Self : PWPDesktop ) wpAddDesktopLockup2Page
  71. (
  72.   hwndNotebook  : HWND
  73. )               : LONGCARD;
  74.  
  75. PROCEDURE( Self : PWPDesktop ) wpAddDesktopLockup3Page
  76. (
  77.   hwndNotebook  : HWND
  78. )               : LONGCARD;
  79.  
  80.  
  81. (*************************************************************************
  82.   SOM class API for M_WPDesktop, including type-bound procedures
  83. **************************************************************************)
  84.  
  85. CONST
  86.   M_WPDesktop_MajorVersion   = 1;
  87.   M_WPDesktop_MinorVersion   = 2;
  88.  
  89. TYPE
  90.   M_WPDesktopClassDataStructure   = RECORD
  91.     classObject                     : PSOMClass;
  92.                                     END;
  93.  
  94. VAR
  95.   M_WPDesktopClassData : M_WPDesktopClassDataStructure;
  96.  
  97. TYPE
  98.   (*$SOM+ *)
  99.   M_WPDesktop = RECORD( WPFOLDER.M_WPFolder ) END;
  100.   (*$SOM- *)
  101.  
  102.  
  103. PROCEDURE M_WPDesktopNewClass
  104. (
  105.   majorVersion : INTEGER4;
  106.   minorVersion : INTEGER4
  107. )              : PSOMClass;
  108.  
  109.  
  110. END WPDESK.
  111.