
DIRECTORY IO, RefTab, Rope, SimpleFeedback;

FeedbackConcreteTypes: CEDAR DEFINITIONS = BEGIN OPEN SimpleFeedback;

MsgRouter: TYPE = REF MsgRouterObj;
MsgRouterObj: TYPE = RECORD [
c2h: RefTab.Ref--MsgClass -> MsgHandler-- ¬ NIL,
defaultHandler: MsgHandler,
on: BOOL ¬ TRUE
];

MsgHandler: TYPE ~ REF MsgHandlerObj;
MsgHandlerObj: TYPE ~ RECORD [
PutFL: PROC [mh: MsgHandler, msgType: MsgType, msgClass: MsgClass, format: Rope.ROPE, list: LIST OF IO.Value ¬ NIL],
ClearHerald: PROC [mh: MsgHandler, msgClass: MsgClass],
Blink: PROC [mh: MsgHandler, msgClass: MsgClass],
data: REF ANY ¬ NIL];

END.

   ^  
FeedbackConcreteTypes.mesa
Copyright Ó 1988, 1990, 1991 by Xerox Corporation.  All rights reserved.
Bier, August 23, 1989 10:24:44 am PDT
Last tweaked by Mike Spreitzer on May 1, 1990 7:13:07 am PDT
Michael Plass, September 27, 1991 10:26 am PDT
Contents:  The actual value of MsgRouterObj and MsgHandlerObj (defined in FeedbackTypes.mesa).

 Êg  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ
Ïeœ=™HKšœ%™%K™<K™.—K˜ Kšœ^™^K™ KšÏk	œžœ˜+K˜ Kš
Ïnœžœžœžœžœ˜EK˜ Kšœžœžœ˜#šœžœžœ˜KšœÏcœžœ˜0K˜Kšœžœž˜Kšœ˜K˜ —Kšœžœžœ˜%šœžœžœ˜KšŸœžœEžœžœžœžœ	žœ˜tKšŸœžœ&˜7KšŸœžœ&˜1Kšœžœžœžœ˜—K˜ Kšžœ˜K˜ — …—    Z    