Wmclient: module
{
	PATH:		con "/dis/lib/wmclient.dis";

	Resize,
	Hide,
	Help,
	OK,
	Popup,
	Plain:		con 1 << iota;
	Appl:		con Resize | Hide;

	init:		fn();
	makedrawcontext: fn(): ref Draw->Context;
	window:		fn(ctxt: ref Draw->Context, title: string, buts: int): ref Window;
	snarfput:		fn(buf: string);
	snarfget:		fn(): string;
	cursorspec:	fn(img: ref Draw->Image): string;

	Window: adt{
		display:	ref Draw->Display;
		r: Draw->Rect;		# full rectangle of window, including titlebar.
		image: ref Draw->Image;
		displayr: Draw->Rect;
		ctxt: ref Draw->Wmcontext;
		bd:		int;
		focused:	int;
		ctl:		chan of string;

		# private from here:
		titlebar:	ref Tk->Toplevel;		# XXX i wish this didn't have to be visible to the application...
		tbsize: 	Draw->Point;			# size requested by titlebar.
		tbrect:	Draw->Rect;
		screen:	ref Draw->Screen;
		buttons:	int;
		ptrfocus:	int;
		saved:	Draw->Point;			# saved origin before task

		startinput:	fn(w: self ref Window, devs: list of string);
		wmctl:	fn(w: self ref Window, request: string): string;
		settitle:	fn(w: self ref Window, name: string): string;
		reshape:	fn(w: self ref Window, r: Draw->Rect);
		onscreen:	fn(w: self ref Window, how: string);
		screenr:	fn(w: self ref Window, sr: Draw->Rect): Draw->Rect;
		imager:	fn(w: self ref Window, ir: Draw->Rect): Draw->Rect;
		pointer:	fn(w: self ref Window, p: Draw->Pointer): int;
	};

};