
DIRECTORY 
Rope, Xl, XlConventions, XlICCCMTypes, XlPredefinedAtoms, XlService;

XlConventionsImpl: CEDAR PROGRAM
IMPORTS Rope, Xl, XlService
EXPORTS XlConventions
~ BEGIN OPEN Xl;

cutBuffKey: REF ATOM м NEW[ATOM м $CutBuff];
cutBuffList: LIST OF XAtom;

SetWMNormalHints: PUBLIC PROC [c: Connection, window: Window, sizeHints: XlICCCMTypes.WMNormalHints, allways: BOOL м FALSE] = {
usPos: CARD = 1;
usSize: CARD = 2;
pPos: CARD = 4;
pSize: CARD = 8;
pMinSize: CARD = 16;
pMaxSize: CARD = 32;
pResizeInc: CARD = 64;
pAspect: CARD = 128;
pBaseSz: CARD = 256;
pWinGravity: CARD = 512;
x: REF Card32Sequence м NEW[Card32Sequence[18]];
flags: CARD32 м 0;
x[1] м LOOPHOLE[sizeHints.obsoletePos.x];
x[2] м LOOPHOLE[sizeHints.obsoletePos.y];
IF sizeHints.userPos THEN flags м flags+usPos;
IF sizeHints.clientPos THEN flags м flags+pPos;
x[3] м LOOPHOLE[sizeHints.obsoleteSz.width];
x[4] м LOOPHOLE[sizeHints.obsoleteSz.height];
IF sizeHints.userSize THEN flags м flags+usSize;
IF sizeHints.clientSize THEN flags м flags+pSize;
x[5] м LOOPHOLE[sizeHints.minSz.width];
x[6] м LOOPHOLE[sizeHints.minSz.height];
IF sizeHints.minSz.width>0 OR sizeHints.minSz.height>0 THEN flags м flags+pMinSize;
x[7] м LOOPHOLE[sizeHints.maxSz.width];
x[8] м LOOPHOLE[sizeHints.maxSz.height];
IF sizeHints.maxSz.width>0 OR sizeHints.maxSz.height>0 THEN flags м flags+pMaxSize;
x[9] м LOOPHOLE[sizeHints.incSz.width];
x[10] м LOOPHOLE[sizeHints.incSz.height];
IF sizeHints.incSz.width>0 OR sizeHints.incSz.height>0 THEN flags м flags+pResizeInc;
x[11] м LOOPHOLE[sizeHints.minAspectN];
x[12] м LOOPHOLE[sizeHints.minAspectD];
x[13] м LOOPHOLE[sizeHints.maxAspectN];
x[14] м LOOPHOLE[sizeHints.maxAspectD];
IF sizeHints.minAspectN>0 OR sizeHints.maxAspectN>0 THEN flags м flags+pAspect;
x[15] м LOOPHOLE[sizeHints.baseSz.width];
x[16] м LOOPHOLE[sizeHints.baseSz.height];
IF sizeHints.baseSz.width>0 OR sizeHints.baseSz.height>0 THEN flags м flags+pBaseSz;
IF sizeHints.gravity>=northWest AND sizeHints.gravity<=southEast THEN {
x[17] м ORD[sizeHints.gravity];
flags м flags+pWinGravity;
};
x[0] м flags;
IF flags#0 OR allways THEN
 ChangeProperty[c: c, w: window, property: XlPredefinedAtoms.wmNormalHints, type: XlPredefinedAtoms.wmSizeHints, mode: replace, data: x];
};

SetWMHints: PUBLIC PROC [c: Connection, window: Window, hints: XlICCCMTypes.WMHints, allways: BOOL м FALSE] = {
inputHint: CARD = 1;
stateHint: CARD = 2;
iconPixmapHint: CARD = 4;
iconWindowHint: CARD = 8;
iconPositionHint: CARD = 16;
iconMaskHint: CARD = 32;
windowGroupHint: CARD = 64;
x: REF Card32Sequence м NEW[Card32Sequence[9]];
flags: CARD32 м 0;
x[1] м hints.input;
IF hints.input#0 THEN flags м flags+inputHint;
x[2] м hints.initialState;
IF hints.initialState#0 THEN flags м flags+stateHint;
x[3] м hints.iconPixmap;
IF hints.iconPixmap#Xl.nullPixmap THEN flags м flags+iconPixmapHint;
x[4] м hints.iconWindow;
IF hints.iconWindow#Xl.nullWindow THEN flags м flags+iconWindowHint;
x[5] м LOOPHOLE[hints.iconPos.x];
x[6] м LOOPHOLE[hints.iconPos.y];
IF hints.iconPos.x#0 OR hints.iconPos.y#0 THEN flags м flags+iconPositionHint;
x[7] м hints.iconMask;
IF hints.iconMask#Xl.nullPixmap THEN flags м flags+iconMaskHint;
x[8] м hints.windowGroup;
IF hints.windowGroup#Xl.nullWindow THEN flags м flags+windowGroupHint;
x[0] м flags;
IF flags#0 OR allways THEN
ChangeProperty[c: c, w: window, property: XlPredefinedAtoms.wmHints, type: XlPredefinedAtoms.wmHints, mode: replace, data: x];
};

SetWindowName: PUBLIC PROC [c: Connection, window: Window, windowName: ROPE] = {
ChangeProperty[c, window, XlPredefinedAtoms.wmName, XlPredefinedAtoms.string, replace, windowName];
};

SetIconName: PUBLIC PROC [c: Connection, window: Window, iconName: ROPE] = {
ChangeProperty[c, window, XlPredefinedAtoms.wmIconName, XlPredefinedAtoms.string, replace, iconName];
};

SetWMTransient: PUBLIC PROC [c: Connection, window: Window, for: Window] = {
x: REF Card32Sequence м NIL;
IF Xl.WindowId[for]#0 THEN {
x м NEW[Card32Sequence[1]];
x[0] м Xl.WindowId[for];
};
Xl.ChangeProperty[c, window, XlPredefinedAtoms.wmTransientFor, XlPredefinedAtoms.wmTransientFor, replace, x];
};

SetWMClass: PUBLIC PROC [c: Connection, window: Window, instance, class: ROPE м NIL] = {
IF class#NIL OR instance#NIL THEN {
val: ROPE м Rope.Cat[instance, "\000", class, "\000"];
ChangeProperty[c, window, XlPredefinedAtoms.wmClass, XlPredefinedAtoms.string, replace, val];
};  
};

SetWMProtocols: PUBLIC PROC [c: Connection, window: Window, protocols: LIST OF Rope.ROPE] = {
protocolsAtom: Xl.XAtom м Xl.MakeAtom[c, "WM_PROTOCOLS"];
cnt: NAT м 0;
x: REF Xl.Card32Sequence;
FOR l: LIST OF Rope.ROPE м protocols, l.rest WHILE l#NIL DO
cnt м cnt+1;
ENDLOOP;  
x м NEW[Xl.Card32Sequence[cnt]];
FOR cn: NAT IN [0..cnt) DO 
IF protocols=NIL THEN {cnt м cn; EXIT};
x[cn] м Xl.MakeAtom[c, protocols.first];
protocols м protocols.rest
ENDLOOP;  
Xl.ChangeProperty[c: c, w: window, property: protocolsAtom, type: XlPredefinedAtoms.atom, mode: replace, data: x, num: cnt];
};

WMQueryPosition: PUBLIC PROC [c: Connection] RETURNS [BOOL] = {
SELECT XlService.GetServiceProp[c, $WM] FROM
$uwm => RETURN [TRUE];
$twm => RETURN [FALSE];
$none => RETURN [FALSE];
ENDCASE => RETURN [FALSE];
};

WMMakesHeader: PUBLIC PROC [c: Connection] RETURNS [BOOL] = {
SELECT XlService.GetServiceProp[c, $WM] FROM
$uwm => RETURN [FALSE];
$twm => RETURN [TRUE];
$none => RETURN [FALSE];
ENDCASE =>  RETURN [TRUE];
};

CutBufferInit: Xl.InitializeProcType = {
cutBuffList м LIST[XlPredefinedAtoms.cutBuffer0, XlPredefinedAtoms.cutBuffer1, XlPredefinedAtoms.cutBuffer2, XlPredefinedAtoms.cutBuffer3, XlPredefinedAtoms.cutBuffer4, XlPredefinedAtoms.cutBuffer5, XlPredefinedAtoms.cutBuffer6, XlPredefinedAtoms.cutBuffer7];
FOR l: LIST OF XAtom м cutBuffList, l.rest WHILE l#NIL DO
Xl.ChangeProperty[c: c, w: FirstRoot[c], property: l.first, type: XlPredefinedAtoms.string, mode: append, data: NIL];
ENDLOOP;
};

CutBufferPush: PUBLIC PROC [c: Xl.Connection, data: Rope.ROPE, hackForXTerm: BOOL м FALSE] = {
root: Xl.Window м FirstRoot[c];
[] м XlService.GetServicePropAndInit[c, cutBuffKey, CutBufferInit];
IF ~hackForXTerm THEN {
Xl.GrabServer[c];
Xl.RotateProperties[c, root, 1, cutBuffList];
};
IF Rope.Length[data]>2000 THEN data м Rope.Substr[data, 0, 2000]; --prevent server memory overflow
Xl.ChangeProperty[c: c, w: root, property: cutBuffList.first, type: XlPredefinedAtoms.string, mode: replace, data: data];
Xl.SetSelectionOwner[c: c, selection: XlPredefinedAtoms.primary, time: Xl.currentTime];
IF ~hackForXTerm THEN Xl.UngrabServer[c];
};

CutBufferGet: PUBLIC PROC [c: Xl.Connection] RETURNS [data: Rope.ROPEмNIL] = {
root: Xl.Window м FirstRoot[c];
pr: PropertyReturnRec;
[] м XlService.GetServicePropAndInit[c, cutBuffKey, CutBufferInit];
pr м Xl.GetProperty[c: c, w: root, property: cutBuffList.first, supposedFormat: 8];
WITH pr.value SELECT FROM
r: Rope.ROPE => data м r;
ENDCASE => {}; 
};

CutBufferRotate: PUBLIC PROC [c: Xl.Connection, amount: INT м -1] = {
root: Xl.Window м FirstRoot[c];
[] м XlService.GetServicePropAndInit[c, cutBuffKey, CutBufferInit];
Xl.RotateProperties[c, root, amount, cutBuffList];
Xl.Flush[c];
};

END.

  |  
XlConventionsImpl.mesa
Copyright ╙ 1988, 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Christian Jacobi, April 13, 1988 3:02:13 pm PDT
Christian Jacobi, August 22, 1991 4:28 pm PDT
--rude but effective:
--	Clear selection; programs like xterm check for both, selections and cutbuffer.  
--	These programs will not use a selection after a cut command anymore
Э╩b  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬCЩNKЪЬ,╧kЩ/KЪЬ-Щ-ЧKШ ЪЮ	ЬШ
KЪЬDШDKШ ЧЪ╧nЬЮЬЮШ KЪЮЬШKЪЮЬШЧЪЬЮЬЮЬШKШ ЧKЪ	ЬЮЬЮЬЮЬЮЬШ,KЪЬЮЬЮЬШKШ Ъ
ЯЬЮЬЮЬQЮЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬ
ЮЬШKЪЬ
ЮЬШKЪЬЮЬШKЪЬ	ЮЬШKЪЬ	ЮЬШKЪЬЮЬШKЪЬЮЬЮЬШ0KЪЬЮЬШKЪЬЮЬШ)KЪЬЮЬШ)KЪЮЬЮЬШ.KЪЮЬЮЬШ/KЪЬЮЬШ,KЪЬЮЬШ-KЪЮЬЮЬШ0KЪЮЬЮЬШ1KЪЬЮЬШ'KЪЬЮЬШ(KЪЮЬЮЬЮЬШSKЪЬЮЬШ'KЪЬЮЬШ(KЪЮЬЮЬЮЬШSKЪЬЮЬШ'KЪЬЮЬШ)KЪЮЬЮЬЮЬШUKЪЬЮЬШ'KЪЬЮЬШ'KЪЬЮЬШ'KЪЬЮЬШ'KЪЮЬЮЬЮЬШOKЪЬЮЬШ)KЪЬЮЬШ*KЪЮЬЮЬЮЬШTЪЮЬЮЬЮЬШGKЪЬЮЬШKЪЬШKШЧKЪЬШЪЮЬ	ЮЬ	ЮШKЪЬЙШЙЧKШЧKШ Ъ
Я
ЬЮЬЮЬGЮЬЮЬШoKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬЮЬШ/KЪЬЮЬШKЪЬШKЪЮЬЮЬШ.KЪЬШKЪЮЬЮЬШ5KЪЬШKЪЮЬ ЮЬШDKЪЬШKЪЮЬ ЮЬШDKЪЬЮЬШ!KЪЬЮЬШ!KЪЮЬЮЬЮЬ ШNKЪЬШKЪЮЬЮЬШ@KЪЬШKЪЮЬ!ЮЬШFKЪЬШЪЮЬ	ЮЬ	ЮШKЪЬ~Ш~ЧKШЧKШ ЪЯЬЮЬЮЬ-ЮЬШPKЪЬcШcKЪЬШЧKШ ЪЯЬЮЬЮЬ+ЮЬШLKЪЬeШeKШKШ ЧЪЯЬЮЬЮЬ1ШLKЪЬЮЬЮЬШЪЮЬЮЬШKЪЬЮЬШKЪЬШKЪЬШЧKЪЬmШmKШKШ ЧЪ
Я
ЬЮЬЮЬ2ЮЬЮЬШXЪ
ЮЬЮЬЮЬ
ЮЬЮЬШ#KЪЬЮЬ-Ш6KЪЬ]Ш]KЪЬШЧKШKШ ЧЪЯЬЮЬЮЬ,ЮЬЮЬЮЬШ]KЪЬ9Ш9KЪЬЮЬШKЪЬЮЬШЪЮЬЮЬЮЬЮЬЮЬЮЬЮШ;KЪЬШKЪЮЬШ
ЧKЪЬЮЬШ ЪЮЬЮЬЮЬ
ЮЬШKЪЮЬЮЬЮЬЮЬШ'KЪЬ(Ш(KЪЬШKЪЮЬШ
ЧKЪЬ|Ш|KШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ?ЪЮЬ"ЮШ,KЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮЬЮЬШKЪЮЬЮЬЮЬШЧKЪЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ=ЪЮЬ"ЮШ,KЪЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ	ЮЬЮЬШKЪЮЬЮЬЮЬШЧKШKШ ЧЪЯЬШ(KЪЬЮЬёШГЪЮЬЮЬЮЬЮЬЮЬЮШ9KЪЬpЮЬШuKЪЮЬШЧKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШ^KЪЬШKЪЬCШCЪЮЬЮЬШKЪЬШKЪЬ-Ш-KШЧKЪЮЬЮЬ$╧c ШbKЪЬyШyKЪЬЩKЪЬSЩSKЩFKЪЬWШWKЪЮЬЮЬШ)KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШNKЪЬШKЪЬШKЪЬCШCKЪЬSШSЪЮЬ
ЮЬЮШKЪЬЮЬШKЪЮЬШЧKШЧKШ ЪЯЬЮЬЮЬЮЬ
ШEKЪЬШKЪЬCШCKЪЬ2Ш2KЪЬШKЪЬШЧKШ KЪЮЬШKШ Ч ЕЧ    т  %└  