TiogaAccessViewer.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Doug Wyatt, August 27, 1986 5:36:50 pm PDT
DIRECTORY
TiogaAccess USING [Reader, Writer],
ViewerClasses USING [Viewer];
TiogaAccessViewer:
CEDAR
DEFINITIONS ~
BEGIN
Reader: TYPE ~ TiogaAccess.Reader;
Writer: TYPE ~ TiogaAccess.Writer;
Viewer: TYPE ~ ViewerClasses.Viewer;
FromViewer:
PROC [viewer: Viewer]
RETURNS [Reader];
Must be a text or typescript viewer.
Makes a reader on a copy of the viewer contents.
WriteViewer:
PROC [writer: Writer, viewer: Viewer];
Must be a text or typescript viewer.
Replaces the contents of the viewer.
END.