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