code: purgatorio

ref: 2459e34d77e2e21ef829c0dfaafd99433899494f
dir: /module/tkclient.m/

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