home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
pmos2002.zip
/
DEF
/
TEXTLINE.DEF
< prev
next >
Wrap
Text File
|
1996-09-17
|
1KB
|
34 lines
DEFINITION MODULE TextLines;
(********************************************************)
(* *)
(* Drawing horizontal and vertical lines in text mode *)
(* *)
(* Programmer: P. Moylan *)
(* Last edited: 22 June 1994 *)
(* Status: OK *)
(* *)
(********************************************************)
FROM Windows IMPORT
(* type *) Window;
TYPE LineType = (none, single, double);
PROCEDURE HLine (w: Window; row, col1, col2: CARDINAL; type: LineType);
(* Draws a horizontal line from (row,col1) to (row,col2). *)
PROCEDURE VLine (w: Window; col, row1, row2: CARDINAL; type: LineType);
(* Draws a vertical line from (row1,col) to (row2,col). *)
PROCEDURE Box (w: Window; top, left, width, height: CARDINAL;
type: LineType);
(* Draws a rectangular box whose top left corner is at (top,left) *)
(* and with the given width and height. *)
END TextLines.