1# pop-up menus. 2# use choicebuttons instead - it's difficult to get these right. 3Popup: module { 4 PATH: con "/dis/lib/popup.dis"; 5 init: fn(); 6# mkbutton: fn(win: ref Tk->Toplevel, w: string, a: array of string, n: int): chan of string; 7# changebutton: fn(win: ref Tk->Toplevel, w: string, a: array of string, n: int); 8# event: fn(win: ref Tk->Toplevel, e: string, a: array of string): int; 9# add: fn(a: array of string, s: string): (array of string, int); 10 post: fn(win: ref Tk->Toplevel, p: Draw->Point, a: array of string, n: int): chan of int; 11}; 12