<<>> <> <> <> <> <> <> <> <<>> DIRECTORY CursorTypes, ViewerClasses; PseudoCursors: CEDAR DEFINITIONS ~ BEGIN PseudoCursor: TYPE ~ ViewerClasses.Viewer; Create: PROC [parent: ViewerClasses.Viewer, x, y: INTEGER ¬ 0] RETURNS [PseudoCursor]; Set: PROC [pseudoCursor: PseudoCursor, bits: REF CursorTypes.CursorArray]; END.