DIRECTORY IO, Rope, Xl; XlTextWindow: CEDAR DEFINITIONS ~ BEGIN 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]; Failed: ERROR; GetWindow: PROC [handle: Handle] RETURNS [w: Xl.Window]; OutChar: PROC [handle: Handle, ch: CHAR]; OutRope: PROC [handle: Handle, r: Rope.ROPE, start: INT ¬ 0, len: INT ¬ Rope.MaxLen]; OutputStream: PROC [handle: Handle] RETURNS [s: IO.STREAM]; END. T 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 Ridiculus preliminary window-class; we should have something which looks more like Tioga... --just once please maybe the window has been destroyed? --resonable only while window is existing... --discards character if window not yet created --discards character if window not yet created --creates a new stream which outputs into window of handle --stream discards character until window is created ΚΊ•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ ΟeœC™NKšœ-™-Kšœ-™-K™—šΟk œžœžœ˜K˜—KšΟn œžœž ˜Kšœžœ˜K™K™[K˜Kšœžœžœ˜K˜KšŸœžœžœ˜3K˜KšŸœžœžœžœ žœžœžœžœžœ žœ žœžœ˜μK˜šŸ œžœ˜$K™—K˜šŸœžœ˜K™$—K˜šŸ œžœžœžœ ˜8K™,—K˜šŸœžœžœ˜)K™.K˜—š Ÿœžœžœ žœ žœ˜UK™.—K˜š Ÿ œžœžœžœžœ˜;KšΟc:™:Kš œ1™3K˜—Kšžœ˜K˜—…—°Ύ