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/spree/lib/commandline.m | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 appl/spree/lib/commandline.m

(limited to 'appl/spree/lib/commandline.m')

diff --git a/appl/spree/lib/commandline.m b/appl/spree/lib/commandline.m
new file mode 100644
index 00000000..7fcfa965
--- /dev/null
+++ b/appl/spree/lib/commandline.m
@@ -0,0 +1,16 @@
+Commandline: module {
+	init:			fn();
+
+	PATH:		con "/dis/spree/lib/commandline.dis";
+	Cmdline: adt {
+		new:			fn(win: ref Tk->Toplevel, w, textopts: string): (ref Cmdline, chan of string);
+		event:		fn(cmdl: self ref Cmdline, e: string): list of string;
+		tagaddtext:	fn(cmdl: self ref Cmdline, t: list of (string, string));
+		addtext:		fn(cmdl: self ref Cmdline, txt: string);
+		focus:		fn(cmdl: self ref Cmdline);
+		maketag:		fn(cmdl: self ref Cmdline, name, options: string);
+
+		w: string;
+		top: ref Tk->Toplevel;
+	};
+};
-- 
cgit v1.2.3