ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /libprefab/iconbox.c/
#include <lib9.h> #include <draw.h> #include <interp.h> #include <isa.h> #include "../libinterp/runt.h" #include <drawif.h> #include <prefab.h> PCompound* iconbox(Prefab_Environ *e, Draw_Point p, String *titletext, Draw_Image *icon, Draw_Image *mask) { Draw_Rect er, r, ir; PCompound *pc; Prefab_Compound *c; PElement *elem, *title; Image *disp; Draw_Image *ddisp; Screen *screen; Heap *h; Rectangle t; Point pt; screen = lookupscreen(e->screen); if(screen == nil) return H; h = heapz(TCompound); if(h == H) return H; pc = H2D(PCompound*, h); c = &pc->c; gchalt++; title = H; if(titletext != H){ er.min.x = 0; er.min.y = 0; er.max.x = Dx(icon->r)-5; er.max.y = 0; title = textelement(e, titletext, er, ETitle); if(title == H){ Err: destroy(c); gchalt--; return H; } c->title = (Prefab_Element*)title; } r = icon->r; if(title != H) r.max.y += 2+1+title->nkids*e->style->titlefont->height+1; er = edgerect(e, p, &r); R2R(t, er); disp = allocwindow(screen, t, Refbackup /*refreshcompound*/, DWhite); if(disp == nil) goto Err; if((ddisp=mkdrawimage(disp, e->screen, e->screen->display, nil)) == H){ freeimage(disp); goto Err; } ir = r; if(title != H){ ir = r; pt.x = r.min.x+3; pt.y = r.min.y+3; translateelement(&title->e, pt); ir.min.y = title->e.r.max.y+1; } elem = iconelement(e, ir, icon, mask); c->r = r; c->image = ddisp; c->environ = e; D2H(e)->ref++; c->contents = (Prefab_Element*)elem; pc->display = screen->display; gchalt--; return pc; }