CDPanelFonts.mesa A ChipNDale module
Copyright © 1985, 1987 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, October 24, 1985 6:31:16 pm PDT
Last edited by: Christian Jacobi, March 17, 1987 5:51:40 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.ROPENIL];
--name written on panel
CurrentText: PROC [d: CD.Design] RETURNS [Rope.ROPE];
--returns nil on failure
--funny characters not yet removed
SetCurrentText: PROC [d: CD.Design, text: Rope.ROPE];
--text written on panel
ImplementIt: PROC [
tech: CD.Technology,
defaultFonts: LIST OF Rope.ROPENIL,
layerProc: PROC [CD.Layer] RETURNS [CD.Layer] ← NIL
];
--layerProc: NIL means all layers are legal
LayerForText: PROC [layer: CD.Layer, technology: REFNIL] RETURNS [CD.Layer];
--This procedure can be used by text creators to make it harder to create
--texts in layers which are not appropriate.
--Hint only; there is always a possibility to create text in layer you don't want.
END.