-- Compiler GriffinInputDefs
-- Tiberi December 11, 1979  4:23 PM

DIRECTORY
	PointDefs: FROM "PointDefs"
	   USING [ScrPt];

GriffinInputDefs: DEFINITIONS =
BEGIN

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

InputEventProc: TYPE = PROCEDURE [event: InputEvent];

Input: PROCEDURE [handler: InputEventProc];

END.