CDPanelFonts.mesa A ChipNDale module
Copyright © 1985, 1986 by Xerox Corporation. All rights reserved.
by Christian Jacobi, October 24, 1985 6:31:16 pm PDT
last edited by Christian Jacobi, March 12, 1986 6:22:18 pm PST
DIRECTORY
CD USING [Design, Technology, Layer],
CDTexts USING [CDFont],
Rope USING [ROPE];
CDPanelFonts: CEDAR DEFINITIONS =
BEGIN
Selecting a font with the control panel.
CurrentFont:
PROC [d:
CD.Design]
RETURNS [CDTexts.CDFont];
--returns nil on failure
SetCurrentFont:
PROC [design:
REF, font: CDTexts.CDFont, name: Rope.
ROPE←
NIL];
--name written on panel
ImplementIt:
PROC [
tech:
CD.Technology,
installCommands:
BOOL ←
TRUE,
defaultFonts:
LIST
OF Rope.
ROPE ←
NIL,
layerProc:
PROC [
CD.Layer]
RETURNS [
CD.Layer] ←
NIL
];
--layerProc: NIL means all layers are legal
END.