TestPupUpButtons.mesa
Mike Spreitzer August 14, 1986 4:20:53 pm PDT
DIRECTORY IO, PopUpButtons, Rope, ViewerIO;
TestPupUpButtons:
CEDAR
PROGRAM
IMPORTS IO, PopUpButtons, ViewerIO
=
BEGIN
log: IO.STREAM = ViewerIO.CreateViewerStreams["PopUpButtons Test"].out;
Butt: PopUpButtons.PopUpButtonProc = {
log.PutF["Got %g\n", [atom[choice]]];
};
butt: PopUpButtons.Viewer = PopUpButtons.Create[proc: Butt, choices: LIST[$Test1, $Test2, $Test3, $Test4]];
END.