-- JaMTSFrame.mesa
-- Last changed by Paxton, 19-Jan-82 14:06:17
-- Last Edited by: Stone, March 8, 1983 5:25 pm

DIRECTORY
  ViewerClasses USING [Viewer],
  JaMTSInfo USING [TSInfo],
  JaMInternal USING [Frame];

JaMTSFrame: DEFINITIONS = {

TS: TYPE = ViewerClasses.Viewer;
Frame: TYPE = JaMInternal.Frame;
TSInfo: TYPE = JaMTSInfo.TSInfo;

Remember: PROC [ts: TS, frame: Frame, tsi: TSInfo];
    -- establish two-way connection between ts and frame
    -- called when create the typescript

Forget: PROC [ts: TS];
    -- forget the connection.  called when destroy ts

GetFrame: PROC [ts: TS] RETURNS [Frame];
    -- return the frame associated with ts
    -- returns NIL if no association exists

GetTypeScript: PROC [frame: Frame] RETURNS [TS];
    -- return the ts associated with frame
    -- returns NIL if no association exists

GetTSInfo: PROC [ts: TS] RETURNS [TSInfo];
    -- return the TSInfo associated with ts
    -- returns NIL if no association exists

}.