<> <> <> 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.