DIRECTORYCD USING [Design, Technology, Layer],CDTexts USING [CDFont],Rope USING [ROPE];CDPanelFonts: CEDAR DEFINITIONS =BEGINCurrentFont: PROC [d: CD.Design] RETURNS [CDTexts.CDFont];SetCurrentFont: PROC [design: REF, font: CDTexts.CDFont, name: Rope.ROPE_NIL];CurrentText: PROC [d: CD.Design] RETURNS [Rope.ROPE];SetCurrentText: PROC [d: CD.Design, text: Rope.ROPE];ImplementIt: PROC [tech: CD.Technology, defaultFonts: LIST OF Rope.ROPE _ NIL,layerProc: PROC [CD.Layer] RETURNS [CD.Layer] _ NIL];LayerForText: PROC [layer: CD.Layer, technology: REF_NIL] RETURNS [CD.Layer];END.    –  CDPanelFonts.mesa    A ChipNDale moduleCopyright c 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Selecting a font with the control panel.--returns nil on failure--name written on panel--returns nil on failure--funny characters not yet removed--text written on panel--layerProc: NIL means all layers are legal--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. Ê®  ˜ codešœ'™'Kšœ
Ïmœ7™BKšœ=™=K™?—K™ šÏk	˜	Kšžœžœžœ˜%Kšœžœ
˜Kšœžœžœ˜—K˜ KšÏnœžœžœ˜!Kšž˜K˜ K™(K˜ šŸœžœžœ	žœ˜:Kšœ™—K˜ š
Ÿœžœ
žœ#žœžœ˜NKšœ™—K˜ š
Ÿœžœžœ	žœžœ˜5KšÏc™Kšœ"™"—K˜ šŸœžœžœžœ˜5Kšœ™—K˜ šŸœžœ	žœžœžœžœžœžœžœžœžœ
žœ˜‡Kšœ+™+—K˜ šŸœžœ	žœžœžœžœžœ˜MKšœJ™JKšœ,™,K™R—K˜ Kšžœ˜K˜ K˜ — …—    b  ¦  