home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpshadow.def < prev    next >
Text File  |  1994-05-22  |  3KB  |  103 lines
  1. DEFINITION MODULE WPSHADOW;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPShadow;
  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 WPABS;
  15. IMPORT WPOBJECT;
  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 PWPShadow              = POINTER TO WPShadow;
  23. TYPE PM_WPShadow            = POINTER TO M_WPShadow;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPShadow
  27. *************************************************************************)
  28.  
  29. TYPE PWPObject              = WPOBJECT.PWPObject;
  30.  
  31. (*************************************************************************
  32.   SOM class API for WPShadow, including type-bound procedures
  33. **************************************************************************)
  34.  
  35. CONST
  36.   WPShadow_MajorVersion     = 1;
  37.   WPShadow_MinorVersion     = 2;
  38.  
  39. TYPE
  40.   WPShadowClassDataStructure   = RECORD
  41.     classObject                  : PSOMClass;
  42.     wpSetLinkToObject            : somMToken;
  43.     withdrawn                    : somMToken;
  44.     wpSetShadowTitle             : somMToken;
  45.     wpQueryShadowedObject        : somMToken;
  46.                                  END;
  47.  
  48. VAR
  49.   WPShadowClassData : WPShadowClassDataStructure;
  50.  
  51. TYPE
  52.   (*$SOM+ *)
  53.   WPShadow = RECORD( WPABS.WPAbstract ) END;
  54.   (*$SOM- *)
  55.  
  56.  
  57. PROCEDURE WPShadowNewClass
  58. (
  59.   majorVersion  : INTEGER4;
  60.   minorVersion  : INTEGER4
  61. )               : PSOMClass;
  62.  
  63. PROCEDURE( Self : PWPShadow ) wpQueryShadowedObject
  64. (
  65.   fLock         : BOOLEAN
  66. )               : PWPObject;
  67.  
  68. PROCEDURE( Self : PWPShadow ) wpSetShadowTitle
  69. (
  70.   szNewTitle    : ARRAY OF CHAR
  71. )               : BOOLEAN;
  72.  
  73.  
  74. (*************************************************************************
  75.   SOM class API for M_WPShadow, including type-bound procedures
  76. **************************************************************************)
  77.  
  78. CONST
  79.   M_WPShadow_MajorVersion   = 1;
  80.   M_WPShadow_MinorVersion   = 2;
  81.  
  82. TYPE
  83.   M_WPShadowClassDataStructure   = RECORD
  84.     classObject                    : PSOMClass;
  85.                                    END;
  86.  
  87. VAR
  88.   M_WPShadowClassData : M_WPShadowClassDataStructure;
  89.  
  90. TYPE
  91.   (*$SOM+ *)
  92.   M_WPShadow = RECORD( WPABS.M_WPAbstract ) END;
  93.   (*$SOM- *)
  94.  
  95.  
  96. PROCEDURE M_WPShadowNewClass
  97. (
  98.   majorVersion : INTEGER4;
  99.   minorVersion : INTEGER4
  100. )              : PSOMClass;
  101.  
  102. END WPSHADOW.
  103.