blob: 6002bde0f8a015dad85e314dd8638422c44f347b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Smenu: module
{
PATH: con "/dis/wm/smenu.dis";
Scrollmenu: adt{
# private data
m, n, o: int;
timer: int;
name: string;
labs: array of string;
c: chan of string;
t: ref Tk->Toplevel;
new: fn(t: ref Tk->Toplevel, name: string, labs: array of string, entries: int, origin: int): ref Scrollmenu;
post: fn(m: self ref Scrollmenu, x: int, y: int, resc: chan of string, prefix: string);
destroy: fn(m: self ref Scrollmenu);
};
};
|
