From 37da2899f40661e3e9631e497da8dc59b971cbd0 Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 17:07:39 +0000
Subject: 20060303a

---
 appl/wm/smenu.m | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 appl/wm/smenu.m

(limited to 'appl/wm/smenu.m')

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
-- 
cgit v1.2.3