-- 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

}.