#include <lib9.h>#include <kernel.h>#include "draw.h"#include "tk.h"#include "frame.h" char*tkframe(TkTop *t, char *arg, char **ret){	Tk *tk;	char *e;	TkOptab tko[2];	TkName *names; 	tk = tknewobj(t, TKframe, sizeof(Tk));	if(tk == nil)		return TkNomem; 	tko[0].ptr = tk;	tko[0].optab = tkgeneric;	tko[1].ptr = nil;	names = nil; 	e = tkparse(t, arg, tko, &names);	if(e != nil) {		tkfreeobj(tk);		return e;	}	tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd)); 	e = tkaddchild(t, tk, &names); 	tkfreename(names);	if(e != nil) {		tkfreeobj(tk);		return e;	}	tk->name->link = nil; 	return tkvalue(ret, "%s", tk->name->name);} /* * Also used for windows, menus, separators */voidtkfreeframe(Tk *tk){	TkWin *tkw; 	if((tk->flag & Tkwindow) == 0)		return; 	if(tk->type == TKmenu) {		tkw = TKobj(TkWin, tk);		free(tkw->postcmd);		free(tkw->cascade);		free(tkw->cbname);	} 	tkunmap(tk);		/* XXX do this only if (tk->flag&Tkswept)==0 ?? */} char*tkdrawframe(Tk *tk, Point orig){		int bw;	Point p;	Image *i;	Tk *f;	Rectangle r, slaver;		/* dribbling, whipping or just square? */ 	i = tkimageof(tk);	if(i == nil)		return nil;		p.x = orig.x + tk->act.x + tk->borderwidth;	p.y = orig.y + tk->act.y + tk->borderwidth; 	draw(i, rectaddpt(tk->dirty, p), tkgc(tk->env, TkCbackgnd), nil, ZP); 	/*	 * doesn't matter about drawing TKseparator	 * oblivious of dirty rect, as it never has any children to sully anyway	 */	if(tk->type == TKseparator) {		r = rectaddpt(tkrect(tk, 1), p);		r.min.x += 4;		r.max.x -= 4;		r.min.y += (Dy(r) - 2)/2;		r.max.y = r.min.y+1;		draw(i, r, tkgc(tk->env, TkCbackgnddark), nil, ZP);		r.min.y += 1;		r.max.y += 1;		draw(i, r, tkgc(tk->env, TkCbackgndlght), nil, ZP);		return nil;	} 	/*	 * make sure all the slaves inside the area we've just drawn	 * refresh themselves properly.	 */	for(f = tk->slave; f; f = f->next) {		bw = f->borderwidth;		slaver.min.x = f->act.x;		slaver.min.y = f->act.y;		slaver.max.x = slaver.min.x + f->act.width + 2*bw;		slaver.max.y = slaver.min.y + f->act.height + 2*bw;		if (rectclip(&slaver, tk->dirty)) {			f->flag |= Tkrefresh;			slaver = rectsubpt(slaver, Pt(f->act.x + bw, f->act.y + bw));			combinerect(&f->dirty, slaver);		}	}	p.x -= tk->borderwidth;	p.y -= tk->borderwidth; 	if (!rectinrect(tk->dirty, tkrect(tk, 0)))		tkdrawrelief(i, tk, p, TkCbackgnd, tk->relief);	return nil;} /* Frame commands */ static char*tkframecget(Tk *tk, char *arg, char **val){	TkOptab tko[3]; 	tko[0].ptr = tk;	tko[0].optab = tkgeneric;	tko[1].ptr = nil;	if(tk->flag & Tkwindow){		tko[1].ptr = TKobj(TkWin, tk);		tko[1].optab = tktop;		tko[2].ptr = nil;	} 	return tkgencget(tko, arg, val, tk->env->top);} static char*tkframeconf(Tk *tk, char *arg, char **val){	char *e;	TkGeom g;	int bd;	Point oldp;	TkOptab tko[3];	TkWin *tkw; 	tko[0].ptr = tk;	tko[0].optab = tkgeneric;	tko[1].ptr = nil;	tkw = nil;	if(tk->flag & Tkwindow) {		tkw = TKobj(TkWin, tk);		tko[1].ptr = tkw;		tko[1].optab = tktop;		tko[2].ptr = nil;		oldp = tkw->act;	} 	if(*arg == '\0')		return tkconflist(tko, val); 	if(tkw != nil){		/*		 * see whether only -x or -y is being configured,		 * in which case just move the window; don't redraw		 * everything		 */		e = tkparse(tk->env->top, arg, &tko[1], nil);		if(e == nil){			if(!eqpt(oldp, tkw->req))				tkmovewin(tk, tkw->req);			return nil;		}	} 	g = tk->req;	bd = tk->borderwidth;	e = tkparse(tk->env->top, arg, tko, nil);	tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd));	tk->req.x = tk->act.x;	tk->req.y = tk->act.y;	tkgeomchg(tk, &g, bd);	if(tkw != nil && !eqpt(oldp, tkw->act))		tkmovewin(tk, tkw->req); 	tk->dirty = tkrect(tk, 1); 	return e;} static char*tkframesuspend(Tk *tk, char *arg, char **val){	USED(arg);	USED(val);	if((tk->flag & Tkwindow) == 0)		return TkNotwm;	tk->flag |= Tksuspended;	return nil;} static char*tkframemap(Tk *tk, char *arg, char **val){	USED(arg);	USED(val);	if(tk->flag & Tkwindow)		return tkmap(tk);	return TkNotwm;} static char*tkframeunmap(Tk *tk, char *arg, char **val){	USED(arg);	USED(val);	if(tk->flag & Tkwindow) {		tkunmap(tk);		return nil;	}	return TkNotwm;} static voidtkframefocusorder(Tk *tk){	int i, n;	Tk *sub;	TkWinfo *inf; 	n = 0;	for (sub = tk->slave; sub != nil; sub = sub->next)		n++; 	if (n == 0)		return; 	inf = malloc(sizeof(*inf) * n);	if (inf == nil)		return;	i = 0;	for (sub = tk->slave; sub != nil; sub = sub->next) {		inf[i].w = sub;		inf[i].r = rectaddpt(tkrect(sub, 1), Pt(sub->act.x, sub->act.y));		i++;	}	tksortfocusorder(inf, n);	for (i = 0; i < n; i++)		tkappendfocusorder(inf[i].w);	free(inf);} staticTkCmdtab tkframecmd[] ={	"cget",			tkframecget,	"configure",		tkframeconf,	"map",			tkframemap,	"unmap",		tkframeunmap,	"suspend",		tkframesuspend,	nil}; TkMethod framemethod = {	"frame",	tkframecmd,	tkfreeframe,	tkdrawframe,	nil,	nil,	tkframefocusorder};