<> <> <> <> <<>> DIRECTORY CD USING [Design, Technology, Layer], CDTexts USING [CDFont], Rope USING [ROPE]; CDPanelFonts: CEDAR DEFINITIONS = BEGIN <> 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.