<> <> <> <> DIRECTORY CD; CDDefaults: CEDAR DEFINITIONS = BEGIN <<--this module serves to decouple low layer querries for current layer and width from>> <<--the control panel module, which resides on higher layer. All we do here>> <<--is to assume that the control panel module will actually initialize the witdhs.>> CurrentLayer: PROC [design: CD.Design] RETURNS [CD.Layer]; SetCurrentLayer: PRIVATE PROC [design: REF, layer: CD.Layer]; <<--design can exceptionally be a technology to set default values>> <<--reserve call for Control panel implementor; otherwise it gets fooled>> LayerWidth: PROC [design: CD.Design, layer: CD.Layer] RETURNS [CD.DesignNumber]; SetLayerWidth: PRIVATE PROC [design: REF, layer: CD.Layer, width: CD.DesignNumber]; <<-- design can exceptionally be a technology to set default values>> <<-- reserve call for Control panel implementor; otherwise it gets fooled>> END.