<> <> <> <<>> DIRECTORY ViewerClasses USING [Viewer]; TEditInputExtras: CEDAR DEFINITIONS ~ BEGIN CommandClosure: TYPE ~ RECORD [name: ATOM, proc: CommandClosureProc, data: REF ANY]; CommandClosureProc: TYPE ~ PROC [data: REF ANY, viewer: ViewerClasses.Viewer _ NIL, param: REF _ NIL] RETURNS [recordAtom: BOOL _ TRUE, quit: BOOL _ FALSE]; <> RegisterClosure: PROC [commandClosure: CommandClosure, before: BOOL _ TRUE]; <> UnRegisterClosure: PROC [name: ATOM, proc: CommandClosureProc, match: PROC [data: REF] RETURNS [BOOL] _ NIL]; <> GetCommandNames: PROC RETURNS [LIST OF ATOM]; <> END.