textline.def

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.