
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.


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


Creates a MsgHandler which when used creates a shell.  
reGenerate: Enables generation of new shell if shell is destroyed and MsgHandler reused  

Creates a MsgHandler which uses streamWidget's to display messages.  
Returns true if h implements SetWidgetForHandler.

Feedback on h will use streamWidget for display.
Conveniance: Creates a stream Widget and uses SetWidgetForHandler.
Creates a shell widgets and uses it for displaying feedback on h.
Êš  •NewlineDelimiter
–(cedarcode) style˜ code™Kšœ
Ïeœ1™<K™:K™,K™ KšœœBÏc™JK™ —šÏk	œ˜
Kšœ	Ÿœ˜KšœŸœŸœ˜KšœŸœ
˜K˜ —KšÏnœŸœŸœ˜ KšŸ˜K™ KšœŸœœ˜'KšœŸœ˜K˜ š œŸœŸœŸœŸœŸœŸœŸœ˜sK™7K™YK™ —š œŸœŸœŸœ˜TK™EK˜ —š œŸœŸœŸœ˜8K™1K™ —š œŸœ'˜@K™0K˜ —š œŸœŸœ
˜DK™BK˜ —š
 œŸœŸœŸœŸœ˜TK™A—K˜ KšŸœ˜K˜ K˜ — …—    ¤  
  