FeedbackInitialCedarImpl.mesa
Copyright Ó 1990, 1991, 1993 by Xerox Corporation. All rights reserved.
Copyright protection claimed includes all forms and matters of copyrightable material and information now allowed by statutory or judicial law or hereinafter granted, including without limitation, material generated from the software programs which are displayed on the screen such as icons, screen display looks, character bitmaps, etc.
Last tweaked by Mike Spreitzer on May 1, 1990 11:00:59 am PDT
Bier, May 1, 1990 11:11 pm PDT
Willie-s, June 23, 1993 3:18 pm PDT
DIRECTORY Feedback, FeedbackClasses, IO, StandardStreams;
FeedbackInitialCedarImpl:
CEDAR
PROGRAM
IMPORTS Feedback, FeedbackClasses, StandardStreams
=
BEGIN
Start:
PROC ~ {
stdout: IO.STREAM ~ StandardStreams.CreateStandardOutputStream[];
h1: Feedback.MsgHandler ~ FeedbackClasses.CreateHandlerOnStream[stdout, TRUE, NIL];
h2: Feedback.MsgHandler ~ FeedbackClasses.CreateStoringHandler[2000];
h12: Feedback.MsgHandler ~ FeedbackClasses.CreateSplittingHandler[h1, h2];
[] ¬ Feedback.SetGlobalDefaultHandlersBehavior[h12];
RETURN};
Start[];
END.