Turbo Toolbox/Turbo_Toolbox.iso/sharew/dobject/linemenu.do

Text File | 1991-07-11 | 194 b | 9 lines

/*
    demo of the Linemenu class
*/
m = new(Linemenu,1,5,5,40,54,54,[1,2,3,4,5,6],
    ["first","second","third","fourth","fifth","sixth"]);
c = choice(m);
remove(m);
? "your choice was ",c;