<> <> <> DIRECTORY SilDisplayInternal USING [defaultBoxWidth, defaultColor, defaultOneLevel, defaultFont, defaultGrid, defaultMagnification, defaultYLock] ; SilCommand: CEDAR DEFINITIONS = BEGIN CommandRef: TYPE = REF CommandRec; CommandRec: TYPE = RECORD[ Grid: [0..64] _ SilDisplayInternal.defaultGrid, LineW: [1..9] _ SilDisplayInternal.defaultBoxWidth, Mag: [1..9] _ SilDisplayInternal.defaultMagnification, Font: [0..9] _ SilDisplayInternal.defaultFont, Color: [0..15] _ SilDisplayInternal.defaultColor, MX: BOOL _ SilDisplayInternal.defaultOneLevel, Ylk: BOOL _ SilDisplayInternal.defaultYLock, Selected: NAT _ 0, X: INTEGER _ 0, Y: INTEGER _ 0 ]; END.