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

(limited to 'appl/lib/tcl.m')

diff --git a/appl/lib/tcl.m b/appl/lib/tcl.m
new file mode 100644
index 00000000..4062e541
--- /dev/null
+++ b/appl/lib/tcl.m
@@ -0,0 +1,19 @@
+Tcl_Core: module {
+
+	PATH : con "/dis/lib/tcl_core.dis";
+	TclData : adt {
+		context : ref Draw->Context;
+		top : ref Tk->Toplevel;
+		lines : chan of string;
+		debug : int;
+	};
+
+	init:	fn(ctxt: ref Draw->Context, argv: list of string);
+	grab_lines : fn(new_inp,unfin : string, lines: chan of string);
+	prepass :  fn(line : string) : string;
+	evalcmd : fn(line : string,termchar : int) : string;
+	clear_error : fn();
+	set_top : fn(win:ref Tk->Toplevel);
+	finished : fn(s : string,termchar : int) : int;
+	notify : fn(num : int, s: string) : string;
+};
-- 
cgit v1.2.3