<> <> <> <<>> DIRECTORY ViewerClasses USING [Viewer]; ViewerEvents: CEDAR DEFINITIONS IMPORTS ViewerClasses = BEGIN EventProc: TYPE = PROC [viewer: ViewerClasses.Viewer, event: ViewerEvent, before: BOOL] RETURNS[abort: BOOL _ FALSE] ; <> <> ViewerEvent: TYPE = {save, edit, destroy, create, close, open, grow, changeColumn, setInputFocus, killInputFocus} ; <> EventRegistration: TYPE = REF ; RegisterEventProc: PROC [proc: EventProc, event: ViewerEvent, filter: REF ANY _ NIL, before: BOOL _ TRUE] RETURNS [EventRegistration] ; <> UnRegisterEventProc: PROC [proc: EventRegistration, event: ViewerEvent] ; <> ProcessEvent: PRIVATE PROC [event: ViewerEvent, viewer: ViewerClasses.Viewer, before: BOOL] RETURNS[abort: BOOL] ; <> END.