<> <> <> DIRECTORY TSArtwork, TSGraphic, TSTypes; TSInvisibleImpl: CEDAR PROGRAM IMPORTS TSArtwork = { ObjectFromBranchProc: TYPE = TSArtwork.ObjectFromBranchProc; InvisibleBranch: ObjectFromBranchProc = {-- Ignores the node altogether object _ NEW[TSGraphic.ObjectRec]; object.paintProc _ InvisibleBranchPaint; object.layoutProc _ InvisibleBranchLayout; }; InvisibleBranchLayout: TSGraphic.LayoutProc = { extent _ [TSTypes.zeroDimn, TSTypes.zeroDimn, TSTypes.zeroDimn, TSTypes.zeroDimn]; }; InvisibleBranchPaint: TSGraphic.PaintProc = { }; TSArtwork.Register["Invisible", InvisibleBranch]; }.