home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pmos2002.zip / DEF / TEXTLINE.DEF < prev    next >
Text File  |  1996-09-17  |  1KB  |  34 lines
  1. DEFINITION MODULE TextLines;
  2.  
  3.         (********************************************************)
  4.         (*                                                      *)
  5.         (*  Drawing horizontal and vertical lines in text mode  *)
  6.         (*                                                      *)
  7.         (*  Programmer:         P. Moylan                       *)
  8.         (*  Last edited:        22 June 1994                    *)
  9.         (*  Status:             OK                              *)
  10.         (*                                                      *)
  11.         (********************************************************)
  12.  
  13. FROM Windows IMPORT
  14.     (* type *)  Window;
  15.  
  16. TYPE LineType = (none, single, double);
  17.  
  18. PROCEDURE HLine (w: Window;  row, col1, col2: CARDINAL;  type: LineType);
  19.  
  20.     (* Draws a horizontal line from (row,col1) to (row,col2).   *)
  21.  
  22. PROCEDURE VLine (w: Window;  col, row1, row2: CARDINAL;  type: LineType);
  23.  
  24.     (* Draws a vertical line from (row1,col) to (row2,col).     *)
  25.  
  26. PROCEDURE Box (w: Window;  top, left, width, height: CARDINAL;
  27.                                                         type: LineType);
  28.  
  29.     (* Draws a rectangular box whose top left corner is at (top,left)   *)
  30.     (* and with the given width and height.                             *)
  31.  
  32. END TextLines.
  33. 
  34.