code: 9ferno

ref: 44ce0097b612a1fefd754065bdf8d9d2e5ef60c8
dir: /libinterp/tk.c/

View raw version
#include "lib9.h"
#include "interp.h"
#include "isa.h"
#include "runt.h"
#include "draw.h"
#include "tk.h"
#include "tkmod.h"
#include "pool.h"
#include "drawif.h"
#include "keyboard.h"
#include "raise.h"
#include "kernel.h"

extern	void	tkfreetop(Heap*, int);
Type*	fakeTkTop;
static	uchar	TktypeMap[] = Tk_Toplevel_map;
int	tkstylus;
void	(*tkwiretap)(void*, char*, char*, void*, Rectangle*);

static void tktopimagedptr(TkTop*, Draw_Image*);
static char*tkputwinimage(Tk*, Draw_Image*, int);

static void
lockctxt(TkCtxt *ctxt)
{
	libqlock(ctxt->lock);
}

static void
unlockctxt(TkCtxt *ctxt)
{
	libqunlock(ctxt->lock);
}

static void
tkmarktop(Type *t, void *vw)
{
	Heap *h;
	TkVar *v;
	TkPanelimage *di;
	TkTop *top;
	Tk *w, *next;
	TkWin *tkw;

	markheap(t, vw);
	top = vw;
	// XXX do we need to lock context here??
	for(v = top->vars; v; v = v->link) {
		if(v->type == TkVchan) {
			h = D2H(v->value);
			Setmark(h);
		}
	}
	for (di = top->panelimages; di != nil; di = di->link) {
		h = D2H(di->image);
		Setmark(h);
	}
	for(w = top->windows; w != nil; w = next){
		tkw = TKobj(TkWin, w);
		if(tkw->image != nil){
			h = D2H(tkw->di);
			Setmark(h);
		}
		next = tkw->next;
	}
}

void
tkmodinit(void)
{
	builtinmod("$Tk", Tkmodtab, Tkmodlen);
	fmtinstall('v', tkeventfmt);			/* XXX */

	fakeTkTop = dtype(tkfreetop, sizeof(TkTop), TktypeMap, sizeof(TktypeMap));
	fakeTkTop->mark = tkmarktop;

	tksorttable();
}

void
Tk_toplevel(void *a)
{
	Tk *tk;
	Heap *h;
	TkTop *t;
	Tk_Toplevel *tl;
	TkWin *tkw;
	TkCtxt *ctxt;
	Display *disp;
	F_Tk_toplevel *f = a;
	void *r;

	r = *f->ret;
	*f->ret = H;
	destroy(r);
	disp = checkdisplay(f->d);

	h = heapz(fakeTkTop);
	t = H2D(TkTop*, h);
	tl = (Tk_Toplevel*)t;
	poolimmutable(h);

	t->dd = f->d;
	D2H(t->dd)->ref++;

	t->execdepth = -1;
	t->display = disp;

	tk = tknewobj(t, TKframe, sizeof(Tk)+sizeof(TkWin));
	if(tk == nil) {
		destroy(t);
		return;
	}

	tk->act.x = 0;
	tk->act.y = 0;
	tk->act.width = 1;		/* XXX why not zero? */
	tk->act.height = 1;
	tk->flag |= Tkwindow;

	tkw = TKobj(TkWin, tk);
	tkw->di = H;

	tktopopt(tk, string2c(f->arg));
	
	tk->geom = tkmoveresize;
	tk->name = tkmkname(".");
	if(tk->name == nil) {
		tkfreeobj(tk);
		destroy(t);
		return;
	}

	ctxt = tknewctxt(disp);
	if(ctxt == nil) {
		tkfreeobj(tk);
		destroy(t);
		return;
	}
	t->ctxt = ctxt;
	t->screenr = disp->image->r;
	tl->screenr = DRECT(t->screenr);

	tkw->next = t->windows;
	t->windows = tk;
	t->root = tk;
	Setmark(h);
	poolmutable(h);
	t->wreq = cnewc(&Tptr, movp, 8);
	*f->ret = (Tk_Toplevel*)t;
}

void
Tk_cmd(void *a)
{
	TkTop *t;
	Tk_Toplevel *tl;
	char *val, *e;
	F_Tk_cmd *f = a;

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop) {
		retstr(TkNotop, f->ret);
		return;
	}
	lockctxt(t->ctxt);
	t->screenr = IRECT(tl->screenr);
	val = nil;
	e = tkexec(t, string2c(f->arg), &val);
	unlockctxt(t->ctxt);
	if(e == TkNomem){
		free(val);
		error(exNomem);		/* what about f->ret? */
	}
	if(e != nil && t->errx[0] != '\0'){
		char *s = tkerrstr(t, e);

		retstr(s, f->ret);
		free(s);
	}
	else
		retstr(e == nil ? val : e, f->ret);
	if(tkwiretap != nil)
		tkwiretap(t, string2c(f->arg), val, nil, nil);
	tl->screenr = DRECT(t->screenr);
	free(val);
}

void
Tk_color(void *fp)
{
	ulong rgba;
	F_Tk_color *f = fp;
	if(tkparsecolor(string2c(f->col), &rgba) != nil)
		*f->ret = DNotacolor;
	else
		*f->ret = rgba;
}

void
Tk_rect(void *fp)
{
	F_Tk_rect *f = fp;
	Tk *tk;
	TkTop *t;
	Tk_Toplevel *tl;
	Rectangle r;
	Point o;
	int bd, flags, w, h;

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop){
		*f->ret = DRECT(ZR);
		return;
	}
	lockctxt(t->ctxt);
	t->screenr = IRECT(tl->screenr);
	tk = tklook(t, string2c(f->name), 0);
	if(tk == nil){
		*f->ret = DRECT(ZR);
		unlockctxt(t->ctxt);
		return;
	}
	o = tkposn(tk);
	flags = f->flags;
	if(flags & Tk_Local)
		o = subpt(o, tkposn(tk->env->top->root));
	if(flags & Tk_Required){
		h = tk->req.height;
		w = tk->req.width;
	}else{
		h = tk->act.height;
		w = tk->act.width;
	}
	unlockctxt(t->ctxt);
	if(w < 0)
		w = 0;
	if(h < 0)
		h = 0;
	bd = tk->borderwidth;
	if(bd < 0)
		bd = 0;
	if(flags & Tk_Border){
		r.min = o;
		r.max.x = r.min.x + w + bd + bd;
		r.max.y = r.min.y + h + bd + bd;
	}else{
		r.min.x = o.x + bd;
		r.min.y = o.y + bd;
		r.max.x = r.min.x + w;
		r.max.y = r.min.y + h;
	}
	*f->ret = DRECT(r);
	tl->screenr = DRECT(t->screenr);
}

int
tkdescendant(Tk *p, Tk *c)
{
	int n;

	if(c == nil || p->env->top != c->env->top)
		return 0;

	if (p->name != nil && c->name != nil) {
 		n = strlen(p->name->name);
		if(strncmp(p->name->name, c->name->name, n) == 0)
			return 1;
	}

	return 0;
}

void
tkenterleave(TkTop *t)
{
	Tk *fw, *ent;
	TkMouse m;
	TkTop *t1, *t2;
	TkCtxt *c;

	c = t->ctxt;
	m = c->mstate;

	if (c->mgrab != nil && (c->mgrab->flag & Tknograb)) {
		fw = tkfindfocus(t, m.x, m.y, 1);
		if (fw != c->mgrab && fw != nil && (fw->flag & Tknograb) == 0)
			fw = nil;
	} else if (c->focused) {
		fw = tkfindfocus(t, m.x, m.y, 1);
		if (fw != c->mfocus)
			fw = nil;
	} else if (c->mgrab != nil) {
		fw = tkfindfocus(t, m.x, m.y, 1);
		if (fw != nil) {
			if (!tkdescendant(c->mgrab, fw) && !(fw->flag & c->mgrab->flag & Tknograb))
				fw = nil;
		}
	} else if (m.b == 0)
		fw = tkfindfocus(t, m.x, m.y, 0);
	else if (tkfindfocus(t, m.x, m.y, 1) == c->entered)
		return;
	else
		fw = nil;

 	if (c->entered == fw)
		return;

	t1 = t2 = nil;
	if (c->entered != nil) {
		ent = c->entered;
		t1 = ent->env->top;
		c->entered = nil;
		tkdeliver(ent, TkLeave, nil);
	}

	if (fw != nil) {
		t2 = fw->env->top;
		c->entered = fw;
		tkdeliver(fw, TkEnter, &m);
	}
	if (t1 != nil)
		tkupdate(t1);
	if (t2 != nil && t1 != t2)
		tkupdate(t2);
}

void
Tk_pointer(void *a)
{
	static int buttonr[] = {TkButton1R, TkButton2R, TkButton3R, TkButton4R, TkButton5R, TkButton6R};
	static int buttonp[] = {TkButton1P, TkButton2P, TkButton3P, TkButton4P, TkButton5P, TkButton6P};
	Tk *fw, *target, *dest, *ent;
	TkMouse m;
	TkCtxt *c;
	TkTop *t, *ot;
	Tk_Toplevel *tl;
	int d, dtype, etype;
	F_Tk_pointer *f = a;
	int b, lastb, inside;

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop)
		return;

	c = t->ctxt;

	/* ignore no-button-motion for emulated stylus input */
	if(tkstylus && c->mstate.b == 0 && (f->p.buttons&0x1f)==0)
		return;

	lockctxt(c);
//if (f->p.buttons != 0 || c->mstate.b != 0)
//print("tkmouse %d [%d %d], focused %d[%s], grab %s, entered %s\n",
//	f->p.buttons, f->p.xy.x, f->p.xy.y, c->focused, tkname(c->mfocus), tkname(c->mgrab), tkname(c->entered));
	/*
	 * target is the widget that we're deliver the mouse event to.
	 * inside is true if the mouse point is located inside target.
	 */
	t->screenr = IRECT(tl->screenr);
	inside = 1;
	if (c->mgrab != nil && (c->mgrab->flag & Tknograb)) {
		fw = tkfindfocus(t, f->p.xy.x, f->p.xy.y, 1);
		if (fw != nil && (fw->flag & Tknograb))
			target = fw;
		else {
			target = c->mgrab;
			inside = 0;
		}
	} else if (c->focused) {
		if (c->mfocus != nil) {
			fw = tkfindfocus(t, f->p.xy.x, f->p.xy.y, 1);
			if (fw != c->mfocus)
				inside = 0;
		}
		target = c->mfocus;
	} else if (c->mgrab != nil && (c->mgrab->flag & Tkdisabled) == 0) {
		/*
		 * XXX this isn't quite right, as perhaps we should do a tkinwindow()
		 * (below the grab).
		 * so that events to containers underneath the grab arrive
		 * via the containers (as is usual)
		 */
		fw = tkfindfocus(t, f->p.xy.x, f->p.xy.y, 1);
		if (fw != nil && tkdescendant(c->mgrab, fw))
			target = fw;
		else {
			target = c->mgrab;
			inside = 0;
		}
	} else
		target = tkfindfocus(t, f->p.xy.x, f->p.xy.y, 0);

	lastb = c->mstate.b;
	c->mstate.x = f->p.xy.x;
	c->mstate.y = f->p.xy.y;
	c->mstate.b = f->p.buttons & 0x1f;		/* Just the buttons */
	m = c->mstate;

	/* XXX if the mouse is being moved with the buttons held down
	 * and we've no mfocus and no mgrab then ignore
	 * the event as our original target has gone away (or never existed)
	 */
	if (lastb && m.b && !c->focused && c->mgrab == nil)
		target = nil;

	if (target != c->entered || (c->entered != nil && !inside)) {
		if (c->entered != nil) {
			fw = c->entered;
			c->entered =  nil;
			tkdeliver(fw, TkLeave, nil);
			if (target == nil || fw->env->top != target->env->top)
				tkupdate(fw->env->top);
		}
		if (inside) {
			c->entered = target;
			tkdeliver(target, TkEnter, &m);
		}
	}

	dest = nil;
	if (target != nil) {
		etype = 0;
		dtype = 0;
		if(f->p.buttons & (1<<8))		/* Double */
			dtype = TkDouble;
	
		d = lastb ^ m.b;
		if (d)	{
			/* cancel any autorepeat, notifying existing client */
			tkrepeat(nil, nil, nil, 0, 0);
			if (d & ~lastb & 1)		/* button 1 potentially takes the focus */
				tkdeliver(target, TkTakefocus|TkButton1P, &m);
		}
		for(b=0; b<nelem(buttonp); b++){
			if(d & (1<<b)){
				etype = buttonr[b];
				if(m.b & (1<<b))
					etype = buttonp[b]|dtype;
				dest = tkdeliver(target, etype, &m);
			}
		}
		if(tkstylus && m.b==0) {
			if ((ent = c->entered) != nil) {
				c->entered = nil;
				ot = ent->env->top;
				tkdeliver(ent, TkLeave, nil);
				if (ot != target->env->top)
					tkupdate(ot);
			}
		} else if(etype == 0) {
			etype = TkMotion;
			for(b = 0; b<nelem(buttonp); b++)
				if (m.b & (1<<b))
					etype |= buttonp[b];
			tkdeliver(target, etype, &m);
		}
		if (m.b != 0) {
			if (lastb == 0 && !c->focused) {		/* (some deliver might have grabbed it...) */
				if (dest == nil)
					dest = target;
				if ((dest->flag & Tknograb) == 0) {
					c->focused = 1;
					c->mfocus = dest;
				}
			}
		} else {
			c->focused = 0;
			c->mfocus = nil;
			if (lastb != 0)
				tkenterleave(t);
		}
		tkupdate(target->env->top);
	} else if (c->focused && m.b == 0) {
		c->focused = 0;
		tkenterleave(t);
	}
	tl->screenr = DRECT(t->screenr);
	unlockctxt(c);
}

void
Tk_keyboard(void *a)
{
	Tk *grab;
	TkTop *t;
	Tk_Toplevel *tl;
	TkCtxt *c;
	F_Tk_keyboard *f = a;

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop)
		return;
	c = t->ctxt;
	if (c == nil)
		return;
	lockctxt(c);
	t->screenr = IRECT(tl->screenr);
	if (c->tkmenu != nil)
		grab = c->tkmenu;
	else
		grab = c->tkkeygrab;
	if(grab == nil){
		unlockctxt(c);
		return;
	}

	t = grab->env->top;
	tkdeliver(grab, TkKey|TKKEY(f->key), nil);
	tkupdate(t);
	tl->screenr = DRECT(t->screenr);
	unlockctxt(c);
}

TkVar*
tkmkvar(TkTop *t, char *name, int type)
{
	TkVar *v;

	for(v = t->vars; v; v = v->link)
		if(strcmp(v->name, name) == 0)
			return v;

	if(type == 0)
		return nil;

	v = malloc(sizeof(TkVar)+strlen(name)+1);
	if(v == nil)
		return nil;
	strcpy(v->name, name);
	v->link = t->vars;
	t->vars = v;
	v->type = type;
	v->value = nil;
	if(type == TkVchan)
		v->value = H;
	return v;
}

void
tkfreevar(TkTop *t, char *name, int swept)
{
	TkVar **l, *p;

	if(name == nil)
		return;
	l = &t->vars;
	for(p = *l; p != nil; p = p->link) {
		if(strcmp(p->name, name) == 0) {
			*l = p->link;
			switch(p->type) {
			default:
				free(p->value);
				break;
			case TkVchan:
				if(!swept)
					destroy(p->value);
				break;
			}
			free(p);
			return;
		}
		l = &p->link;
	}
}

void
Tk_namechan(void *a)
{
	Heap *h;
	TkVar *v;
	TkTop *t;
	Tk_Toplevel *tl;
	char *name;
	F_Tk_namechan *f = a;

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop) {
		retstr(TkNotop, f->ret);
		return;
	}
	if(f->c == H) {
		retstr("nil channel", f->ret);
		return;
	}
	name = string2c(f->n);
	if(name[0] == '\0') {
		retstr(TkBadvl, f->ret);
		return;
	}

	lockctxt(t->ctxt);
	t->screenr = IRECT(tl->screenr);
	v = tkmkvar(t, name, TkVchan);
	if(v == nil) {
		unlockctxt(t->ctxt);
		retstr(TkNomem, f->ret);
		return;
	}
	if(v->type != TkVchan) {
		unlockctxt(t->ctxt);
		retstr(TkNotvt, f->ret);
		return;
	}
	destroy(v->value);
	v->value = f->c;
	tl->screenr = DRECT(t->screenr);
	unlockctxt(t->ctxt);
	h = D2H(v->value);
	h->ref++;
	Setmark(h);
	retstr("", f->ret);
}

void
Tk_quote(void *a)
{
	String *s, *ns;
	F_Tk_quote *f;
	void *r;
	int c, i, need, len, userune, last, n;
	Rune *sr;
	char *sc;

	f = a;

	r = *f->ret;
	*f->ret = H;
	destroy(r);

	s = f->s;
	if(s == H){
		retstr("{}", f->ret);
		return;
	}
	len = s->len;
	userune = 0;
	if(len < 0) {
		len = -len;
		userune = 1;
	}
	need = len+2;
	for(i = 0; i < len; i++) {
		c = userune? s->Srune[i]: s->Sascii[i];
		if(c == '{' || c == '}' || c == '\\')
			need++;
	}
	if(userune) {
		ns = newrunes(need);
		sr = ns->Srune;
		*sr++ = '{';
		last = 0;
		for(i = 0;; i++) {
			if(i >= len || (c = s->Srune[i]) == '{' || c == '}' || c == '\\'){
				n = i-last;
				if(n) {
					memmove(sr, &s->Srune[last], n*sizeof(Rune));
					sr += n;
				}
				if(i >= len)
					break;
				*sr++ = '\\';
				last = i;
			}
		}
		*sr = '}';
	} else {
		ns = newstring(need);
		sc = ns->Sascii;
		*sc++ = '{';
		last = 0;
		for(i = 0;; i++) {
			if(i >= len || (c = s->Sascii[i]) == '{' || c == '}' || c == '\\'){
				n = i-last;
				if(n) {
					memmove(sc, &s->Sascii[last], n);
					sc += n;
				}
				if(i >= len)
					break;
				*sc++ = '\\';
				last = i;
			}
		}
		*sc= '}';
	}
	*f->ret = ns;
}

static void
tkreplimg(TkTop *t, Draw_Image *f, Draw_Image *m, Image **ximg)
{
	Display *d;
	Image *cimg, *cmask, *new;

	cimg = lookupimage(f);
	d = t->display;
	if(cimg == nil || cimg->screen != nil || cimg->display != d)
		return;
	cmask = lookupimage(m);
	if(cmask != nil && (cmask->screen != nil || cmask->display != d))
		return;

	if (cmask == nil)
		new = allocimage(d, Rect(0, 0, Dx(cimg->r), Dy(cimg->r)), cimg->chan, 0, DNofill);
	else {
		if(cmask->screen != nil || cmask->display != d)
			return;
		new = allocimage(d, Rect(0, 0, Dx(cimg->r), Dy(cimg->r)), RGBA32, 0, DTransparent);
	}
	if(new == nil)
		return;
	draw(new, new->r, cimg, cmask, cimg->r.min);
	if(tkwiretap != nil)
		tkwiretap(t, "replimg", nil, cimg, &cimg->r);
	if(*ximg != nil)
		freeimage(*ximg);
	*ximg = new;
}

static char*
tkaddpanelimage(TkTop *t, Draw_Image *di, Image **i)
{
	TkPanelimage *pi;

	if (di == H) {
		*i = 0;
		return nil;
	}

	*i = lookupimage(di);
	if (*i == nil || (*i)->display != t->display)
		return TkNotwm;

	for (pi = t->panelimages; pi != nil; pi = pi->link) {
		if (pi->image == di) {
			pi->ref++;
			return nil;
		}
	}

	pi = malloc(sizeof(TkPanelimage));
	if (pi == nil)
		return TkNomem;
	pi->image = di;
	D2H(di)->ref++;
	pi->ref = 1;
	pi->link = t->panelimages;
	t->panelimages = pi;
	return nil;
}

void
tkdelpanelimage(TkTop *t, Image *i)
{
	TkPanelimage *pi, *prev;
	int locked;

	if (i == nil)
		return;

	prev = nil;
	for (pi = t->panelimages; pi != nil; pi = pi->link) {
		if (lookupimage(pi->image) == i)
			break;
		prev = pi;
	}
	if (pi == nil || --pi->ref > 0)
		return;
	if (prev)
		prev->link = pi->link;
	else
		t->panelimages = pi->link;
	if (D2H(pi->image)->ref == 1) {		/* don't bother locking if it's not going away */
		locked = lockdisplay(t->display);
		destroy(pi->image);
		if (locked)
			unlockdisplay(t->display);
	}
		
	free(pi);
}

void
Tk_putimage(void *a)
{
	TkTop *t;
	Tk_Toplevel *tl;
	TkImg *tki;
	Image *i, *m, *oldi, *oldm;
	int locked, found, reqid, n;
	char *words[2];
	Display *d;
	F_Tk_putimage *f;
	void *r;
	char *name, *e;
	Tk *tk;

	f = a;

	r = *f->ret;
	*f->ret = H;
	destroy(r);

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop) {
		retstr(TkNotop, f->ret);
		return;
	}

	if(f->i == H) {
		retstr(TkBadvl, f->ret);
		return;
	}

	name = string2c(f->name);
	lockctxt(t->ctxt);
	t->screenr = IRECT(tl->screenr);
	e = nil;
	found = 0;
	if(name[0] == '.'){
		n = getfields(name, words, nelem(words), 1, " ");
		reqid = -1;
		if(n > 1){
			reqid = atoi(words[1]);
			name = words[0];
		}
		if((tk = tklook(t, name, 0)) != nil){
			if(tk->type == TKchoicebutton){
				tk = tkfindchoicemenu(tk);
				if(tk == nil)
					goto Error;
			}
			if(tk->type == TKframe || tk->type == TKmenu){
				if((tk->flag & Tkwindow) == 0){
					e = TkNotwm;
					goto Error;
				}
				e = tkputwinimage(tk, f->i, reqid);
				found = 1;
			} else
			if(tk->type == TKpanel){
				if(n > 1){
					e = TkBadvl;
					goto Error;
				}
				e = tkaddpanelimage(t, f->i, &i);
				if(e != nil)
					goto Error;
				e = tkaddpanelimage(t, f->m, &m);
				if(e != nil){
					tkdelpanelimage(t, i);
					goto Error;
				}
				tkgetpanelimage(tk, &oldi, &oldm);
				tkdelpanelimage(t, oldi);
				tkdelpanelimage(t, oldm);
				tksetpanelimage(tk, i, m);
				tkdirty(tk);
				found = 1;
			}
		}
	}
	if(!found){
		/* XXX perhaps we shouldn't ever do this if name begins with '.'? */
		tki = tkname2img(t, name);
		if(tki == nil) {
			e = TkBadvl;
			goto Error;
		}
	
		d = t->display;
		locked = lockdisplay(d);
		tkreplimg(t, f->i, f->m, &tki->img);
		if(locked)
			unlockdisplay(d);
	
		tksizeimage(t->root, tki);
	}
Error:
	tl->screenr = DRECT(t->screenr);
	unlockctxt(t->ctxt);
	if(e != nil)
		retstr(e, f->ret);
	return;
}

Draw_Image*
tkimgcopy(TkTop *t, Image *cimg)
{
	Image *new;
	Display *dp;
	Draw_Image *i;

	if(cimg == nil)
		return H;

	dp = t->display;
	new = allocimage(dp, cimg->r, cimg->chan, cimg->repl, DNofill);
	if(new == nil)
		return H;
	new->clipr = cimg->clipr;

	drawop(new, new->r, cimg, nil, cimg->r.min, S);
	if(tkwiretap != nil)
		tkwiretap(t, "imgcopy", nil, cimg, &cimg->r);

	i = mkdrawimage(new, H, t->dd, nil);
	if(i == H)
		freeimage(new);

	return i;
}

void
Tk_getimage(void *a)
{
	Tk *tk;
	char *n;
	TkImg *i;
	TkTop *t;
	Tk_Toplevel *tl;
	int locked;
	Display *d;
	F_Tk_getimage *f;
	void *r;
	void (*getimgs)(Tk*, Image**, Image**);
	Image *image, *mask;

	f = a;

	r = f->ret->t0;
	f->ret->t0 = H;
	destroy(r);
	r = f->ret->t1;
	f->ret->t1 = H;
	destroy(r);
	r = f->ret->t2;
	f->ret->t2 = H;
	destroy(r);

	t = (TkTop*)f->t;
	tl = (Tk_Toplevel*)t;
	if(t == H || D2H(t)->t != fakeTkTop) {
		retstr(TkNotop, &f->ret->t2);
		return;
	}
	d = t->ctxt->display;
	n = string2c(f->name);
	lockctxt(t->ctxt);
	t->screenr = IRECT(tl->screenr);
	i = tkname2img(t, n);
	if (i != nil) {
		image = i->img;
		mask = nil;
	} else {
		tk = tklook(t, n, 0);
		if (tk == nil || (getimgs = tkmethod[tk->type]->getimgs) == nil) {
			unlockctxt(t->ctxt);
			retstr(TkBadvl, &f->ret->t2);
			return;
		}
		getimgs(tk, &image, &mask);
	}
	locked = lockdisplay(d);
	f->ret->t0 = tkimgcopy(t, image);
	if (mask != nil)
		f->ret->t1 = tkimgcopy(t, mask);
	if (locked)
		unlockdisplay(d);
	tl->screenr = DRECT(t->screenr);
	unlockctxt(t->ctxt);
}

void
tkfreetop(Heap *h, int swept)
{
	TkTop *t;
	Tk *f;
	TkImg *i, *nexti;
	TkVar *v, *nextv;
	int wgtype;
	void *r;
	TkPanelimage *pi, *nextpi;

	t = H2D(TkTop*, h);
	lockctxt(t->ctxt);

	if(swept) {
		t->di = H;
		t->dd = H;
		t->wreq = H;
		t->wmctxt = H;
	}

	t->windows = nil;

	for(f = t->root; f; f = f->siblings) {
		f->flag |= Tkdestroy;
		tkdeliver(f, TkDestroy, nil);
		if(f->destroyed != nil)
			f->destroyed(f);
	}

	for(f = t->root; f; f = t->root) {
		t->root = f->siblings;
		if(swept)
			f->flag |= Tkswept;
		tkfreeobj(f);
	}

	for(v = t->vars; v; v = nextv) {
		nextv = v->link;
		switch(v->type) {
		default:
			free(v->value);
			break;
		case TkVchan:
			if(!swept)
				destroy(v->value);
			break;
		}
		free(v);
	}

	for (pi = t->panelimages; pi; pi = nextpi) {
		if (!swept)
			destroy(pi->image);
		nextpi = pi->link;
		free(pi);
	}

	for(i = t->imgs; i; i = nexti) {
		if(i->ref != 1)
			abort();
		nexti = i->link;
		tkimgput(i);
	}
	/* XXX free images inside widgets */

	for(wgtype = 0; wgtype < TKwidgets; wgtype++)
		if(t->binds[wgtype])
			tkfreebind(t->binds[wgtype]);

	unlockctxt(t->ctxt);
	/* XXX should we leave it locked for this bit? */
	tkfreectxt(t->ctxt);
	if(!swept) {
		r = t->di;
		t->di = H;
		destroy(r);

		r = t->dd;
		t->dd = H;
		destroy(r);

		r = t->wreq;
		t->wreq = H;
		destroy(r);

		r = t->wmctxt;
		t->wmctxt = H;
		destroy(r);
	}
}

static void
tktopimagedptr(TkTop *top, Draw_Image *di)
{
	if(top->di != H){
		destroy(top->di);
		top->di = H;
	}
	if(di == H)
		return;
	D2H(di)->ref++;
	top->di = di;
}

static void
tkfreewinimage(TkWin *w)
{
	destroy(w->di);
	w->image = nil;
	w->di = H;
}

static int
tksetwindrawimage(Tk *tk, Draw_Image *di)
{
	TkWin *tkw;
	char *name;
	Image *i;
	int locked;
	int same;

	tkw = TKobj(TkWin, tk);

	same = tkw->di == di;
	if(!same)
		if(tkw->image != nil)
			destroy(tkw->di);
	if(di == H){
		tkw->di = H;
		tkw->image = nil;
		return same;
	}
	tkw->di = di;
	i = lookupimage(di);
	tkw->image = i;

	locked = lockdisplay(i->display);
	if(originwindow(i, ZP, i->r.min) == -1)
		print("tk originwindow failed: %r\n");
	di->r = DRECT(i->r);
	di->clipr = DRECT(i->clipr);
	if(locked)
		unlockdisplay(i->display);

	if(!same){
		D2H(di)->ref++;
		if(tk->name){
			name = tk->name->name;
			if(name[0] == '.' && name[1] == '\0')
				tktopimagedptr(tk->env->top, tkw->di);
		}
	}
	return same;
}

void
tkdestroywinimage(Tk *tk)
{
	TkWin *tkw;
	TkTop *top;
	char *name;

	assert(tk->flag & Tkwindow);
	tkw = TKobj(TkWin, tk);
	top = tk->env->top;

	if(tkw->image != nil && !(tk->flag & Tkswept))
		destroy(tkw->di);
	tkw->di = H;
	tkw->image = nil;
	if(tk->name == nil)
		name = tkw->cbname;
	else
		name = tk->name->name;
	if(name[0] == '.' && name[1] == '\0' && !(tk->flag & Tkswept))
		tktopimagedptr(top, H);
	tkw->reqid++;
	tkwreq(top, "delete %s", name);
}

static char*
tkputwinimage(Tk *tk, Draw_Image *di, int reqid)
{
	TkWin *tkw;
	TkTop *top;
	Image *i;
	int bw2, prop, resize;
	Rectangle req;

	top = tk->env->top;
	tkw = TKobj(TkWin, tk);
	i = lookupimage(di);
	if (i == nil || i->display != top->display)
		return TkNotwm;

	if(reqid != -1 && reqid < tkw->reqid)
		return "!request out of date";

	bw2 = 2*tk->borderwidth;
	req.min.x = tkw->req.x;
	req.min.y = tkw->req.y;
	req.max.x = req.min.x + tk->act.width + bw2;
	req.max.y = req.min.y + tk->act.height + bw2;

	resize = 0;
	if(eqrect(req, i->r) == 0){
		/*
		 * if we'd sent a request and our requested rect has now changed,
		 * then resend the request (via tkupdatewinsize),
		 * otherwise accept the new size and repack if necessary
		 */
		if(reqid != -1 && tkw->changed){
			if(tkupdatewinsize(tk))
				return "!requested size has changed";

		} else if(Dx(req) != Dx(i->r) || Dy(req) != Dy(i->r)){
			tk->flag |= Tksuspended;
			tk->act.width = Dx(i->r) - bw2;
			tk->act.height = Dy(i->r) - bw2;
			tk->req = tk->act;
			prop = tk->flag & Tknoprop;
			tk->flag |= Tknoprop;
			tkpackqit(tk);
			tkrunpack(top);
			tk->flag = (tk->flag & ~Tknoprop) | prop;
			resize = 1;
		}
	}
	if(reqid == -1)
		tkw->reqid++;		/* invalidate all buffered requests. */
	tkw->act = i->r.min;
	tkw->req = tkw->act;
	tkw->changed = 0;
	tk->req.width = Dx(i->r) - bw2;
	tk->req.height = Dy(i->r) - bw2;
	tk->act = tk->req;
	if((tk->flag & Tkmapped) == 0){
		tk->flag |= Tkmapped;
		tkdeliver(tk, TkMap, nil);
	}
	if(tksetwindrawimage(tk, di) == 0 || resize){
		tk->dirty = tkrect(tk, 1);
		tk->flag |= Tkrefresh;
	}
	tk->flag &= ~Tksuspended;

	lookupimage(di);			/* make sure limbo image coords correspond correctly */
	tkupdate(top);
	return nil;
}

void
tkwreq(TkTop *top, char *fmt, ...)
{
	char *buf;
	va_list arg;

	va_start(arg, fmt);
	buf = vsmprint(fmt, arg);
	va_end(arg);
	tktolimbo(top->wreq, buf);
	free(buf);
}

int
tktolimbo(void *var, char *msg)
{
	void *ptrs[1];
	int r;

	if(var==H)
		return 0;
	ptrs[0] = H;
	retstr(msg, (String**) &ptrs[0]);
	r = csendalt((Channel *)var, ptrs, &Tptr, TkMaxmsgs);
	return r;
}

static void
hexify(char *buf, int n)
{
	static char hex[] = "0123456789abcdef";
	uchar b;
	char *dp, *fp;
	fp = buf+n;
	dp = buf+n*2;
	*dp-- = '\0';
	while(fp-- > buf){
		b = (uchar)*fp;
		*dp-- = hex[b & 0xf];
		*dp-- = hex[b >> 4];
	}
}

char*
tkcursorswitch(TkTop *top, Image *i, TkImg *img)
{
	Image *ci, *scratch;
	char *buf;
	Rectangle r;
	int n, maxb, nb;

	if(i == nil && img == nil){
		tktolimbo(top->wreq, "cursor");
		return nil;
	}

	if(img != nil){
		if(img->cursor){
			tktolimbo(top->wreq, img->cursor);
			return nil;
		}
		i = img->img;
	}
	if(i->depth != 1 || Dx(i->r)*Dy(i->r) > 16000 || Dy(i->r)%8 != 0 || Dy(i->r)%2 != 0)
		return TkBadcursor;
	/*
	 * readjust image, inferring hotspot from origin.
	 */
	if(i->r.min.x != 0 || i->r.min.y != 0){
		r.min.x = 0;
		r.min.y = 0;
		r.max.x = Dx(i->r);
		r.max.y = Dy(i->r);
		scratch = allocimage(i->display, r, GREY1, 0, DNofill);
		if(scratch == nil)
			return TkNomem;
		draw(scratch, r, i, nil, i->r.min);
		ci = scratch;
	}else{
		scratch = nil;
		ci = i;
	}
	nb = ci->r.max.x/8 * ci->r.max.y;
	maxb = 7 + 12*4 + 2*nb + 1;
	buf = mallocz(maxb, 0);
	if(buf == nil)
		return TkNomem;
	n = sprint(buf, "cursor %d %d %d %d ", i->r.min.x, i->r.min.y, ci->r.max.x, ci->r.max.y);
	unloadimage(ci, ci->r, (uchar*)buf+n, maxb-n);
	hexify(buf+n, nb);
	tktolimbo(top->wreq, buf);
	if(img != nil){
		free(img->cursor);
		img->cursor = buf;
	}
	freeimage(scratch);
	return nil;
}

void
tkcursorset(TkTop *t, Point p)
{
	tkwreq(t, "ptr %d %d", p.x, p.y);
}