PseudoCursors.mesa
Michael Plass, November 15, 1983 1:22 pm
Last Edited by: Beach, May 24, 1983 9:12 am
DIRECTORY
Terminal USING [BWCursorBitmap],
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 Terminal.BWCursorBitmap];
END.
Michael Plass, November 2, 1982 10:48 am. CEDARized.