<<>> <> <> <> <<>> 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.