XTkFeedback.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, March 26, 1992 3:05:39 pm PST
Christian Jacobi, March 26, 1992 3:19 pm PST
Enables feedback (SimpleFeedback.mesa, Feedback.mesa) using XTk widgets.
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];
Creates a MsgHandler which when used creates a shell.
reGenerate: Enables generation of new shell if shell is destroyed and MsgHandler reused
CreateHandlerOnStreamWidget: PROC [streamWidget: Widget ← NIL] RETURNS [MsgHandler];
Creates a MsgHandler which uses streamWidget's to display messages.
IsHandlerOnWidgets: PROC [h: MsgHandler] RETURNS [BOOL];
Returns true if h implements SetWidgetForHandler.
SetWidgetForHandler: PROC [h: MsgHandler, streamWidget: Widget];
Feedback on h will use streamWidget for display.
CreateStreamWidgetForHandler: PROC [h: MsgHandler] RETURNS [Widget];
Conveniance: Creates a stream Widget and uses SetWidgetForHandler.
CreateShellForHandler: PROC [h: MsgHandler, name: Rope.ROPE, connection: REF ¬ NIL];
Creates a shell widgets and uses it for displaying feedback on h.
END.