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.