20060303-partial

1 files changed, 11 insertions, 0 deletions

diff --git a/module/popup.m b/module/popup.m
new file mode 100644
index 00000000..f8773acc
--- /dev/null
+++ b/module/popup.m
@@ -0,0 +1,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;
+};