X11Hello.mesa
Copyright Ó 1989, 1990, 1991 by Xerox Corporation. All rights reserved.
Christian Jacobi, August 14, 1991 3:38 pm PDT
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.