XlTextWindow.mesa
Copyright Ó 1988, 1989, 1990, 1991 by Xerox Corporation. All rights reserved.
Christian Jacobi, July 4, 1988 1:00:15 pm PDT
Christian Jacobi, August 14, 1991 2:35 pm PDT
XlTextWindow: CEDAR DEFINITIONS
~ BEGIN
Ridiculus preliminary window-class; we should have something which looks more like Tioga...
Handle: TYPE = REF;
CreateTextHandle: PROC [] RETURNS [handle: Handle];
CreateTextWindow: PROC [handle: Handle, c: Xl.Connection, parent: Xl.Window ¬ Xl.nullWindow, geometry: Xl.Geometry ¬ [], font: Xl.Font ¬ Xl.nullFont, moreMatches: Xl.MatchList ¬ NIL, depth: INTEGER ¬ -1, attributes: Xl.Attributes ¬ []];
ForgetWindow:
PROC [handle: Handle];
--just once please
Failed:
ERROR;
maybe the window has been destroyed?
GetWindow:
PROC [handle: Handle]
RETURNS [w:
Xl.Window];
--resonable only while window is existing...
OutChar:
PROC [handle: Handle, ch:
CHAR];
--discards character if window not yet created
OutRope:
PROC [handle: Handle, r: Rope.
ROPE, start:
INT ¬ 0, len:
INT ¬ Rope.MaxLen];
--discards character if window not yet created
OutputStream:
PROC [handle: Handle]
RETURNS [s:
IO.
STREAM];
--creates a new stream which outputs into window of handle
--stream discards character until window is created
END.