123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220 |
- #include <lib9.h>
- #include <kernel.h>
- #include "draw.h"
- #include "tk.h"
- #include "canvs.h"
- /* Widget Commands (+ means implemented)
- +addtag
- except halo and start options of closest spec
- +bbox
- +bind
- +canvasx
- +canvasy
- +cget
- +configure
- +coords
- +create
- +dchars
- +delete
- +dtag
- +find
- +focus
- +gettags
- +icursor
- +index
- +insert
- +itemcget
- +itemconfigure
- +lower
- +move
- postscript
- +raise
- +scale
- scan
- +select
- +type
- +xview
- +yview
- */
- static
- TkStab tkbuffer[] = {
- "visible", TkCbufvisible,
- "all", TkCbufall,
- "none", TkCbufnone,
- "auto", TkCbufauto,
- /* backwards compatibility */
- "1", TkCbufall,
- "yes", TkCbufall,
- "off", TkCbufall,
- "0", TkCbufauto,
- "no", TkCbufauto,
- "off", TkCbufauto,
- nil
- };
-
- #define O(t, e) ((long)(&((t*)0)->e))
- #define OA(t, e) ((long)(((t*)0)->e))
- static
- TkOption opts[] =
- {
- "closeenough", OPTfrac, O(TkCanvas, close), nil,
- "confine", OPTfrac, O(TkCanvas, confine), nil,
- "scrollregion", OPTfrac, OA(TkCanvas, scrollr), IAUX(4),
- "xscrollincrement", OPTfrac, O(TkCanvas, xscrolli), nil,
- "yscrollincrement", OPTfrac, O(TkCanvas, yscrolli), nil,
- "xscrollcommand", OPTtext, O(TkCanvas, xscroll), nil,
- "yscrollcommand", OPTtext, O(TkCanvas, yscroll), nil,
- "width", OPTnnfrac, O(TkCanvas, width), nil,
- "height", OPTnnfrac, O(TkCanvas, height), nil,
- "buffer", OPTstab, O(TkCanvas, buffer), tkbuffer,
- "buffered", OPTstab, O(TkCanvas, buffer), tkbool, /* backwards compatibility */
- "selectborderwidth", OPTnndist, O(TkCanvas, sborderwidth), nil,
- nil
- };
- int cvslshape[] = { TKI2F(8), TKI2F(10), TKI2F(3) };
- Rectangle bbnil = { 1000000, 1000000, -1000000, -1000000 };
- Rectangle huger = { -1000000, -1000000, 1000000, 1000000 };
- static void tkcvsgeom(Tk *tk);
- static void
- tkcvsf2i(Tk *tk, TkCanvas *tkc)
- {
- Rectangle r;
- tk->req.width = TKF2I(tkc->width);
- tk->req.height = TKF2I(tkc->height);
- r.min.x = TKF2I(tkc->scrollr[0]);
- r.min.y = TKF2I(tkc->scrollr[1]);
- r.max.x = TKF2I(tkc->scrollr[2]);
- r.max.y = TKF2I(tkc->scrollr[3]);
- /*
- * make sure that the region is big enough to hold
- * the actually displayed area
- */
- if (Dx(r) < tk->act.width)
- r.max.x = r.min.x + tk->act.width;
- if (Dy(r) < tk->act.height)
- r.max.y = r.min.y + tk->act.height;
- tkc->region = r;
- /*
- * make sure that the view origin is at a valid
- * position with respect to the scroll region.
- */
- if (tkc->view.x + tk->act.width > r.max.x)
- tkc->view.x = r.max.x - tk->act.width;
- if (tkc->view.x < r.min.x)
- tkc->view.x = r.min.x;
- if (tkc->view.y + tk->act.height > r.max.y)
- tkc->view.y = r.max.y - tk->act.height;
- if (tkc->view.y < r.min.y)
- tkc->view.y = r.min.y;
- }
- char*
- tkcanvas(TkTop *t, char *arg, char **ret)
- {
- Tk *tk;
- char *e;
- TkCanvas *tkc;
- TkName *names;
- TkOptab tko[3];
- tk = tknewobj(t, TKcanvas, sizeof(Tk)+sizeof(TkCanvas));
- if(tk == nil)
- return TkNomem;
- tkc = TKobj(TkCanvas, tk);
- tkc->close = TKI2F(1);
- tkc->xscrolli = TKI2F(1);
- tkc->yscrolli = TKI2F(1);
- tkc->width = TKI2F(360);
- tkc->height = TKI2F(270);
- tkc->actions = 0;
- tkc->actlim = Tksweep;
- tkc->mask = nil;
- tkc->sborderwidth = 1;
- tko[0].ptr = tkc;
- tko[0].optab = opts;
- tko[1].ptr = tk;
- tko[1].optab = tkgeneric;
- tko[2].ptr = nil;
- names = nil;
- e = tkparse(t, arg, tko, &names);
- if(e != nil)
- goto err;
- if(names == nil) {
- /* tkerr(t, arg); XXX */
- e = TkBadwp;
- goto err;
- }
- tkc->current = tkmkname("current");
- if(tkc->current == nil) {
- e = TkNomem;
- goto err;
- }
- tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd));
- tkcvsf2i(tk, tkc);
- e = tkaddchild(t, tk, &names);
- tkfreename(names);
- if(e != nil) {
- tkfreename(tkc->current);
- tkc->current = nil;
- goto err;
- }
- tk->name->link = nil;
- e = tkvalue(ret, "%s", tk->name->name);
- if(e == nil)
- return nil;
-
- tkfreename(tkc->current);
- return e;
- err:
- tkfreeobj(tk);
- return e;
- }
- void
- tkcvsdirty(Tk *sub)
- {
- TkCanvas *c;
- Tk *tk, *parent;
- Rectangle r;
- Point rel;
- rel = ZP;
- for(tk = sub; tk; tk = tk->master) {
- rel.x += tk->borderwidth + tk->act.x;
- rel.y += tk->borderwidth + tk->act.y;
- if (tk->parent != nil)
- break;
- }
- if (tk == nil)
- return;
- parent = tk->parent;
- c = TKobj(TkCanvas, parent);
- r = rectaddpt(sub->dirty, rel);
- tkbbmax(&c->update, &r);
- tkcvssetdirty(parent);
- }
- static void
- tkcvsfocusorder(Tk *tk)
- {
- TkCanvas *tkc = TKobj(TkCanvas, tk);
- TkCwind *win;
- TkCitem *it;
- TkWinfo *inf;
- int i, n;
- n = 0;
- for (it = tkc->head; it != nil; it = it->next) {
- if (it->type == TkCVwindow) {
- win = TKobj(TkCwind, it);
- if (win->sub != nil)
- n++;
- }
- }
- if (n == 0)
- return;
- inf = malloc(sizeof(*inf) * n);
- if (inf == nil)
- return;
- i = 0;
- for (it = tkc->head; it != nil; it = it->next) {
- if (it->type == TkCVwindow) {
- win = TKobj(TkCwind, it);
- if (win->sub != nil) {
- inf[i].w = win->sub;
- inf[i].r = it->p.bb;
- i++;
- }
- }
- }
- tksortfocusorder(inf, n);
- for (i = 0; i < n; i++)
- tkappendfocusorder(inf[i].w);
- }
- static char*
- tkcvscget(Tk *tk, char *arg, char **val)
- {
- TkOptab tko[3];
- TkCanvas *tkc = TKobj(TkCanvas, tk);
- tko[0].ptr = tkc;
- tko[0].optab = opts;
- tko[1].ptr = tk;
- tko[1].optab = tkgeneric;
- tko[2].ptr = nil;
- return tkgencget(tko, arg, val, tk->env->top);
- }
- static char*
- tkcvsconf(Tk *tk, char *arg, char **val)
- {
- char *e;
- int bd;
- TkGeom g;
- Rectangle r;
- TkOptab tko[3];
- TkCanvas *c = TKobj(TkCanvas, tk);
- tko[0].ptr = c;
- tko[0].optab = opts;
- tko[1].ptr = tk;
- tko[1].optab = tkgeneric;
- tko[2].ptr = nil;
- if(*arg == '\0')
- return tkconflist(tko, val);
- r.min = c->view;
- r.max.x = r.min.x+tk->act.width;
- r.max.y = r.min.y+tk->act.height;
- tkbbmax(&c->update, &r);
- tkbbmax(&c->update, &c->region);
- bd = tk->borderwidth;
- g = tk->req;
- e = tkparse(tk->env->top, arg, tko, nil);
- if(e != nil)
- return e;
- tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd));
- tkcvsf2i(tk, c);
-
- tkcvsgeom(tk);
- tkgeomchg(tk, &g, bd);
- tkbbmax(&c->update, &c->region);
- tk->dirty = tkrect(tk, 1);
- return nil;
- }
- void
- tkcvsfreeitem(TkCitem *i)
- {
- int locked;
- Display *d;
- d = i->env->top->display;
- locked = lockdisplay(d);
- tkcimethod[i->type].free(i);
- if(locked)
- unlockdisplay(d);
- tkfreepoint(&i->p);
- tkputenv(i->env);
- free(i);
- }
- void
- tkfreecanv(Tk *tk)
- {
- Display *d;
- int j, locked;
- TkCanvas *c;
- TkName *n, *nn;
- TkCtag *t, *tt;
- TkCitem *i, *next;
- c = TKobj(TkCanvas, tk);
- for(i = c->head; i; i = next) {
- next = i->next;
- tkcvsfreeitem(i);
- }
- if(c->xscroll != nil)
- free(c->xscroll);
- if(c->yscroll != nil)
- free(c->yscroll);
- for(j = 0; j < TkChash; j++) {
- for(n = c->thash[j]; n; n = nn) {
- nn = n->link;
- for(t = n->obj; t; t = tt) {
- tt = t->taglist;
- free(t);
- }
- tkfreebind(n->prop.binds);
- free(n);
- }
- }
- free(c->current);
- if((c->ialloc && c->image != nil) || c->mask != nil) {
- if (c->ialloc && c->image != nil)
- d = c->image->display;
- else
- d = c->mask->display;
- locked = lockdisplay(d);
- if (c->image != nil && c->ialloc)
- freeimage(c->image);
- if (c->mask != nil)
- freeimage(c->mask);
- if(locked)
- unlockdisplay(d);
- }
- }
- char*
- tkdrawcanv(Tk *tk, Point orig)
- {
- Image *dst;
- TkCitem *i;
- Display *d;
- TkCanvas *c;
- Rectangle r, bufr, oclipr;
- int vis, alpha, buffer;
- Point rel, p;
- TkCimeth *imeth;
- c = TKobj(TkCanvas, tk);
- d = tk->env->top->display;
- dst = tkimageof(tk);
- /*
- * translation from local to screen coords
- */
- rel.x = orig.x + tk->act.x + tk->borderwidth;
- rel.y = orig.y + tk->act.y + tk->borderwidth;
- buffer = c->buffer;
- if (buffer == TkCbufauto)
- buffer = TkCbufvisible;
- /* buffer = (dst == TKobj(TkWin, tk->env->top->root)->image) ? TkCbufvisible : TkCbufnone; */
- if (buffer == TkCbufnone) {
- if(c->image != nil && c->ialloc)
- freeimage(c->image);
- c->image = dst;
- c->ialloc = 0;
- r = tkrect(tk, 0);
- bufr = r;
- rectclip(&bufr, tk->dirty);
- oclipr = dst->clipr;
- replclipr(dst, 0, rectaddpt(bufr, rel));
- draw(dst, rectaddpt(bufr, rel), tkgc(tk->env, TkCbackgnd), nil, ZP);
- p = subpt(rel, c->view);
- p.x = TKI2F(p.x);
- p.y = TKI2F(p.y);
- bufr = rectaddpt(bufr, c->view);
- for(i = c->head; i; i = i->next) {
- if(rectXrect(i->p.bb, bufr)) {
- imeth = &tkcimethod[i->type];
- imeth->coord(i, nil, p.x, p.y);
- imeth->draw(dst, i, tk->env);
- imeth->coord(i, nil, -p.x, -p.y);
- }
- }
- replclipr(dst, 0, oclipr);
- } else {
- if (c->buffer == TkCbufall)
- bufr = c->region;
- else {
- bufr.min = c->view;
- bufr.max.x = c->view.x + tk->act.width;
- bufr.max.y = c->view.y + tk->act.height;
- }
- alpha = (tk->env->colors[TkCbackgnd] & 0xff) != 0xff;
- if(c->image == nil || eqrect(bufr, c->image->r) == 0) {
- if(c->image != nil && c->ialloc)
- freeimage(c->image);
- c->image = allocimage(d, bufr, alpha?RGBA32:d->image->chan, 0, tk->env->colors[TkCbackgnd]);
- c->ialloc = 1;
- c->update = bufr;
- tkcvssetdirty(tk); /* unnecessary? */
- }
-
- if(c->image == nil)
- return nil;
-
- r = c->update;
- if (rectclip(&r, c->image->r)) {
- if (alpha)
- drawop(c->image, c->update, nil, nil, ZP, Clear);
- draw(c->image, c->update, tkgc(tk->env, TkCbackgnd), nil, c->view);
- replclipr(c->image, 0, r);
- for(i = c->head; i; i = i->next) {
- if(rectXrect(i->p.bb, r))
- tkcimethod[i->type].draw(c->image, i, tk->env);
- }
- replclipr(c->image, 0, c->image->r);
- }
- /*
- * if the visible area of the canvas image doesn't
- * fit completely within the dirty rectangle,
- * then we'll need to draw the background behind it
- */
- r = tkrect(tk, 0);
- bufr = rectsubpt(bufr, c->view);
- vis = rectclip(&bufr, tkrect(tk, 0));
-
- if (!vis || !rectinrect(tk->dirty, bufr))
- draw(dst, rectaddpt(tk->dirty, rel), tkgc(tk->env, TkCbackgnd), nil, c->view);
-
- if (vis && rectclip(&bufr, tk->dirty))
- draw(dst, rectaddpt(bufr, rel), c->image, nil, addpt(bufr.min, c->view));
- }
- /*
- * if the border is dirty too, then draw that
- */
- if (!rectinrect(tk->dirty, bufr)) {
- r.min = addpt(r.min, rel);
- r.min.x -= tk->borderwidth;
- r.min.y -= tk->borderwidth;
- tkdrawrelief(dst, tk, r.min, TkCbackgnd, tk->relief);
- }
- c->update = bbnil;
- return nil;
- }
- void
- tkcvsappend(TkCanvas *c, TkCitem *i)
- {
- if(c->head == nil)
- c->head = i;
- else
- c->tail->next = i;
- c->tail = i;
- }
- void
- tkcvssv(Tk *tk)
- {
- TkCanvas *c;
- int top, bot, height;
- char val[Tkminitem], cmd[Tkmaxitem], *v, *e;
- c = TKobj(TkCanvas, tk);
- if(c->yscroll == nil)
- return;
- top = 0;
- bot = TKI2F(1);
- height = Dy(c->region);
- if(height != 0) {
- top = TKI2F(c->view.y)/height;
- bot = TKI2F(c->view.y+tk->act.height)/height;
- }
- v = tkfprint(val, top);
- *v++ = ' ';
- tkfprint(v, bot);
- snprint(cmd, sizeof(cmd), "%s %s", c->yscroll, val);
- e = tkexec(tk->env->top, cmd, nil);
- if ((e != nil) && (tk->name != nil))
- print("tk: yscrollcommand \"%s\": %s\n", tk->name->name, e);
- }
- void
- tkcvssh(Tk *tk)
- {
- int top, bot, width;
- TkCanvas *c = TKobj(TkCanvas, tk);
- char val[Tkminitem], cmd[Tkmaxitem], *v, *e;
- if(c->xscroll == nil)
- return;
- top = 0;
- bot = TKI2F(1);
- width = Dx(c->region);
- if(width != 0) {
- top = TKI2F(c->view.x)/width;
- bot = TKI2F(c->view.x+tk->act.width)/width;
- }
- v = tkfprint(val, top);
- *v++ = ' ';
- tkfprint(v, bot);
- snprint(cmd, sizeof(cmd), "%s %s", c->xscroll, val);
- e = tkexec(tk->env->top, cmd, nil);
- if ((e != nil) && (tk->name != nil))
- print("tk: xscrollcommand \"%s\": %s\n", tk->name->name, e);
- }
- static void
- tkcvsgeom(Tk *tk)
- {
- TkCanvas *c;
- c = TKobj(TkCanvas, tk);
- tkcvsf2i(tk, c);
- tk->dirty = tkrect(tk, 1);
- c->update = c->region;
- tkcvssv(tk);
- tkcvssh(tk);
- }
- char*
- tkcvstags(Tk *tk, char *arg, char **val, int af)
- {
- TkTop *o;
- int x, y;
- TkName *f;
- TkCtag *t, *tt;
- char *fmt;
- TkCpoints p;
- TkCanvas *c;
- TkCitem *i, *b;
- int d, dist, dx, dy;
- char tag[Tkmaxitem], buf[Tkmaxitem];
- char *e;
- USED(val);
- c = TKobj(TkCanvas, tk);
- o = tk->env->top;
- if(af == TkCadd) {
- arg = tkword(o, arg, tag, tag+sizeof(tag), nil);
- if(tag[0] == '\0' || (tag[0] >= '0' && tag[0] <= '9'))
- return TkBadtg;
- }
- fmt = "%d";
- arg = tkword(o, arg, buf, buf+sizeof(buf), nil);
- if(strcmp(buf, "above") == 0) {
- tkword(o, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- t = tkclasttag(c->head, f->obj);
- if(t == nil)
- return TkBadtg;
- for(i = t->item->next; i; i = i->next) {
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil)
- return TkNomem;
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, fmt, i->id);
- if(e != nil)
- return e;
- fmt = " %d";
- }
- }
- return nil;
- }
- if(strcmp(buf, "all") == 0) {
- for(i = c->head; i; i = i->next) {
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil)
- return TkNomem;
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, fmt, i->id);
- if(e != nil)
- return e;
- fmt = " %d";
- }
- }
- return nil;
- }
- if(strcmp(buf, "below") == 0) {
- tkword(o, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- tt = f->obj;
- for(b = c->head; b; b = b->next) {
- for(t = tt; t; t = t->itemlist)
- if(t->item == b)
- goto found;
- }
- found:
- for(i = c->head; i != b; i = i->next) {
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil)
- return TkNomem;
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, fmt, i->id);
- if(e != nil)
- return e;
- fmt = " %d";
- }
- }
- return nil;
- }
- if(strcmp(buf, "closest") == 0) {
- e = tkfracword(o, &arg, &x, nil);
- if (e == nil)
- e = tkfracword(o, &arg, &y, nil);
- if (e != nil)
- return e;
- if(*arg != '\0')
- return "!not implemented";
- x = TKF2I(x);
- y = TKF2I(y);
- i = nil;
- dist = 0;
- for(b = c->head; b != nil; b = b->next) {
- dx = x - (b->p.bb.min.x + Dx(b->p.bb)/2);
- dy = y - (b->p.bb.min.y + Dy(b->p.bb)/2);
- d = dx*dx + dy*dy;
- if(d < dist || dist == 0) {
- i = b;
- dist = d;
- }
- }
- if(i == nil)
- return nil;
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil)
- e = TkNomem;
- else
- tkcaddtag(tk, i, 0);
- }
- else
- e = tkvalue(val, fmt, i->id);
- return e;
- }
- if(strcmp(buf, "withtag") == 0) {
- tkword(o, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist) {
- i = t->item;
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil)
- return TkNomem;
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, fmt, i->id);
- if(e != nil)
- return e;
- fmt = " %d";
- }
- }
- return nil;
- }
- if(strcmp(buf, "enclosed") == 0) {
- e = tkparsepts(o, &p, &arg, 0);
- if(e != nil)
- goto done;
- if(p.npoint != 2) {
- e = TkFewpt;
- goto done;
- }
- for(i = c->head; i; i = i->next) {
- if(rectinrect(i->p.bb, p.bb)) {
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil) {
- e = TkNomem;
- goto done;
- }
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, fmt, i->id);
- if(e != nil)
- goto done;
- fmt = " %d";
- }
- }
- }
- goto done;
- }
- if(strcmp(buf, "overlapping") == 0) {
- e = tkparsepts(o, &p, &arg, 0);
- if(e != nil)
- goto done;
- if(p.npoint != 2) {
- e = TkFewpt;
- goto done;
- }
- for(i = c->head; i; i = i->next) {
- if(rectXrect(i->p.bb, p.bb)) {
- if(af == TkCadd) {
- i->tags = tkmkname(tag);
- if(i->tags == nil) {
- e = TkNomem;
- goto done;
- }
- tkcaddtag(tk, i, 0);
- }
- else {
- e = tkvalue(val, "%d ", i->id);
- if(e != nil)
- goto done;
- }
- }
- }
- goto done;
- }
- return TkBadcm;
- done: /* both no error and error do the same thing */
- tkfreepoint(&p);
- return e;
- }
- static char*
- tkcvsaddtag(Tk *tk, char *arg, char **val)
- {
- return tkcvstags(tk, arg, val, TkCadd);
- }
- static char*
- tkcvsfind(Tk *tk, char *arg, char **val)
- {
- return tkcvstags(tk, arg, val, TkCfind);
- }
- static void
- tksweepcanv(Tk *tk)
- {
- int j, k;
- TkCtag *t, *tt;
- TkName **np, *n, *nn;
- TkCitem *i;
- TkCanvas *c;
- TkAction *a;
- c = TKobj(TkCanvas, tk);
- for(j = 0; j < TkChash; j++)
- for(n = c->thash[j]; n != nil; n = n->link)
- n->ref = 0;
- for(i = c->head; i != nil; i = i->next)
- for(t = i->stag; t != nil; t = t->itemlist)
- t->name->ref = 1;
- k = 0;
- for(j = 0; j < TkChash; j++) {
- np = &c->thash[j];
- for(n = *np; n != nil; n = nn) {
- nn = n->link;
- if(n->ref == 0) {
- for(t = n->obj; t != nil; t = tt) {
- tt = t->taglist;
- free(t);
- }
- tkfreebind(n->prop.binds);
- free(n);
- *np = nn;
- } else {
- np = &n->link;
- for(a = n->prop.binds; a != nil; a = a->link)
- k++;
- }
- }
- }
- c->actions = k;
- k = 3 * k / 2;
- if (k < Tksweep)
- c->actlim = Tksweep;
- else
- c->actlim = k;
- }
- /*
- * extension to tcl/tk:
- * grab set tag
- * grab release tag
- * grab ifunset tag
- */
- static char*
- tkcvsgrab(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- TkCanvas *c;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if (strcmp(buf, "status") == 0) {
- if (c->grab != nil)
- return tkvalue(val, "%d", c->grab->id);
- }
- else if (strcmp(buf, "release") == 0) {
- c->grab = nil;
- }
- else if (strcmp(buf, "set") == 0 || strcmp(buf, "ifunset") == 0) {
- if (buf[0] == 'i' && c->grab != nil)
- return nil;
- tkword(tk->env->top, arg, buf, buf + sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
-
- c = TKobj(TkCanvas, tk);
- t = tkcfirsttag(c->head, f->obj);
- if(t == nil)
- return TkBadtg;
- c->grab = t->item;
- }
- else
- return TkBadvl;
- return nil;
- }
- static char*
- tkcvsbind(Tk *tk, char *arg, char **val)
- {
- Rune r;
- TkCtag *t;
- TkName *f;
- TkAction *a;
- TkCanvas *c;
- int event, mode;
- char *cmd, buf[Tkmaxitem];
- char *e;
- c = TKobj(TkCanvas, tk);
- if (c->actions >= c->actlim)
- tksweepcanv(tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil) {
- f = tkctaglook(tk, tkmkname(buf), buf);
- if(f == nil)
- return TkNomem;
- }
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '<') {
- event = tkseqparse(buf+1);
- if(event == -1)
- return TkBadsq;
- }
- else {
- chartorune(&r, buf);
- event = TkKey | r;
- }
- if(event == 0)
- return TkBadsq;
- arg = tkskip(arg, " \t");
- if(*arg == '\0') {
- for(t = f->obj; t; t = t->taglist) {
- for(a = t->name->prop.binds; a; a = a->link)
- if(event == a->event)
- return tkvalue(val, "%s", a->arg);
- for(a = t->name->prop.binds; a; a = a->link)
- if(event & a->event)
- return tkvalue(val, "%s", a->arg);
- }
- return nil;
- }
- mode = TkArepl;
- if(*arg == '+') {
- mode = TkAadd;
- arg++;
- }
- else if(*arg == '-'){
- mode = TkAsub;
- arg++;
- }
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- cmd = strdup(buf);
- if(cmd == nil)
- return TkNomem;
- e = tkaction(&f->prop.binds, event, TkDynamic, cmd, mode);
- if(e == nil)
- c->actions++;
- return e;
- }
- static char*
- tkcvscreate(Tk *tk, char *arg, char **val)
- {
- TkCimeth *m;
- char buf[Tkmaxitem];
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- for(m = tkcimethod; m->name; m++)
- if(strcmp(buf, m->name) == 0)
- return m->create(tk, arg, val);
- return TkBadit;
- }
- static char*
- tkcvsbbox(Tk *tk, char *arg, char **val)
- {
- TkName *f;
- TkCtag *t;
- Rectangle bb;
- char buf[Tkmaxitem];
- bb = bbnil;
- for(;;) {
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- break;
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist)
- tkbbmax(&bb, &t->item->p.bb);
- }
- return tkvalue(val, "%d %d %d %d", bb.min.x, bb.min.y, bb.max.x, bb.max.y);
- }
- static char*
- tkcvscanvx(Tk *tk, char *arg, char **val)
- {
- int x, s;
- TkCanvas *c;
- Point p;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- p = tkposn(tk);
- x = atoi(buf) + c->view.x - (p.x + tk->borderwidth);
- if(*arg) {
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- s = atoi(buf);
- if (s) {
- if (x>=0)
- x = ((x+s/2)/s)*s;
- else
- x = ((x-s/2)/s)*s;
- }
- }
- return tkvalue(val, "%d", x);
- }
- static char*
- tkcvscanvy(Tk *tk, char *arg, char **val)
- {
- int y, s;
- TkCanvas *c;
- Point p;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- p = tkposn(tk);
- y = atoi(buf) + c->view.y - (p.y + tk->borderwidth);
- if(*arg) {
- tkitem(buf, arg);
- s = atoi(buf);
- if (s) {
- if (y>=0)
- y = ((y+s/2)/s)*s;
- else
- y = ((y-s/2)/s)*s;
- }
- }
- return tkvalue(val, "%d", y);
- }
- static char *
- tkcvsscreenx(Tk *tk, char *arg, char **val)
- {
- int x;
- TkCanvas *c;
- Point p;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- p = tkposn(tk);
- x = atoi(buf) - c->view.x + (p.x + tk->borderwidth);
- return tkvalue(val, "%d", x);
- }
- static char *
- tkcvsscreeny(Tk *tk, char *arg, char **val)
- {
- int y;
- TkCanvas *c;
- Point p;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- p = tkposn(tk);
- y = atoi(buf) - c->view.y + (p.y + tk->borderwidth);
- return tkvalue(val, "%d", y);
- }
- static char*
- tkcvscoords(Tk *tk, char *arg, char **val)
- {
- int i;
- Point *p;
- TkCtag *t;
- TkName *f;
- TkCanvas *c;
- TkCitem *item;
- char *fmt, *e, *v, buf[Tkmaxitem];
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- c = TKobj(TkCanvas, tk);
- t = tkcfirsttag(c->head, f->obj);
- if(t == nil)
- return TkBadtg;
- item = t->item;
- if(*arg == '\0') {
- fmt = "%s";
- p = item->p.parampt;
- for(i = 0; i < item->p.npoint; i++) {
- v = tkfprint(buf, p->x);
- *v++ = ' ';
- tkfprint(v, p->y);
- e = tkvalue(val, fmt, buf);
- if(e != nil)
- return e;
- fmt = " %s";
- p++;
- }
- return nil;
- }
- tkbbmax(&c->update, &item->p.bb);
- e = tkcimethod[item->type].coord(item, arg, 0, 0);
- tkbbmax(&c->update, &item->p.bb);
- tkcvssetdirty(tk);
- return e;
- }
- static char*
- tkcvsscale(Tk *tk, char *arg, char **val)
- {
- TkName *f;
- TkCtag *t;
- TkCanvas *c;
- TkCpoints pts;
- TkCitem *item;
- int j;
- char *e, buf[Tkmaxitem];
- Point *p, *d, origin, scalef;
- USED(val);
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- e = tkparsepts(tk->env->top, &pts, &arg, 0);
- if(e != nil)
- return e;
- if(pts.npoint != 2) {
- tkfreepoint(&pts);
- return TkFewpt;
- }
- origin = pts.parampt[0];
- scalef = pts.parampt[1];
- tkfreepoint(&pts);
- for(t = f->obj; t; t = t->taglist) {
- item = t->item;
- p = item->p.parampt;
- d = item->p.drawpt;
- for(j = 0; j < item->p.npoint; j++) {
- p->x -= origin.x;
- p->y -= origin.y;
- p->x = TKF2I(p->x*scalef.x);
- p->y = TKF2I(p->y*scalef.y);
- p->x += origin.x;
- p->y += origin.y;
- d->x = TKF2I(p->x);
- d->y = TKF2I(p->y);
- d++;
- p++;
- }
- tkbbmax(&c->update, &item->p.bb);
- e = tkcimethod[item->type].coord(item, nil, 0, 0);
- tkbbmax(&c->update, &item->p.bb);
- if(e != nil)
- return e;
- tkcvssetdirty(tk);
- }
- return nil;
- }
- static char*
- tkcvsdtag(Tk *tk, char *arg, char **val)
- {
- TkName *f, *dt;
- char buf[Tkmaxitem];
- TkCtag **l, *t, *it, *tf;
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- /*
- XXX this code doesn't appear to work properly.
- fix it later. for the moment, it's just a somewhat more
- efficient substitute for the later code, so just use that
- instead.
- if(*arg == '\0') {
- for(t = f->obj; t; t = tf) {
- l = &t->item->stag;
- for(it = *l; it; it = it->itemlist) {
- if(it->item == t->item) {
- *l = it->itemlist;
- break;
- }
- l = &it->itemlist;
- }
- tf = t->taglist;
- free(t);
- }
- f->obj = nil;
- return nil;
- }
- */
- if (*arg == '\0')
- dt = f;
- else {
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- dt = tkctaglook(tk, nil, buf);
- if(dt == nil || dt->obj == nil)
- return TkBadtg;
- }
- for(t = f->obj; t; t = t->taglist) {
- l = (TkCtag **)&dt->obj;
- for(it = dt->obj; it; it = it->taglist) {
- if(t->item == it->item) {
- *l = it->taglist;
- l = &t->item->stag;
- for(tf = *l; tf; tf = tf->itemlist) {
- if(tf == it) {
- *l = tf->itemlist;
- break;
- }
- l = &tf->itemlist;
- }
- free(it);
- break;
- }
- l = &it->taglist;
- }
- }
- return nil;
- }
- static char*
- tkcvsdchars(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- char *e, buf[Tkmaxitem];
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist) {
- if(t->item->type == TkCVtext) {
- e = tkcvstextdchar(tk, t->item, arg);
- if(e != nil)
- return e;
- }
- }
- return nil;
- }
- static char*
- tkcvsindex(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- char *e, buf[Tkmaxitem];
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist) {
- if(t->item->type == TkCVtext) {
- e = tkcvstextindex(tk, t->item, arg, val);
- if(e != nil)
- return e;
- return nil;
- }
- }
- return nil;
- }
- static char*
- tkcvsicursor(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- char *e, buf[Tkmaxitem];
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist) {
- if(t->item->type == TkCVtext) {
- e = tkcvstexticursor(tk, t->item, arg);
- if(e != nil)
- return e;
- return nil;
- }
- }
- return nil;
- }
- static char*
- tkcvsinsert(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- char *e, buf[Tkmaxitem];
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- for(t = f->obj; t; t = t->taglist) {
- if(t->item->type == TkCVtext) {
- e = tkcvstextinsert(tk, t->item, arg);
- if(e != nil)
- return e;
- }
- }
- return nil;
- }
- static char*
- tkcvsselect(Tk *tk, char *arg, char **val)
- {
- int op;
- TkCtag *t;
- TkName *f;
- TkCanvas *c;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(strcmp(buf, "clear") == 0) {
- tkcvstextclr(tk);
- return nil;
- }
- if(strcmp(buf, "item") == 0) {
- if(c->selection)
- return tkvalue(val, "%d", c->selection->id);
- return nil;
- }
- if(strcmp(buf, "to") == 0)
- op = TkCselto;
- else
- if(strcmp(buf, "from") == 0)
- op = TkCselfrom;
- else
- if(strcmp(buf, "adjust") == 0)
- op = TkCseladjust;
- else
- return TkBadcm;
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- t = tkcfirsttag(c->head, f->obj);
- if(t == nil)
- return TkBadtg;
- return tkcvstextselect(tk, t->item, arg, op);
- }
- static char*
- tkcvsitemcget(Tk *tk, char *arg, char **val)
- {
- TkName *f;
- TkCtag *t;
- TkCitem *i;
- char buf[Tkmaxitem];
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- for(i = TKobj(TkCanvas, tk)->head; i; i = i->next) {
- for(t = f->obj; t; t = t->taglist)
- if(i == t->item)
- return tkcimethod[i->type].cget(i, arg, val);
- }
- return nil;
- }
- static char*
- tkcvsitemconf(Tk *tk, char *arg, char **val)
- {
- char *e;
- TkName *f;
- TkCtag *t;
- TkCitem *i;
- TkCanvas *c;
- char buf[Tkmaxitem];
- USED(val);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return TkBadtg;
- c = TKobj(TkCanvas, tk);
- for(t = f->obj; t; t = t->taglist) {
- for(i = c->head; i; i = i->next) {
- if(i == t->item) {
- tkbbmax(&c->update, &i->p.bb);
- e = tkcimethod[i->type].conf(tk, i, arg);
- tkbbmax(&c->update, &i->p.bb);
- tkcvssetdirty(tk);
- if(e != nil)
- return e;
- }
- }
- }
- return nil;
- }
- static void
- tkcvsfreename(TkCanvas *c, TkName *n)
- {
- ulong h;
- char *p, *s;
- TkName *f, **l;
-
- /* just free implicit ones for now */
- if(n == nil)
- return;
- s = n->name;
- if(s == nil || (s[0] < '0' || s[0] > '9'))
- return;
- h = 0;
- for(p = s; *p; p++)
- h += 3*h + *p;
- l = &c->thash[h%TkChash];
- for(f = *l; f; l = &f->link, f = *l)
- if(f == n){
- *l = f->link;
- tkfreebind(f->prop.binds);
- free(f);
- return;
- }
- }
- static char*
- tkcvsdelete(Tk *tk, char *arg, char **val)
- {
- TkName *f;
- TkCanvas *c;
- char buf[Tkmaxitem];
- TkCitem *item, *prev, *i;
- TkCtag *t, *inext, **l, *dit, *it;
- USED(val);
- c = TKobj(TkCanvas, tk);
- for(;;) {
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- break;
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return nil;
- while(f->obj) {
- t = f->obj;
- item = t->item;
- for(it = item->stag; it; it = inext) {
- inext = it->itemlist;
- l = (TkCtag **)&it->name->obj;
- for(dit = *l; dit; dit = dit->taglist) {
- if(dit->item == item) {
- *l = dit->taglist;
- if(dit != t){
- tkcvsfreename(c, dit->name);
- free(dit);
- }
- break;
- }
- l = &dit->taglist;
- }
- }
- tkbbmax(&c->update, &item->p.bb);
- tkcvssetdirty(tk);
- prev = nil;
- for(i = c->head; i; i = i->next) {
- if(i == item)
- break;
- prev = i;
- }
- if(prev == nil)
- c->head = i->next;
- else
- prev->next = i->next;
- if(c->tail == item)
- c->tail = prev;
- if(c->focus == item)
- c->focus = nil;
- if(c->mouse == item)
- c->mouse = nil;
- if(c->selection == item)
- c->selection = nil;
- if(c->curtag.item == item)
- c->current->obj = nil;
- if (c->grab == item)
- c->grab = nil;
- tkcvsfreeitem(item);
- free(t);
- }
- }
- return nil;
- }
- static char*
- tkcvsfocus(Tk *tk, char *arg, char **val)
- {
- TkName *f;
- TkCtag *t;
- TkCanvas *c;
- TkCitem *i, *focus;
- char buf[Tkmaxitem];
- c = TKobj(TkCanvas, tk);
- if(*arg == '\0') {
- if(c->focus == nil)
- return nil;
- return tkvalue(val, "%d", c->focus->id);
- }
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return nil;
- focus = c->focus;
- if(focus != nil && focus->type == TkCVtext)
- tkcvstextfocus(tk, focus, 0);
- for(i = c->head; i; i = i->next) {
- if(i->type == TkCVtext || i->type == TkCVwindow) {
- for(t = f->obj; t; t = t->taglist)
- if(t->item == i)
- focus = i;
- }
- }
- if(focus != nil && focus->type == TkCVtext)
- tkcvstextfocus(tk, focus, 1);
- c->focus = focus;
- return nil;
- }
- static char*
- tkcvsgettags(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- TkCanvas *c;
- char *fmt, *e, buf[Tkmaxitem];
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return TkBadtg;
- c = TKobj(TkCanvas, tk);
- t = tkclasttag(c->head, f->obj);
- if(t == nil)
- return TkBadtg;
- fmt = "%s";
- t = t->item->stag;
- while(t) {
- /* XXX when might t->name be legally nil? */
- if (t->name != nil) {
- if (strcmp(t->name->name, "all")) {
- e = tkvalue(val, fmt, t->name->name);
- if(e != nil)
- return e;
- fmt = " %s";
- }
- }
- t = t->itemlist;
- }
- return nil;
- }
- static char*
- tkcvslower(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkCanvas *c;
- TkName *f, *b;
- char buf[Tkmaxitem];
- TkCitem *it, **l, **below, *items, **itemtail, *prev, *iprev;
- USED(val);
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return nil;
- below = &c->head;
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] != '\0') {
- b = tkctaglook(tk, nil, buf);
- if(b == nil || f->obj == nil)
- return TkBadtg;
- for(it = c->head; it; it = it->next) {
- for(t = b->obj; t; t = t->taglist)
- if(t->item == it)
- goto found;
- below = &it->next;
- }
- found:;
- }
- l = &c->head;
- prev = iprev = nil;
- itemtail = &items;;
- for (it = *l; it != nil; it = *l) {
- for (t = f->obj; t; t = t->taglist) {
- if(t->item == it) {
- if (it == *below || below == &it->next)
- below = l;
- if (it == c->tail)
- c->tail = prev;
- *l = it->next;
- *itemtail = it;
- iprev = it;
- itemtail = &it->next;
- tkbbmax(&c->update, &it->p.bb);
- goto next;
- }
- }
- prev = it;
- l = &it->next;
- next:;
- }
- if (prev == nil)
- c->tail = iprev;
- *itemtail = *below;
- *below = items;
- tkcvssetdirty(tk);
- return nil;
- }
- static char*
- tkcvsmove(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- int fx, fy;
- TkTop *top;
- TkCpoints *p;
- TkName *tag;
- Rectangle *u;
- TkCitem *item;
- char *e;
- char buf[Tkmaxitem];
- USED(val);
- top = tk->env->top;
- arg = tkword(top, arg, buf, buf+sizeof(buf), nil);
- tag = tkctaglook(tk, nil, buf);
- if(tag == nil)
- return nil;
- e = tkfracword(top, &arg, &fx, nil);
- if (e != nil)
- return e;
- e = tkfracword(top, &arg, &fy, nil);
- if(e != nil)
- return e;
- u = &TKobj(TkCanvas, tk)->update;
- for(t = tag->obj; t; t = t->taglist) {
- item = t->item;
- p = &item->p;
- tkbbmax(u, &p->bb);
- tkcimethod[item->type].coord(item, nil, fx, fy);
- tkbbmax(u, &p->bb);
- }
- tkcvssetdirty(tk);
- return nil;
- }
- static char*
- tkcvsraise(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkCanvas *c;
- TkName *f, *a;
- char buf[Tkmaxitem];
- TkCitem *prev, *it, *above, *items, *itemtail, *next;
- USED(val);
- c = TKobj(TkCanvas, tk);
- arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- f = tkctaglook(tk, nil, buf);
- if(f == nil)
- return nil;
- above = c->tail;
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] != '\0') {
- a = tkctaglook(tk, nil, buf);
- if(a == nil)
- return TkBadtg;
- /*
- * find topmost item in the display list matching the "above" tag
- */
- for(it = c->head; it != nil; it = it->next) {
- for(t = a->obj; t; t = t->taglist)
- if(t->item == it)
- above = it;
- }
- }
- prev = nil;
- items = itemtail = nil;
- for (it = c->head; it != nil; it = next) {
- next = it->next;
- for (t = f->obj; t; t = t->taglist) {
- if(t->item == it) {
- if (it == above)
- above = next;
- if (prev)
- prev->next = next;
- else
- c->head = next;
- if (itemtail)
- itemtail->next = it;
- else
- items = it;
- itemtail = it;
- tkbbmax(&c->update, &it->p.bb);
- goto next;
- }
- }
- prev = it;
- next:;
- }
- if (items != nil) {
- if (above) {
- itemtail->next = above->next;
- if (above->next == nil)
- c->tail = itemtail;
- above->next = items;
- } else {
- if (prev)
- prev->next = items;
- else
- c->head = items;
- c->tail = itemtail;
- itemtail->next = nil;
- }
- }
- tkcvssetdirty(tk);
- return nil;
- }
- static char*
- tkcvstype(Tk *tk, char *arg, char **val)
- {
- TkCtag *t;
- TkName *f;
- TkCanvas *c;
- char buf[Tkmaxitem];
- tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == '\0')
- return TkBadvl;
- f = tkctaglook(tk, nil, buf);
- if(f == nil || f->obj == nil)
- return nil;
- c = TKobj(TkCanvas, tk);
- t = tkcfirsttag(c->head, f->obj);
- if(t == nil)
- return nil;
- return tkvalue(val, "%s", tkcimethod[t->item->type].name);
- }
- static char*
- tkcvsview(Tk *tk, char *arg, char **val, int nl, int *posn, int min, int max, int inc)
- {
- TkTop *t;
- int top, bot, diff, amount;
- char *e;
- char buf[Tkmaxitem], *v;
- diff = max-min;
- if(*arg == '\0') {
- if ( diff == 0 )
- top = bot = 0;
- else {
- top = TKI2F(*posn-min)/diff;
- bot = TKI2F(*posn+nl-min)/diff;
- }
- v = tkfprint(buf, top);
- *v++ = ' ';
- tkfprint(v, bot);
- return tkvalue(val, "%s", buf);
- }
- t = tk->env->top;
- arg = tkword(t, arg, buf, buf+sizeof(buf), nil);
- if(strcmp(buf, "moveto") == 0) {
- e = tkfrac(&arg, &top, nil);
- if (e != nil)
- return e;
- *posn = min + TKF2I((top+1)*diff);
- }
- else
- if(strcmp(buf, "scroll") == 0) {
- arg = tkword(t, arg, buf, buf+sizeof(buf), nil);
- amount = atoi(buf);
- tkword(t, arg, buf, buf+sizeof(buf), nil);
- if(buf[0] == 'p') /* Pages */
- amount = amount * nl * 9 /10;
- else if (inc > 0)
- amount *= inc;
- else
- amount = amount * nl / 10;
- *posn += amount;
- }
- else
- return TkBadcm;
- bot = max - nl;
- if(*posn > bot)
- *posn = bot;
- if(*posn < min)
- *posn = min;
- tk->dirty = tkrect(tk, 0);
- return nil;
- }
- static char*
- tkcvsyview(Tk *tk, char *arg, char **val)
- {
- int si;
- char *e;
- TkCanvas *c = TKobj(TkCanvas, tk);
- si = TKF2I(c->yscrolli);
- e = tkcvsview(tk, arg, val, tk->act.height, &c->view.y, c->region.min.y, c->region.max.y, si);
- tkcvssv(tk);
- return e;
- }
- static char*
- tkcvsxview(Tk *tk, char *arg, char **val)
- {
- int si;
- char *e;
- TkCanvas *c = TKobj(TkCanvas, tk);
- si = TKF2I(c->xscrolli);
- e = tkcvsview(tk, arg, val, tk->act.width, &c->view.x, c->region.min.x, c->region.max.x, si);
- tkcvssh(tk);
- return e;
- }
- /*
- * return in posn the new view origin such that (preferably) smin and smax
- * lie between cmin and cmax (cmin is the current view origin, and cmax the
- * other end of the visible area).
- * adjust posn (the view origin) so that (preferably) both smin and smax lie
- * inside cmin to cmax. if both smin and smax cannot fit, then
- * at least make sure that spref (smin<=spref<=smax) is visible.
- * return 0 if no adjustment is required (the interval is already visible).
- *
- * attempt to make an adjustment as small as possible that
- * fits these criteria.
- */
- static int
- tkadjustvis(int *posn, int c0, int c1, int s0, int s1, int spref)
- {
- int d, v;
- d = c1 - c0; /* visible width */
- /*
- * if requested range fits inside visible range,
- * no adjustment is necessary
- */
- if (c0 <= s0 && s1 <= c1)
- return 0;
- /*
- * if requested range fits, make it fully visible
- */
- if (s1 - s0 < d) {
- if (s0 < c0)
- v = s0;
- else
- v = s1 - d;
- } else {
- /*
- * choose upper or lower end of requested range,
- * depending on which end of requested area is already
- * visible (if any).
- */
- if (c0 <= s1 && s1 < c1) { /* overlapping left of visible */
- v = s1 - d;
- if (v > spref)
- v = spref;
- }
- else
- if (c0 <= s0 && s0 < c1) { /* overlapping right of visible */
- v = s0;
- if (v + d <= spref)
- v = spref - d;
- }
- else
- if (s1 < c0) { /* left of visible */
- v = spref;
- if (v + d > s1)
- v = s1 - d;
- }
- else { /* right of visible */
- v = spref - d;
- if (v < s0)
- v = s0;
- }
- }
- *posn = v;
- return 1;
- }
- static void
- tkcvsseerect(Tk *tk, Rectangle r, Point p)
- {
- TkCanvas *c;
- int scrollh, scrollv;
- c = TKobj(TkCanvas, tk);
- scrollh = tkadjustvis(&c->view.x, c->view.x, c->view.x + tk->act.width,
- r.min.x, r.max.x, p.x);
- scrollv = tkadjustvis(&c->view.y, c->view.y, c->view.y + tk->act.height,
- r.min.y, r.max.y, p.y);
- if (scrollh)
- tkcvssh(tk);
- if (scrollv)
- tkcvssv(tk);
- if (scrollh || scrollv)
- tk->dirty = tkrect(tk, 0);
- }
-
- static char*
- tkcvssee(Tk *tk, char *arg, char **val)
- {
- Rectangle r;
- int n, coords[4];
- char *e;
- USED(val);
- n = 0;
- while (n < 4) {
- if (*arg == '\0')
- break;
- e = tkfracword(tk->env->top, &arg, &coords[n++], nil);
- if (e != nil)
- return e;
- }
- if (n != 2 && n != 4)
- return TkFewpt;
- r.min.x = TKF2I(coords[0]);
- r.min.y = TKF2I(coords[1]);
- if (n == 4) {
- r.max.x = TKF2I(coords[2]);
- r.max.y = TKF2I(coords[3]);
- } else
- r.max = r.min;
- r = canonrect(r);
- /*
- * XXX should intersect r with scrollregion here, as you shouldn't
- * be able to display things outside the scroll region. (??)
- */
- tkcvsseerect(tk, r, r.min);
- return nil;
- }
- static void
- tkcvsseesub(Tk *tk, Rectangle *rr, Point *pp)
- {
- Rectangle r;
- Point p;
- TkCanvas *c;
- c = TKobj(TkCanvas, tk);
- r = rectaddpt(*rr, c->view);
- p = addpt(*pp, c->view);
- tkcvsseerect(tk, r, p);
- *rr = rectsubpt(r, c->view);
- *pp = subpt(p, c->view);
- }
- static void
- tkcvsgetimgs(Tk* tk, Image **image, Image **mask)
- {
- TkCanvas *c;
- c = TKobj(TkCanvas, tk);
- *image = c->image;
- *mask = c->mask; /* XXX this is wrong - the mask image has nothing to do with the main image */
- }
- TkCimeth tkcimethod[] =
- {
- "line", tkcvslinecreat,
- tkcvslinedraw,
- tkcvslinefree,
- tkcvslinecoord,
- tkcvslinecget,
- tkcvslineconf,
- tkcvslinehit,
- "text", tkcvstextcreat,
- tkcvstextdraw,
- tkcvstextfree,
- tkcvstextcoord,
- tkcvstextcget,
- tkcvstextconf,
- nil,
- "rectangle", tkcvsrectcreat,
- tkcvsrectdraw,
- tkcvsrectfree,
- tkcvsrectcoord,
- tkcvsrectcget,
- tkcvsrectconf,
- nil,
- "oval", tkcvsovalcreat,
- tkcvsovaldraw,
- tkcvsovalfree,
- tkcvsovalcoord,
- tkcvsovalcget,
- tkcvsovalconf,
- tkcvsovalhit,
- "bitmap", tkcvsbitcreat,
- tkcvsbitdraw,
- tkcvsbitfree,
- tkcvsbitcoord,
- tkcvsbitcget,
- tkcvsbitconf,
- nil,
- "polygon", tkcvspolycreat,
- tkcvspolydraw,
- tkcvspolyfree,
- tkcvspolycoord,
- tkcvspolycget,
- tkcvspolyconf,
- tkcvspolyhit,
- "window", tkcvswindcreat,
- tkcvswinddraw,
- tkcvswindfree,
- tkcvswindcoord,
- tkcvswindcget,
- tkcvswindconf,
- nil,
- "image", tkcvsimgcreat,
- tkcvsimgdraw,
- tkcvsimgfree,
- tkcvsimgcoord,
- tkcvsimgcget,
- tkcvsimgconf,
- nil,
- "arc", tkcvsarccreat,
- tkcvsarcdraw,
- tkcvsarcfree,
- tkcvsarccoord,
- tkcvsarccget,
- tkcvsarcconf,
- nil,
- nil
- };
- static
- TkCmdtab tkcanvcmd[] =
- {
- "addtag", tkcvsaddtag,
- "bbox", tkcvsbbox,
- "bind", tkcvsbind,
- "cget", tkcvscget,
- "configure", tkcvsconf,
- "create", tkcvscreate,
- "canvasx", tkcvscanvx,
- "canvasy", tkcvscanvy,
- "coords", tkcvscoords,
- "dchars", tkcvsdchars,
- "delete", tkcvsdelete,
- "dtag", tkcvsdtag,
- "find", tkcvsfind,
- "focus", tkcvsfocus,
- "gettags", tkcvsgettags,
- "grab", tkcvsgrab,
- "icursor", tkcvsicursor,
- "insert", tkcvsinsert,
- "index", tkcvsindex,
- "itemcget", tkcvsitemcget,
- "itemconfigure", tkcvsitemconf,
- "lower", tkcvslower,
- "move", tkcvsmove,
- "raise", tkcvsraise,
- "screenx", tkcvsscreenx,
- "screeny", tkcvsscreeny,
- "see", tkcvssee,
- "select", tkcvsselect,
- "scale", tkcvsscale,
- "type", tkcvstype,
- "yview", tkcvsyview,
- "xview", tkcvsxview,
- nil
- };
- TkMethod canvasmethod = {
- "canvas",
- tkcanvcmd,
- tkfreecanv,
- tkdrawcanv,
- tkcvsgeom,
- tkcvsgetimgs,
- tkcvsfocusorder,
- tkcvsdirty,
- tkcvsrelpos,
- tkcvsevent,
- tkcvsseesub,
- tkcvsinwindow,
- nil,
- tkcvsforgetsub,
- };
|