DIRECTORY PopUpMenu USING [RequestSelection], TerminalIO, Commander, Rope; PTest: CEDAR PROGRAM IMPORTS PopUpMenu, Commander, TerminalIO = BEGIN def: CARDINAL _ 0; Start: Commander.CommandProc = BEGIN def _ PopUpMenu.RequestSelection[ choice: LIST["first", "second", "third", "fourth", "fifth", "sixth", "seventh"], label: "Menu", default: def ]; TerminalIO.WriteRope["PopUpMenu test : "]; TerminalIO.WriteInt[def]; TerminalIO.WriteLn[]; END; TStart: Commander.CommandProc = BEGIN def _ PopUpMenu.RequestSelection[ choice: LIST["rope", "int", "char", "r", "i", "c"], label: "Test out", default: 0 ]; SELECT def FROM 1 => { r: Rope.ROPE _ TerminalIO.RequestRope["rope>"]; TerminalIO.WriteRope["["]; TerminalIO.WriteRope[r]; TerminalIO.WriteRope["]\n"]; }; 2 => { i: INT_ TerminalIO.RequestInt["int>"]; TerminalIO.WriteRope["["]; TerminalIO.WriteInt[i]; TerminalIO.WriteRope["]\n"]; }; 3 => { c: CHAR _ TerminalIO.RequestChar["char>"]; TerminalIO.WriteRope["\n["]; TerminalIO.WriteChar[c]; TerminalIO.WriteRope["]\n"]; }; 4 => { r: Rope.ROPE _ TerminalIO.RequestRope[]; TerminalIO.WriteRope["["]; TerminalIO.WriteRope[r]; TerminalIO.WriteRope["]\n"]; }; 5 => { i: INT_ TerminalIO.RequestInt[]; TerminalIO.WriteRope["["]; TerminalIO.WriteInt[i]; TerminalIO.WriteRope["]\n"]; }; 6 => { c: CHAR _ TerminalIO.RequestChar[]; i: INT _ LOOPHOLE[c, INTEGER]; TerminalIO.WriteRope["\n["]; TerminalIO.WriteChar[c]; TerminalIO.WriteInt[i]; TerminalIO.WriteRope["]\n"]; }; ENDCASE => TerminalIO.WriteRope["skipped\n"]; END; Commander.Register[ key: "p", proc: Start, doc: "Test out Menu" ]; Commander.Register[ key: "t", proc: TStart, doc: "Test out Terminal" ]; END. <--PTest.mesa --Ch. Jacobi December 27, 1983 12:51 pm ĘG˜Jšœ ™ J™'J˜šĎk ˜ Jšœ œ˜#J˜ J˜ J˜J˜—JšĎbœœ˜Jšœ$˜+Jšœ˜J˜Jšœœ˜J˜šžœ˜Jš˜˜!JšœœD˜PJ˜J˜ J˜—J˜*J˜J˜Jšœ˜—J˜šžœ˜ Jš˜˜!Jšœœ'˜3J˜J˜ J˜—šœ˜˜Jšœœ#˜/Jšœ˜Jšœ˜Jšœ˜Jšœ˜—˜Jšœœ ˜&Jšœ˜Jšœ˜Jšœ˜J˜—˜Jšœœ#˜*Jšœ˜Jšœ˜Jšœ˜Jšœ˜—˜Jšœœ˜(Jšœ˜Jšœ˜Jšœ˜Jšœ˜—˜Jšœœ˜ Jšœ˜Jšœ˜Jšœ˜J˜—˜Jšœœ˜#Jšœœœœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜—Jšœ&˜-—Jšœ˜—J˜˜J˜ J˜ J˜J˜J˜—˜J˜ J˜ J˜J˜J˜—Jšœ˜J˜—…—Š