<<>> <> <> <> <> <<>> <> <<>> DIRECTORY Feedback, IO, Rope, ViewerClasses; FeedbackOps: CEDAR DEFINITIONS = BEGIN <> Viewer: TYPE = ViewerClasses.Viewer; MsgType: TYPE = Feedback.MsgType; MsgClass: TYPE = Feedback.MsgClass; MsgRouter: TYPE = Feedback.MsgRouter; MsgHandler: TYPE = Feedback.MsgHandler; <> CreateNamedTypescript: PROC [headerText: Rope.ROPE, typescriptName: ATOM, openHeight: NAT _ 120, storing: BOOL _ FALSE] RETURNS [alreadyExists: BOOL, typescript: Viewer]; <> CreateTypescriptFromStream: PROC [stream: IO.STREAM, typescriptName: ATOM, storing: BOOL _ FALSE] RETURNS [alreadyExists: BOOL, oldStream: IO.STREAM]; <> GetTypescripts: PROC [] RETURNS [names: LIST OF ATOM]; <> GetTypescriptStream: PROC [typescriptName: ATOM] RETURNS [IO.STREAM]; <> <> <> <<>> <> messageWindow: READONLY Viewer; CreateViewersHandler: PROC [typescriptName: ATOM _ $None, label: Viewer _ NIL, blink: BOOL _ FALSE] RETURNS [MsgHandler]; <> < no output to any named typescript.>> < output goes to that named typescript, if it exists at the moment of output.>> < no output to any label.>> < output goes to the MessageWindow.>> < output goes to that label.>> < label is blinked when text is output to it.>> IsViewersHandler: PROC [MsgHandler] RETURNS [is: BOOL, typescriptName: ATOM _ $None, label: Viewer _ NIL, blink: BOOL _ FALSE]; <> HandleToLabel: PROC [vh: MsgHandler, label: Viewer, blink: BOOL _ FALSE]; <> HandleToTypescript: PROC [vh: MsgHandler, typescriptName: ATOM _ $None]; <> <> SetLabel: PROC [router: MsgRouter, label: Viewer, blink: BOOL _ FALSE, msgClass: MsgClass _ $Every]; <> <> SetMultiLabel: PROC [router: MsgRouter, label: Viewer, blink: BOOL _ FALSE, msgClasses: LIST OF ATOM]; <> SetMessageWindow: PROC [router: MsgRouter, blink: BOOL _ FALSE, msgClass: MsgClass _ $Every]; <<= {SetLabel[router, messageWindow, blink, msgClass]};>> SetMultiMessageWindow: PROC [router: MsgRouter, blink: BOOL _ FALSE, msgClasses: LIST OF ATOM]; <> <<>> SetTypescript: PROC [router: MsgRouter, typescriptName: ATOM _ $None, msgClass: MsgClass _ $Every]; <> SetMultiTypescript: PROC [router: MsgRouter, typescriptName: ATOM _ $None, msgClasses: LIST OF ATOM]; <> <<>> CreateSimpleRouter: PROC [label: Viewer, blink: BOOL _ FALSE, typescriptName: ATOM] RETURNS [router: MsgRouter]; <> CreateMultiRouter: PROC [label: Viewer, blink: BOOL _ FALSE, labelClasses: LIST OF ATOM, typescriptName: ATOM, typescriptClasses: LIST OF ATOM] RETURNS [router: MsgRouter]; <> <> GetLabel: PROC [router: MsgRouter, msgClass: MsgClass _ $Default] RETURNS [label: Viewer, blink: BOOL _ FALSE]; <> GetTypescriptName: PROC [router: MsgRouter, msgClass: MsgClass _ $Default] RETURNS [typescriptName: ATOM]; <> END.