PseudoCursors.mesa
Michael Plass, November 2, 1982 10:48 am
Last Edited by: Beach, May 24, 1983 9:12 am
DIRECTORY
UserTerminal USING [CursorArray],
ViewerClasses USING [Viewer];
PseudoCursors: CEDAR DEFINITIONS = BEGIN
PseudoCursor: TYPE = ViewerClasses.Viewer;
Create:
PROC [parent: ViewerClasses.Viewer, x, y:
INTEGER ← 0]
RETURNS [pseudoCursor: PseudoCursor];
Set: PROC [pseudoCursor: PseudoCursor, bits: REF UserTerminal.CursorArray];
END.
Michael Plass, November 2, 1982 10:48 am. CEDARized.