-- GriffinInputDefs
-- Tiberi December 11, 1979  4:23 PM
-- Last Edited by: Stone, September 19, 1985 12:20:04 pm PDT

DIRECTORY
    PointDefs USING [ScrPt];

GriffinInputDefs:  CEDAR DEFINITIONS =
BEGIN

InputEvent: TYPE = RECORD
    [
    type: {red, yellow, blue, abort, up,
        keyStroke, newPosition},
    key: CHARACTER,
    pt: PointDefs.ScrPt,
    shifted: BOOLEAN
    ];

InputEventProc: TYPE = PROCEDURE [event: InputEvent];

StartInputHandler: PROCEDURE RETURNS [proc: InputEventProc];

END.