20060303a

1 files changed, 16 insertions, 0 deletions

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;
+	};
+};