<<>> <> <> <> <> <<>> DIRECTORY Xl; XlICCCMTypes: CEDAR DEFINITIONS ~ BEGIN <> <> <<>> WMSizeHints: TYPE = WMNormalHints; --a better name WMNormalHints: TYPE = RECORD [ --For the WM NORMAL HINTS property <<--Cedar clients extras>> userPos, userSize, clientPos, clientSize: BOOL ¬ FALSE, --used to "compute" some flags <<--Standard ICCCM fields>> flags: --PRIVATE-- CARD32 ¬ 0, --computed; not to be set by clients obsoletePos: Xl.Point ¬ [0, 0], obsoleteSz: Xl.Size ¬ [0, 0], minSz: Xl.Size ¬ [0, 0], maxSz: Xl.Size ¬ [0, 0], incSz: Xl.Size ¬ [0, 0], minAspectN, minAspectD: INT ¬ 0, --set either all 4 or no aspect data maxAspectN, maxAspectD: INT ¬ 0, baseSz: Xl.Size ¬ [0, 0], gravity: Xl.WinGravity ¬ unmap --maps to subrange [northWest..southEast] ]; WMHints: TYPE = RECORD [ --For the WM HINTS property <<--Standard ICCCM fields>> flags: --PRIVATE-- CARD32 ¬ 0, --computed; not to be set by clients input: CARD32 ¬ 0, initialState: CARD32 ¬ 0, --default will be changed to normal [1=normal, 3=iconic] iconPixmap: Xl.Pixmap ¬ Xl.nullPixmap, iconWindow: Xl.Window ¬ Xl.nullWindow, iconPos: Xl.Point ¬ [0, 0], iconMask: Xl.Pixmap ¬ Xl.nullPixmap, windowGroup: Xl.Window ¬ Xl.nullWindow ]; END.