DIRECTORY IO, Rope; SVError: CEDAR DEFINITIONS = BEGIN Problem: SIGNAL [msg: Rope.ROPE]; MsgType: TYPE = {oneLiner, begin, middle, end}; SetErrorStream: PROC [errorStream: IO.STREAM]; GetErrorStream: PROC [] RETURNS [errorStream: IO.STREAM]; Blink: PROC []; Append: PROC [msg: Rope.ROPE, msgType: MsgType]; AppendHerald: PROC [msg: Rope.ROPE, msgType: MsgType]; AppendTypescript: PROC [msg: Rope.ROPE, msgType: MsgType]; PutF: PROC [msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to script and feedback line PutFHerald: PROC [msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to feedback line only PutFTypescript: PROC [msgType: MsgType, format: Rope.ROPE _ NIL, v1, v2, v3, v4, v5: IO.Value _ [null[]] ]; -- to script only NotYetImplemented: SIGNAL; END. ΠFile: SVError.mesa Last edited by: Eric Bier on January 27, 1987 11:24:37 pm PST Contents: Routines for handling user error messages throughout Solidviews. (It's never too late to try to do it right. Κe˜Ihead™J™=J™wJ™šΟk ˜ Jšœ˜J˜J˜—šœ œ œ˜"J˜—J˜IcodešΟnœœ œ˜!Lšœ œ"˜/L˜Jšžœœœœ˜.Jš žœœœœœ˜9Jšžœœ˜J˜Jšžœœ œ˜0Jšž œœ œ˜6Jšžœœ œ˜:L˜Lš žœœ!œœœΟc˜€Lš ž œœ!œœœŸ˜€Lš žœœ!œœœŸ˜}L˜šœœ˜J˜—J˜Jšœ˜—…—P