<> <> <> <> DIRECTORY SlackProcess, SV2d, SVBasicTypes, SVInterfaceTypes, SVModelTypes, ViewerClasses; SVUserInput: CEDAR DEFINITIONS = BEGIN BoundBox: TYPE = SVBasicTypes.BoundBox; Camera: TYPE = SVModelTypes.Camera; Point2d: TYPE = SV2d.Point2d; SVData: TYPE = SVInterfaceTypes.SVData; InputNotify: PROC [self: ViewerClasses.Viewer, input: LIST OF REF ANY]; <> EventNotify: PROC [clientData: REF ANY, event: LIST OF REF ANY]; ArgumentType: TYPE = {none, rope, refInt, refReal}; EventProc: TYPE = PROC [event: LIST OF REF ANY, svData: SVData]; RegisterAction: PROC [atom: ATOM, eventProc: EventProc, argType: ArgumentType]; END.