Wmsrv: module{	PATH: con "/dis/lib/wmsrv.dis"; 	init:	fn(): 	(chan of (string, chan of (string, ref Draw->Wmcontext)),		chan of (ref Client, chan of string),		chan of (ref Client, array of byte, Sys->Rwrite)); 	find:	fn(p: Draw->Point): ref Client;	top:	fn(): ref Client; 	Window: adt {		tag:	string;		r:	Draw->Rect;		img:	ref Draw->Image;	}; 	Client: adt {		kbd:		chan of int;		ptr:		chan of ref Draw->Pointer;		ctl:		chan of string;		stop:		chan of int;		flags:	int;			# general purpose.		cursor:	string;		# hack.		wins:	list of ref Window;		znext:	cyclic ref Client; 		# private:		images:	chan of (ref Draw->Point, ref Draw->Image, chan of int);		id:		int;				# index into clients array		fid:		int;		token:	int;		wmctxt:	ref Draw->Wmcontext; 		window:	fn(c: self ref Client, tag: string): ref Window;		contains:	fn(c: self ref Client, p: Draw->Point): int;		image:	fn(c: self ref Client, tag: string):	ref Draw->Image;		setimage:	fn(c: self ref Client, tag: string,  i: ref Draw->Image): int;	# only in response to some msgs.		setorigin:	fn(c: self ref Client, tag: string, o: Draw->Point): int;		# only in response to some msgs.		top:		fn(c: self ref Client);			# bring to top.		bottom:	fn(c: self ref Client);			# send to bottom.		hide:		fn(w: self ref Client);		# move offscreen.		unhide:	fn(w: self ref Client);		# move onscreen.		remove:	fn(w: self ref Client);	};};