<<>> <> <> <> <> <<>> DIRECTORY Rope USING [ROPE], Xl USING [Connection, Window], XlICCCMTypes USING [WMNormalHints, WMHints]; XlConventions: CEDAR DEFINITIONS ~ BEGIN ROPE: TYPE = Rope.ROPE; Connection: TYPE = Xl.Connection; Window: TYPE = Xl.Window; <> <> <<>> SetWMNormalHints: PROC [c: Connection, window: Window, sizeHints: XlICCCMTypes.WMNormalHints, allways: BOOL ¬ FALSE]; <> <> <

> <<>> SetWMHints: PROC [c: Connection, window: Window, hints: XlICCCMTypes.WMHints, allways: BOOL ¬ FALSE]; <> <> <

> SetWindowName: PROC [c: Connection, window: Window, windowName: ROPE]; <> SetIconName: PROC [c: Connection, window: Window, iconName: ROPE]; <> SetWMTransient: PROC [c: Connection, window: Window, for: Window]; <> SetWMClass: PROC [c: Connection, window: Window, instance, class: ROPE ¬ NIL]; <> SetWMProtocols: PROC [c: Connection, window: Window, protocols: LIST OF ROPE ¬ NIL]; <> <> <> <> <> WMQueryPosition: PROC [c: Connection] RETURNS [BOOL]; <> <> WMMakesHeader: PROC [c: Connection] RETURNS [BOOL]; <> <> <> <> CutBufferGet: PROC [c: Connection] RETURNS [ROPE]; CutBufferPush: PROC [c: Connection, data: ROPE, hackForXTerm: BOOL ¬ FALSE]; <> CutBufferRotate: PROC [c: Connection, amount: INT ¬ -1]; END.