TSArtwork.mesa
written Beach & Plass, May 24, 1983 9:07 am
Last edit by Plass, November 2, 1982 10:09 am
DIRECTORY
Rope USING [ROPE],
TSGraphic USING [Object],
TextNode USING [Ref];
TSArtwork: CEDAR DEFINITIONS =
BEGIN
ROPE: TYPE = Rope.ROPE;
Register:
PROCEDURE [
artworkClassName: ROPE,
objectFromBranchProc: ObjectFromBranchProc
];
Lookup: PROCEDURE [artworkClassName: ROPE] RETURNS [ObjectFromBranchProc];
ObjectFromBranchProc:
TYPE =
PROCEDURE [node: TextNode.Ref]
RETURNS [object: TSGraphic.Object];
CreateTypesetObject: ObjectFromBranchProc;
END.
Michael Plass, November 2, 1982 10:09 am. CEDARized.