TSInvisibleImpl.mesa
Copyright (C) 1984, Xerox Corporation. All rights reserved.
Last Edited by: Rick Beach, December 3, 1984 8:28:20 pm PST
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];
}.