-- File: IPCIG.mesa
Copyright © 1986 by Xerox Corporation. All rights reserved.
Last Edited by: Preas, August 18, 1986 5:14:44 pm PDT
Provides abstraction for channel intersection graphs
DIRECTORY
Imager,
IPConstants,
IPCoTab,
IPCTG,
IPTop;
IPCIG: CEDAR DEFINITIONS = BEGIN
Ref: TYPE = REF Rep;
Rep: TYPE = RECORD[
];
EachNodeAction: TYPE = PROC[cig: Ref] RETURNS[quit: BOOL ← FALSE];
EachArcAction: TYPE = PROC[cig: Ref] RETURNS[quit: BOOL ← FALSE];
Create: PROC[top: IPTop.Ref] RETURNS[cig: Ref];
Destroy: PROC [cig: Ref];
Invalidates r and frees up the space
InsertPin: PROC[cig: Ref, comp: IPCoTab.Component];
Add the Pin to cig.
RemovePin: PROC[cig: Ref, comp: IPCoTab.Component];
Remove a pin from cig
Verify: PROC[cig: Ref];
Verify cig
PaintSelf: PROC[cig: Ref, context: Imager.Context, xOffset, yOffset: REAL, scaleFactor: REAL ← 1.0, stipple: CARDINAL ← IPConstants.Gray, drawOutline: BOOL ← TRUE, drawComp:BOOL ← FALSE, showCompName: BOOL ← TRUE];
if drawOutline is true then the outline (based on the hint) will be drawn;
if drawComp is true then the shape of the actual component will be drawn.
END.