-- JaMTSFrame.mesa
-- Last changed by Paxton, 19-Jan-82 14:06:17

DIRECTORY
  TypeScript USING [TS],
  JaMTSInfo USING [TSInfo],
  JaMInternal USING [Frame];

JaMTSFrame: DEFINITIONS = {

TS: TYPE = TypeScript.TS;
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

}.