20060303a

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