
DIRECTORY 
Commander, CommanderOps, IO, Xl, XTk, XTkWidgets;
X11ClipHack: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, IO, Xl, XTkWidgets ~ 
BEGIN

CreateInstanceCommand: Commander.CommandProc ~ {
ENABLE {
Xl.XError => CommanderOps.Failed[err.explanation];
Xl.connectionNotCreated => CommanderOps.Failed[why.reason];
};
container: XTk.Widget ~ XTkWidgets.CreateYStack[];
shell: XTk.Widget ~ XTkWidgets.CreateShell[windowHeader: "clipboard hack", className: $X11ClipHack, child: container, standardMigration: TRUE];
FOR i: INT IN [0..8) DO
XTkWidgets.AppendChild[container, XTkWidgets.CreateField[text: IO.PutFR1["%g", IO.int[i]]]];
ENDLOOP;
XTkWidgets.RealizeShell[shell];
};

Commander.Register["X11ClipHack", CreateInstanceCommand, "Creates a clip hack widget"];
END.

  <  X11ClipHack.mesa
Copyright س 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, April 24, 1991
Christian Jacobi, July 10, 1992 1:53 pm PDT

Widget with 8 editable fields.  Those fields can be reset, or pushed to, various X cut buffers.
Willie-s, January 17, 1992 11:04 am PST

‌ت  •NewlineDelimiter
–(cedarcode) styleک code™Kڑœ
دeœ7™BK™+K™,K™_K™'K™ —ڑدk	œک
Kڑœ1ک1—ڑدnœ‍œ‍کKڑ‍œ/ک6—ڑ‍کKک —ڑںœک0ڑ‍œکKڑœ2ک2Kڑœ;ک;Kک—Kڑœ2ک2Kڑœ‰‍œکڈڑ‍œ‍کKڑœ?‍œ‍œک\Kڑ‍œک—KڑœکKکKک —KڑœWکWKڑ‍œکKک — …—      [  