diff options
Diffstat (limited to 'appl/wm/smenu.m')
| -rw-r--r-- | appl/wm/smenu.m | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/appl/wm/smenu.m b/appl/wm/smenu.m new file mode 100644 index 00000000..6002bde0 --- /dev/null +++ b/appl/wm/smenu.m @@ -0,0 +1,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); + }; +};
\ No newline at end of file |