<> <> <> <> <> <> <<>> 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.