home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / windde2.mod < prev    next >
Text File  |  1995-02-25  |  1KB  |  34 lines
  1. IMPLEMENTATION MODULE WINDDE2;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 Presentation Manager DDE helper functions.
  5.            25.02.95 20.06 : bug fixed : DDES_PABDATA()
  6.  
  7.   Copyright (c) 1992 by Juergen Neuhoff
  8. *************************************************************************)
  9.  
  10. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  11. (*$CDECL+    C-style procedures                                         *)
  12. (*$A         default alignment for record fields                        *)
  13.  
  14. IMPORT SYSTEM;
  15. FROM   OS2DEF  IMPORT PSZ;
  16. FROM   WINDDE1 IMPORT DDESTRUCT, DDEINIT, PCONVCONTEXT;
  17.  
  18. PROCEDURE DDES_PSZITEMNAME( VAR DDEStruct:DDESTRUCT ):PSZ;
  19. BEGIN
  20.   RETURN SYSTEM.ADR( DDEStruct ) + DDEStruct.offszItemName;
  21. END DDES_PSZITEMNAME;
  22.  
  23. PROCEDURE DDES_PABDATA( VAR DDEStruct:DDESTRUCT ):PBYTEARRAY;
  24. BEGIN
  25.   RETURN SYSTEM.ADR( DDEStruct ) + DDEStruct.offabData;
  26. END DDES_PABDATA;
  27.  
  28. PROCEDURE DDEI_PCONVCONTEXT( VAR DDEInit:DDEINIT ):PCONVCONTEXT;
  29. BEGIN
  30.   RETURN SYSTEM.ADR( DDEInit ) + DDEInit.offConvContext;
  31. END DDEI_PCONVCONTEXT;
  32.  
  33. END WINDDE2.
  34.