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