XTkStreamWidgets.mesa
Copyright Ó 1991 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, July 2, 1991 1:58 pm PDT
Christian Jacobi, July 30, 1991 7:01 pm PDT
Defines a stream widget class enabling ascii output.
DIRECTORY
IO USING [STREAM],
XTk USING [Widget, WidgetSpec];
XTkStreamWidgets: CEDAR DEFINITIONS ~
BEGIN
CreateStreamWidget:
PROC [widgetSpec: XTk.WidgetSpec ¬ [], widgetStream:
IO.
STREAM ¬
NIL]
RETURNS [XTk.Widget];
Creates a stream widget, enabling ascii output.
If widgetStream is not NIL, its output will be directed to the created widget.
CreateStream:
PROC [w: XTk.Widget ¬
NIL]
RETURNS [widgetStream:
IO.
STREAM];
Creates a new widgetStream stream which can direct its output into arbitrary stream-widgets. If w is not NIL the new stream will direct its output into w.
Stream might discard characters until widget is attached, created and widget is realized.
BindStream:
PROC [w: XTk.Widget, widgetStream:
IO.
STREAM];
Further output into widgetStream is directed into w.
END.