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