DIRECTORY NSString USING [nullString, String], XMessage USING [Handle, MsgKey, StringArray]; PSAsyncMsg: CEDAR DEFINITIONS = BEGIN Msg: TYPE = RECORD [ domain: XMessage.Handle, key: XMessage.MsgKey ]; nullMsg: Msg = [domain: NIL, key: 0]; InsertArray: TYPE = REF InsertSeqRep; InsertSeqRep: TYPE = RECORD [data: SEQUENCE len: CARDINAL OF Insert]; nullInsertArray: InsertArray = NIL; Insert: TYPE = RECORD [ m: Msg _ nullMsg, s: NSString.String _ NSString.nullString ]; Proc: TYPE = PROCEDURE [msg: Msg, insertArray: InsertArray _ nullInsertArray]; PutString: PROCEDURE [string: NSString.String]; PutMesaString: PROCEDURE [mesaString: REF TEXT]; Expand1AndPutString: PROCEDURE [template, sInsert: NSString.String]; ExpandArrayAndPutString: PROCEDURE [template: NSString.String, stringArray: REF XMessage.StringArray]; END. LOG when - who - want 6-Dec-83 10:43:22 - Jacks - Created. 13-Dec-83 16:34:11 - Jacks - Added AsyncMsgProc. 14-Jun-85 16:55:56 - Jacks - Added copyright notice. 16-Jul-85 6:35:35 - Jacks - Updated to XMessage. RPSAsyncMsg.mesa Copyright (C) Xerox Corporation 1983, 1984, 1985. All rights reserved. Last edited by Jacks 16-Jul-85 6:35:39 Tim Diebert: December 1, 1986 10:22:48 am PST <> DEFINITIONS FOR PASSING OFFICIAL ASYNCHRONOUS MESSAGES TO CLIENTS: <> 'msg' defines the asynchronous message by message key 'insertArray' defines messages (by key) and/or strings for insertion into the 'msg' template; if 'insertArray' is null, 'msg' is not a template and should be displayed as is. <> DEFINITIONS FOR DISPLAYING UNOFFICIAL ASYNCHRONOUS MESSAGES: ΚΠ˜codešœ™KšœF™FKšœ'™'K™-—K˜KšœήΟkœ$™„K˜š ˜ Kšœ œ˜$Kšœ œ˜-—K˜šΠln œœ œ˜&K˜KšœB™BK˜šœœœ˜K˜K˜K˜—K˜Kšœœ ˜%K˜Kšœ œœ˜%š œœœœœœ ˜EK˜—Kšœœ˜#K˜K™`šœœœ˜K˜K˜(K˜K˜—šœœ œ8˜NKšœ5™5Kšœ;™;Kšœ=™=Kšœ6™6KšœœwœΒœ™ΠK˜K˜—Kšœ<™