home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / winrecta.def < prev    next >
Text File  |  1994-05-03  |  3KB  |  99 lines
  1. DEFINITION MODULE WINRECTANGLES;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Prsentation Manager rectangle routines.
  5.  
  6.   Copyright (c) 1992 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. FROM   OS2DEF  IMPORT HAB, RECTL, POINTL, WPOINT;
  14.  
  15. PROCEDURE WinCopyRect
  16. ( AnchorBlockHandle         : HAB;
  17.   VAR DestRect              : RECTL;
  18.   VAR SourceRect            : RECTL
  19. )                           : BOOLEAN;
  20.  
  21. PROCEDURE WinSetRect
  22. ( AnchorBlockHandle         : HAB;
  23.   VAR Rect                  : RECTL;
  24.   xLeft                     : LONGINT;
  25.   yBottom                   : LONGINT;
  26.   xRight                    : LONGINT;
  27.   yTop                      : LONGINT
  28. )                           : BOOLEAN;
  29.  
  30. PROCEDURE WinIsRectEmpty
  31. ( AnchorBlockHandle         : HAB;
  32.   VAR Rect                  : RECTL
  33. )                           : BOOLEAN;
  34.  
  35. PROCEDURE WinEqualRect
  36. ( AnchorBlockHandle         : HAB;
  37.   VAR Rect1                 : RECTL;
  38.   VAR Rect2                 : RECTL
  39. )                           : BOOLEAN;
  40.  
  41. PROCEDURE WinSetRectEmpty
  42. ( AnchorBlockHandle         : HAB;
  43.   VAR Rect                  : RECTL
  44. )                           : BOOLEAN;
  45.  
  46. PROCEDURE WinOffsetRect
  47. ( AnchorBlockHandle         : HAB;
  48.   VAR Rect                  : RECTL;
  49.   xOffset                   : LONGINT;
  50.   yOffset                   : LONGINT
  51. )                           : BOOLEAN;
  52.  
  53. PROCEDURE WinInflateRect
  54. ( AnchorBlockHandle         : HAB;
  55.   VAR Rect                  : RECTL;
  56.   xExpansion                : LONGINT;
  57.   yExpansion                : LONGINT
  58. )                           : BOOLEAN;
  59.  
  60. PROCEDURE WinPtInRect
  61. ( AnchorBlockHandle         : HAB;
  62.   VAR Rect                  : RECTL;
  63.   VAR Point                 : POINTL
  64. )                           : BOOLEAN;
  65.  
  66. PROCEDURE WinIntersectRect
  67. ( AnchorBlockHandle         : HAB;
  68.   VAR DestRect              : RECTL;
  69.   VAR SoourceRect1          : RECTL;
  70.   VAR SourceRect2           : RECTL
  71. )                           : BOOLEAN;
  72.  
  73. PROCEDURE WinUnionRect
  74. ( AnchorBlockHandle         : HAB;
  75.   VAR DestRect              : RECTL;
  76.   VAR SoourceRect1          : RECTL;
  77.   VAR SourceRect2           : RECTL
  78. )                           : BOOLEAN;
  79.  
  80. PROCEDURE WinSubtractRect
  81. ( AnchorBlockHandle         : HAB;
  82.   VAR DestRect              : RECTL;
  83.   VAR SoourceRect1          : RECTL;
  84.   VAR SourceRect2           : RECTL
  85. )                           : BOOLEAN;
  86.  
  87. PROCEDURE WinMakeRect
  88. ( AnchorBlockHandle         : HAB;
  89.   VAR Rect                  : RECTL
  90. )                           : BOOLEAN;
  91.  
  92. PROCEDURE WinMakePoints
  93. ( AnchorBlockHandle         : HAB;
  94.   VAR Points                : WPOINT;
  95.   PointsCount               : LONGCARD
  96. )                           : BOOLEAN;
  97.  
  98. END WINRECTANGLES.
  99.