<<>> <> <> <> <> <<>> Stuff which was used in X1Seletion, implemented but then removed. It might get useful once again AddXAtomToList: PROC [list: LIST OF Xl.XAtom, atom: Xl.XAtom] RETURNS [LIST OF Xl.XAtom] = { <<--Check whether atom already contained in list>> FOR l: LIST OF Xl.XAtom Ź list, l.rest WHILE l#NIL DO IF l.first=atom THEN RETURN [list]; ENDLOOP; RETURN [CONS[atom, list]] }; GetSupportedTargets: PROC [c: Xl.Connection, ac: REF READONLY ApplicationClassRec] RETURNS [supp: LIST OF Xl.XAtom Ź NIL] = { cod: ConnectionOData Ź GetConnectionOData[c]; FOR l: LIST OF Rope.ROPE Ź ac.supportedTargets, l.rest WHILE l#NIL DO supp Ź AddXAtomToList[supp, Xl.MakeAtom[c, l.first]]; supp Ź AddXAtomToList[supp, cod.multipleXAtom]; supp Ź AddXAtomToList[supp, cod.timeStampXAtom]; supp Ź AddXAtomToList[supp, cod.targetsXAtom]; ENDLOOP; }; XAtomListToSequence: PROC [list: LIST OF Xl.XAtom] RETURNS [sq: REF Xl.Card32Sequence] = { Count: PROC [l: LIST OF Xl.XAtom, limit: INT Ź 20] RETURNS [n: INTŹ0] = { WHILE l#NIL DO IF n>=limit THEN ERROR; l Ź l.rest; n Ź n+1; ENDLOOP }; m: INT Ź 0; n: INT Ź Count[list]; sq Ź NEW[Xl.Card32Sequence[n]]; FOR l: LIST OF Xl.XAtom Ź list, l.rest WHILE l#NIL DO sq[m] Ź l.first; m Ź m+1; ENDLOOP; }; LongChangeProperty: PROC [ <> <<--Standard X arguments>> c: Xl.Connection, w: Xl.Window, property: Xl.XAtom, type: Xl.XAtom, mode: Xl.ChangePropertyMode Ź replace, --prepend not yet implemented: November 15, 1990 <<--Data to be used>> data: REF Ź NIL, -- data in standard types like in Xl.ChangeProperty start: INT Ź 0, --index of first unit in data num: INT Ź INT.LAST, --limits number of units <<--Control arguments>> maxPieceWords: INT Ź INT.LAST, --extra limit for maximum words used in single request mustBeSingleRequest: BOOL Ź FALSE, --error if requested and data too large synch: BOOL Ź FALSE --enables returning eventual errors as Mesa SIGNAL's ]; synchDetails: Xl.Details Ź NEW[Xl.DetailsRec Ź [synchronous: TRUE]]; LongChangeProperty: PUBLIC PROC [ <<--standard X arguments>> c: Xl.Connection, w: Xl.Window, property: Xl.XAtom, type: Xl.XAtom, mode: Xl.ChangePropertyMode Ź replace, --prepend not yet implemented: November 15, 1990 <<--data to be used>> data: REF Ź NIL, -- data in standard types like in Xl.ChangeProperty start: INT Ź 0, --index of first unit in data num: INT Ź INT.LAST, --limits number of units <<--control arguments>> maxPieceWords: INT Ź INT.LAST, --extra limit for maximum words used in single request mustBeSingleRequest: BOOL Ź FALSE, --error if requested and data too large synch: BOOL Ź FALSE --enables returning eventual errors as Mesa SIGNAL's ] = { requestMaxLength: INT Ź Xl.Info[c].maxRequestLength; availableNum: INT; --actual but not used number of units pu: INT; --pieces per unit pieceStart: INT Ź start; --start position of next piece pieceNum: INT; --number of units per piece IF mode=prepend THEN ERROR; --NOT YET IMPL (I doubt its usefullness) [availableNum, pu] Ź Xl.XPropInfo[data]; pieceNum Ź MIN[requestMaxLength, maxPieceWords]*pu; num Ź MIN[availableNum-start, num]; IF mustBeSingleRequest AND num>pieceNum THEN Xl.ClientError[$RequestToLong]; DO Xl.ChangeProperty[c: c, w: w, property: property, type: type, mode: mode, data: data, start: pieceStart, num: MIN[num, pieceNum], details: IF synch THEN synchDetails ELSE NIL]; IF num<=pieceNum THEN EXIT; num Ź num - pieceNum; pieceStart Ź pieceStart + pieceNum; mode Ź append; ENDLOOP };