From 46439007cf417cbd9ac8049bb4122c890097a0fa Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Fri, 22 Dec 2006 20:52:35 +0000
Subject: 20060303-partial

---
 module/tkclient.m | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 module/tkclient.m

(limited to 'module/tkclient.m')

diff --git a/module/tkclient.m b/module/tkclient.m
new file mode 100644
index 00000000..7a4d3b14
--- /dev/null
+++ b/module/tkclient.m
@@ -0,0 +1,26 @@
+Tkclient: module
+{
+	PATH:		con "/dis/lib/tkclient.dis";
+
+	Resize,
+	Hide,
+	Help,
+	OK,
+	Popup,		# XXX is this useful?
+	Plain:		con 1 << iota;
+
+	Appl:		con Resize | Hide;
+
+	init:		fn();
+	makedrawcontext: fn():	ref Draw->Context;
+	toplevel:	fn(ctxt: ref Draw->Context, topconfig: string,
+				title: string, buts: int): (ref Tk->Toplevel, chan of string);
+	onscreen:		fn(top: ref Tk->Toplevel, how: string);
+	startinput:		fn(top: ref Tk->Toplevel, devs: list of string);
+	wmctl:		fn(top: ref Tk->Toplevel, request: string): string;
+	settitle:		fn(top: ref Tk->Toplevel, name: string): string;
+	handler:		fn(top: ref Tk->Toplevel, stop: chan of int);
+
+	snarfput:	fn(buf: string);
+	snarfget:	fn(): string;
+};
-- 
cgit v1.2.3