diff options
Diffstat (limited to 'libtk/frame.c')
| -rw-r--r-- | libtk/frame.c | 277 |
1 files changed, 277 insertions, 0 deletions
diff --git a/libtk/frame.c b/libtk/frame.c new file mode 100644 index 00000000..fdd39b16 --- /dev/null +++ b/libtk/frame.c @@ -0,0 +1,277 @@ +#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 + */ +void +tkfreeframe(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 void +tkframefocusorder(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); +} + +static +TkCmdtab tkframecmd[] = +{ + "cget", tkframecget, + "configure", tkframeconf, + "map", tkframemap, + "unmap", tkframeunmap, + "suspend", tkframesuspend, + nil +}; + +TkMethod framemethod = { + "frame", + tkframecmd, + tkfreeframe, + tkdrawframe, + nil, + nil, + tkframefocusorder +}; |