<> <> <> <> <<<>>> 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]; <<'msg' defines the asynchronous message by message key>> <<'insertArray' defines messages (by key) and/or strings for >> <> <<'msg' is not a template and should be displayed as is.>> <<<>>> <> 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.