<> <> <> DIRECTORY Commander, XTkWidgets; X11Hello: CEDAR PROGRAM IMPORTS Commander, XTkWidgets ~ BEGIN Hello: Commander.CommandProc ~ { label: XTkWidgets.Widget ¬ XTkWidgets.CreateLabel[text: "hello PARC"]; shell: XTkWidgets.Widget ¬ XTkWidgets.CreateShell[child: label, windowHeader: "hello world widget", standardMigration: TRUE]; XTkWidgets.RealizeShell[shell]; }; Commander.Register["X11Hello", Hello, "Open a hello world widget"]; END.