code: purgatorio

ref: a5cb451b299b03f44154fac5780b6a57ca130ce0
dir: /module/tk.m/

View raw version
Tk: module
{
	PATH:	con	"$Tk";

	Toplevel: adt
	{
		display:	ref Draw->Display;
		wreq:	chan of string;
		image:	ref Draw->Image;
		ctxt:		ref Draw->Wmcontext;	# placeholder, not used by tk
		screenr:	Draw->Rect;			# writable
	};
	Border, Required, Local: con 1<<iota;
	rect:			fn(t: ref Toplevel, name: string, flags: int): Draw->Rect;

	toplevel:		fn(d: ref Draw->Display, arg: string): ref Toplevel;
	namechan:	fn(t: ref Toplevel, c: chan of string, n: string): string;
	cmd:			fn(t: ref Toplevel, arg: string): string;
	pointer:		fn(t: ref Toplevel, p: Draw->Pointer);
	keyboard:		fn(t: ref Toplevel, key: int);
	putimage:		fn(t: ref Toplevel, name: string, i, m: ref Draw->Image): string;
	getimage:		fn(t: ref Toplevel, name: string): (ref Draw->Image, ref Draw->Image, string);
	quote:		fn(s: string): string;
	color:		fn(col: string): int;
};