SilCommand.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last Edited by Ken Pier, August 14, 1985 10:10:16 am PDT
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.