summaryrefslogtreecommitdiff
path: root/appl/spree/lib/commandline.m
diff options
context:
space:
mode:
Diffstat (limited to 'appl/spree/lib/commandline.m')
-rw-r--r--appl/spree/lib/commandline.m16
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;
+ };
+};