makewindow

[This is preliminary specification and subject to change.]

Group

Type

determ

Syntax

makewindow( INTEGER WindowNo, INTEGER ScrAtt, INTEGER FrameAttr, STRING FrameStr, INTEGER Row, INTEGER Column, INTEGER Height, INTEGER Width)

Flow patterns

(i, i, i, i, i, i, i, i),(o, o, o, o, o, o, o, o)

Description:

Create a window with a default frame

Once defined, the window is cleared, and the cursor moves to the window's top left corner.

Sample:

/*
The combinations of Row and Height, and Column and Width, must define a window
that lies completely within the format of the display.
If any part of the window lies outside the display format, a run-time error will occur.
The size of the display can be changed with the text mode standard predicate.

Arguments to makewindow are as follows:

WindowNo Each window is identified by a number WindowNo, which you use when selecting the active window.
ScrAtt Attribute of the screen.
FrameAttr If FrameAttr is nonzero, makewindow draws a border around the defined area (framing the window).
FrameStr String that will be centered in the top border line If FrameStr = "" (empty string), no text will appear in the top border. If the text string is longer than the border, it will be truncated.

Row The row position of the top left corner of the window, relative to the whole screen.
Column The column position of the top left corner of the window, relative to the whole screen.
Height The height of the window, in terms of rows.
Width The width of the window, in terms of columns.
*/
PREDICATES

nondeterm repeat

CLAUSES

repeat.
repeat :- repeat.

GOAL

makewindow(1, 1, 7, "one", 5, 0, 10, 20), write("ONE"),
makewindow(2, 2, 7, "two", 1, 10, 10, 20), write("TWO"),
makewindow(3, 3, 7, "three", 2, 20, 10, 20),  write("THREE"),
makewindow(4, 4, 7, "four", 8, 30, 10, 20), write("FOUR"),
makewindow(5, 5, 7, "five", 4, 40, 10, 20), write("FIVE"),
makewindow(6, 6, 7, "six", 5, 50, 10, 20), write("SIX"),
makewindow(7, 7, 7, "seven", 9, 5, 10, 20), write("SEVEN"),
makewindow(8, 8, 7, "eight", 1, 10, 10, 20),  write("EIGHT"),

makewindow(9, 9, 7, "nine", 15, 20, 10, 20), write("NINE"),
repeat,

random(9,X), N=X+1, shiftwindow(N),
framewindow(112),  sleep(10),   framewindow(7),

keypressed.