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