<> <> <> <> <<>> <> <<>> DIRECTORY Feedback USING [MsgHandler], Rope USING [ROPE], XTk USING [Widget]; XTkFeedback: CEDAR DEFINITIONS ~ BEGIN <<>> MsgHandler: TYPE = Feedback.MsgHandler; Widget: TYPE = XTk.Widget; CreateHandlerOnShell: PROC [name: Rope.ROPE, reGenerate: BOOL ¬ FALSE, connection: REF ¬ NIL] RETURNS [MsgHandler]; <> <> <<>> CreateHandlerOnStreamWidget: PROC [streamWidget: Widget _ NIL] RETURNS [MsgHandler]; <> IsHandlerOnWidgets: PROC [h: MsgHandler] RETURNS [BOOL]; <> <<>> SetWidgetForHandler: PROC [h: MsgHandler, streamWidget: Widget]; <> CreateStreamWidgetForHandler: PROC [h: MsgHandler] RETURNS [Widget]; <> CreateShellForHandler: PROC [h: MsgHandler, name: Rope.ROPE, connection: REF ¬ NIL]; <> END.