home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wppgmgrp.def < prev    next >
Text File  |  1994-06-27  |  3KB  |  116 lines
  1. DEFINITION MODULE WPPGMGRP;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPProgramGroup
  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 WINDEF;
  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 PWPProgramGroup        = POINTER TO WPProgramGroup;
  23. TYPE PM_WPProgramGroup      = POINTER TO M_WPProgramGroup;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPProgramGroup
  27. *************************************************************************)
  28.  
  29. TYPE HPROGRAM               = WINDEF.HPROGRAM;
  30.  
  31. CONST
  32.   IDKEY_HGROUP  = 1;
  33.  
  34.  
  35. (*************************************************************************
  36.   SOM class API for WPProgramGroup, including type-bound procedures
  37. **************************************************************************)
  38.  
  39. CONST
  40.   WPProgramGroup_MajorVersion     = 1;
  41.   WPProgramGroup_MinorVersion     = 2;
  42.  
  43. TYPE
  44.   WPProgramGroupClassDataStructure     = RECORD
  45.     classObject                          : PSOMClass;
  46.     wpSetGroupHandle                     : somMToken;
  47.     wpQueryGroupHandle                   : somMToken;
  48.     wpAddProgramRef                      : somMToken;
  49.     wpChangeProgramRef                   : somMToken;
  50.     wpDeleteProgramRef                   : somMToken;
  51.                                          END;
  52.  
  53. VAR
  54.   WPProgramGroupClassData : WPProgramGroupClassDataStructure;
  55.  
  56. TYPE
  57.   (*$SOM+ *)
  58.   WPProgramGroup = RECORD( WPFOLDER.WPFolder ) END;
  59.   (*$SOM- *)
  60.  
  61.  
  62. PROCEDURE WPProgramGroupNewClass
  63. (
  64.   majorVersion  : INTEGER4;
  65.   minorVersion  : INTEGER4
  66. )               : PSOMClass;
  67.  
  68. PROCEDURE( Self : PWPProgramGroup ) wpQueryGroupHandle( ) : HPROGRAM;
  69.  
  70. PROCEDURE( Self : PWPProgramGroup ) wpAddProgramRef
  71. (
  72.   hProgram      : HPROGRAM
  73. )               : BOOLEAN;
  74.  
  75. PROCEDURE( Self : PWPProgramGroup ) wpChangeProgramRef
  76. (
  77.   hProgram      : HPROGRAM
  78. )               : BOOLEAN;
  79.  
  80. PROCEDURE( Self : PWPProgramGroup ) wpDeleteProgramRef
  81. (
  82.   hProgram      : HPROGRAM
  83. )               : BOOLEAN;
  84.  
  85.  
  86. (*************************************************************************
  87.   SOM class API for M_WPProgramGroup, including type-bound procedures
  88. **************************************************************************)
  89.  
  90. CONST
  91.   M_WPProgramGroup_MajorVersion   = 1;
  92.   M_WPProgramGroup_MinorVersion   = 2;
  93.  
  94. TYPE
  95.   M_WPProgramGroupClassDataStructure   = RECORD
  96.     classObject                          : PSOMClass;
  97.                                          END;
  98.  
  99. VAR
  100.   M_WPProgramGroupClassData : M_WPProgramGroupClassDataStructure;
  101.  
  102. TYPE
  103.   (*$SOM+ *)
  104.   M_WPProgramGroup = RECORD( WPFOLDER.M_WPFolder ) END;
  105.   (*$SOM- *)
  106.  
  107.  
  108. PROCEDURE M_WPProgramGroupNewClass
  109. (
  110.   majorVersion : INTEGER4;
  111.   minorVersion : INTEGER4
  112. )              : PSOMClass;
  113.  
  114.  
  115. END WPPGMGRP.
  116.