summaryrefslogtreecommitdiff
path: root/libtk/listb.c
diff options
context:
space:
mode:
Diffstat (limited to 'libtk/listb.c')
-rw-r--r--libtk/listb.c1065
1 files changed, 1065 insertions, 0 deletions
diff --git a/libtk/listb.c b/libtk/listb.c
new file mode 100644
index 00000000..af8850bd
--- /dev/null
+++ b/libtk/listb.c
@@ -0,0 +1,1065 @@
+#include "lib9.h"
+#include "draw.h"
+#include "keyboard.h"
+#include "tk.h"
+#include "listb.h"
+
+#define O(t, e) ((long)(&((t*)0)->e))
+
+/* Layout constants */
+enum {
+ Listpadx = 2, /* X padding of text in listboxes */
+};
+
+typedef struct TkLentry TkLentry;
+typedef struct TkListbox TkListbox;
+
+struct TkLentry
+{
+ TkLentry* link;
+ int flag;
+ int width;
+ char text[TKSTRUCTALIGN];
+};
+
+struct TkListbox
+{
+ TkLentry* head;
+ TkLentry* anchor;
+ TkLentry* active;
+ int yelem; /* Y element at top of box */
+ int xdelta; /* h-scroll position */
+ int nitem;
+ int nwidth;
+ int selmode;
+ int sborderwidth;
+ char* xscroll;
+ char* yscroll;
+};
+
+TkStab tkselmode[] =
+{
+ "single", TKsingle,
+ "browse", TKbrowse,
+ "multiple", TKmultiple,
+ "extended", TKextended,
+ nil
+};
+
+static
+TkOption opts[] =
+{
+ "xscrollcommand", OPTtext, O(TkListbox, xscroll), nil,
+ "yscrollcommand", OPTtext, O(TkListbox, yscroll), nil,
+ "selectmode", OPTstab, O(TkListbox, selmode), tkselmode,
+ "selectborderwidth", OPTnndist, O(TkListbox, sborderwidth), nil,
+ nil
+};
+
+static
+TkEbind b[] =
+{
+ {TkButton1P, "%W tkListbButton1P %y"},
+ {TkButton1R, "%W tkListbButton1R"},
+ {TkButton1P|TkMotion, "%W tkListbButton1MP %y"},
+ {TkMotion, ""},
+ {TkKey, "%W tkListbKey 0x%K"},
+};
+
+
+static int
+lineheight(Tk *tk)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+ return tk->env->font->height+2*(l->sborderwidth+tk->highlightwidth);
+}
+
+char*
+tklistbox(TkTop *t, char *arg, char **ret)
+{
+ Tk *tk;
+ char *e;
+ TkName *names;
+ TkListbox *tkl;
+ TkOptab tko[3];
+
+ tk = tknewobj(t, TKlistbox, sizeof(Tk)+sizeof(TkListbox));
+ if(tk == nil)
+ return TkNomem;
+
+ tkl = TKobj(TkListbox, tk);
+ tkl->sborderwidth = 1;
+ tk->relief = TKsunken;
+ tk->borderwidth = 2;
+ tk->highlightwidth = 1;
+ tk->flag |= Tktakefocus;
+ tk->req.width = 170;
+ tk->req.height = lineheight(tk)*10;
+
+ tko[0].ptr = tk;
+ tko[0].optab = tkgeneric;
+ tko[1].ptr = tkl;
+ tko[1].optab = opts;
+ tko[2].ptr = nil;
+
+ names = nil;
+ e = tkparse(t, arg, tko, &names);
+ if(e != nil) {
+ tkfreeobj(tk);
+ return e;
+ }
+ tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd));
+
+ e = tkbindings(t, tk, b, nelem(b));
+ if(e != nil) {
+ tkfreeobj(tk);
+ return e;
+ }
+
+ 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);
+}
+
+char*
+tklistbcget(Tk *tk, char *arg, char **val)
+{
+ TkOptab tko[3];
+ TkListbox *tkl = TKobj(TkListbox, tk);
+
+ tko[0].ptr = tk;
+ tko[0].optab = tkgeneric;
+ tko[1].ptr = tkl;
+ tko[1].optab = opts;
+ tko[2].ptr = nil;
+
+ return tkgencget(tko, arg, val, tk->env->top);
+}
+
+void
+tkfreelistb(Tk *tk)
+{
+ TkLentry *e, *next;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ for(e = l->head; e; e = next) {
+ next = e->link;
+ free(e);
+ }
+ if(l->xscroll != nil)
+ free(l->xscroll);
+ if(l->yscroll != nil)
+ free(l->yscroll);
+}
+
+char*
+tkdrawlistb(Tk *tk, Point orig)
+{
+ Point p;
+ TkEnv *env;
+ TkLentry *e;
+ int lh, w, n, ly;
+ Rectangle r, a;
+ Image *i, *fg;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ env = tk->env;
+
+ r.min = ZP;
+ r.max.x = tk->act.width + 2*tk->borderwidth;
+ r.max.y = tk->act.height + 2*tk->borderwidth;
+ i = tkitmp(env, r.max, TkCbackgnd);
+ if(i == nil)
+ return nil;
+
+ w = tk->act.width;
+ if (w < l->nwidth)
+ w = l->nwidth;
+ lh = lineheight(tk);
+ ly = tk->borderwidth;
+ p.x = tk->borderwidth+l->sborderwidth+tk->highlightwidth+Listpadx-l->xdelta;
+ p.y = tk->borderwidth+l->sborderwidth+tk->highlightwidth;
+ n = 0;
+ for(e = l->head; e && ly < r.max.y; e = e->link) {
+ if(n++ < l->yelem)
+ continue;
+
+ a.min.x = tk->borderwidth;
+ a.min.y = ly;
+ a.max.x = a.min.x + tk->act.width;
+ a.max.y = a.min.y + lh;
+ if(e->flag & Tkactivated) {
+ draw(i, a, tkgc(env, TkCselectbgnd), nil, ZP);
+ }
+
+ if(e->flag & Tkactivated)
+ fg = tkgc(env, TkCselectfgnd);
+ else
+ fg = tkgc(env, TkCforegnd);
+ string(i, p, fg, p, env->font, e->text);
+ if((e->flag & Tkactive) && tkhaskeyfocus(tk)) {
+ a.min.x = tk->borderwidth-l->xdelta;
+ a.max.x = a.min.x+w;
+ a = insetrect(a, l->sborderwidth);
+ tkbox(i, a, tk->highlightwidth, fg);
+ }
+ ly += lh;
+ p.y += lh;
+ }
+
+ tkdrawrelief(i, tk, ZP, TkCbackgnd, tk->relief);
+
+ p.x = tk->act.x + orig.x;
+ p.y = tk->act.y + orig.y;
+ r = rectaddpt(r, p);
+ draw(tkimageof(tk), r, i, nil, ZP);
+
+ return nil;
+}
+
+int
+tklindex(Tk *tk, char *buf)
+{
+ int index;
+ TkListbox *l;
+ TkLentry *e, *s;
+
+ l = TKobj(TkListbox, tk);
+
+ if(*buf == '@') {
+ while(*buf && *buf != ',')
+ buf++;
+ index = l->yelem + atoi(buf+1)/lineheight(tk);
+ if (index < 0)
+ return 0;
+ if (index > l->nitem)
+ return l->nitem;
+ return index;
+ }
+ if(*buf >= '0' && *buf <= '9')
+ return atoi(buf);
+
+ if(strcmp(buf, "end") == 0) {
+ if(l->nitem == 0)
+ return 0;
+ return l->nitem-1;
+ }
+
+ index = 0;
+ if(strcmp(buf, "active") == 0)
+ s = l->active;
+ else
+ if(strcmp(buf, "anchor") == 0)
+ s = l->anchor;
+ else
+ return -1;
+
+ for(e = l->head; e; e = e->link) {
+ if(e == s)
+ return index;
+ index++;
+ }
+ return -1;
+}
+
+void
+tklistsv(Tk *tk)
+{
+ TkListbox *l;
+ int nl, lh, top, bot;
+ char val[Tkminitem], cmd[Tkmaxitem], *v, *e;
+
+ l = TKobj(TkListbox, tk);
+ if(l->yscroll == nil)
+ return;
+
+ top = 0;
+ bot = TKI2F(1);
+
+ if(l->nitem != 0) {
+ lh = lineheight(tk);
+ nl = tk->act.height/lh; /* Lines in the box */
+ top = TKI2F(l->yelem)/l->nitem;
+ bot = TKI2F(l->yelem+nl)/l->nitem;
+ }
+
+ v = tkfprint(val, top);
+ *v++ = ' ';
+ tkfprint(v, bot);
+ snprint(cmd, sizeof(cmd), "%s %s", l->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
+tklistsh(Tk *tk)
+{
+ int nl, top, bot;
+ char val[Tkminitem], cmd[Tkmaxitem], *v, *e;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ if(l->xscroll == nil)
+ return;
+
+ top = 0;
+ bot = TKI2F(1);
+
+ if(l->nwidth != 0) {
+ nl = tk->act.width;
+ top = TKI2F(l->xdelta)/l->nwidth;
+ bot = TKI2F(l->xdelta+nl)/l->nwidth;
+ }
+
+ v = tkfprint(val, top);
+ *v++ = ' ';
+ tkfprint(v, bot);
+ snprint(cmd, sizeof(cmd), "%s %s", l->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);
+}
+
+void
+tklistbgeom(Tk *tk)
+{
+ tklistsv(tk);
+ tklistsh(tk);
+}
+
+static void
+listbresize(Tk *tk)
+{
+ TkLentry *e;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ l->nwidth = 0;
+ for (e = l->head; e != nil; e = e->link) {
+ e->width = stringwidth(tk->env->font, e->text)+2*(Listpadx+l->sborderwidth+tk->highlightwidth);
+ if(e->width > l->nwidth)
+ l->nwidth = e->width;
+ }
+ tklistbgeom(tk);
+}
+
+
+/* Widget Commands (+ means implemented)
+ +activate
+ bbox
+ +cget
+ +configure
+ +curselection
+ +delete
+ +get
+ +index
+ +insert
+ +nearest
+ +see
+ +selection
+ +size
+ +xview
+ +yview
+*/
+
+char*
+tklistbconf(Tk *tk, char *arg, char **val)
+{
+ char *e;
+ TkGeom g;
+ int bd, sbw, hlw;
+ TkOptab tko[3];
+ Font *f;
+ TkListbox *tkl = TKobj(TkListbox, tk);
+
+ sbw = tkl->sborderwidth;
+ hlw = tk->highlightwidth;
+ f = tk->env->font;
+ tko[0].ptr = tk;
+ tko[0].optab = tkgeneric;
+ tko[1].ptr = tkl;
+ tko[1].optab = opts;
+ tko[2].ptr = nil;
+
+ if(*arg == '\0')
+ return tkconflist(tko, val);
+
+ g = tk->req;
+ bd = tk->borderwidth;
+ e = tkparse(tk->env->top, arg, tko, nil);
+ tksettransparent(tk, tkhasalpha(tk->env, TkCbackgnd));
+ tkgeomchg(tk, &g, bd);
+
+ if (sbw != tkl->sborderwidth || f != tk->env->font || hlw != tk->highlightwidth)
+ listbresize(tk);
+ tk->dirty = tkrect(tk, 1);
+ return e;
+}
+
+static void
+entryactivate(Tk *tk, int index)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+ TkLentry *e;
+ int flag = Tkactive;
+
+ if (l->selmode == TKbrowse)
+ flag |= Tkactivated;
+ for(e = l->head; e; e = e->link) {
+ if(index-- == 0) {
+ e->flag |= flag;
+ l->active = e;
+ } else
+ e->flag &= ~flag;
+ }
+ tk->dirty = tkrect(tk, 1);
+}
+
+char*
+tklistbactivate(Tk *tk, char *arg, char **val)
+{
+ int index;
+ char buf[Tkmaxitem];
+
+ USED(val);
+ tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ index = tklindex(tk, buf);
+ if(index == -1)
+ return TkBadix;
+
+ entryactivate(tk, index);
+ return nil;
+}
+
+char*
+tklistbnearest(Tk *tk, char *arg, char **val)
+{
+ int lh, y, index;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ lh = lineheight(tk); /* Line height */
+ y = atoi(arg);
+ index = l->yelem + y/lh;
+ if(index > l->nitem)
+ index = l->nitem;
+ return tkvalue(val, "%d", index);
+}
+
+char*
+tklistbindex(Tk *tk, char *arg, char **val)
+{
+ int index;
+ char buf[Tkmaxitem];
+ tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ index = tklindex(tk, buf);
+ if(index == -1)
+ return TkBadix;
+ return tkvalue(val, "%d", index);
+}
+
+char*
+tklistbsize(Tk *tk, char *arg, char **val)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ USED(arg);
+ return tkvalue(val, "%d", l->nitem);
+}
+
+char*
+tklistbinsert(Tk *tk, char *arg, char **val)
+{
+ int n, index;
+ TkListbox *l;
+ TkLentry *e, **el;
+ char *tbuf, buf[Tkmaxitem];
+
+ USED(val);
+ l = TKobj(TkListbox, tk);
+
+ arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ if(strcmp(buf, "end") == 0) {
+ el = &l->head;
+ if(*el != nil) {
+ for(e = *el; e->link; e = e->link)
+ ;
+ el = &e->link;
+ }
+ }
+ else {
+ index = tklindex(tk, buf);
+ if(index == -1)
+ return TkBadix;
+ el = &l->head;
+ for(e = *el; e && index-- > 0; e = e->link)
+ el = &e->link;
+ }
+
+ n = strlen(arg);
+ if(n > Tkmaxitem) {
+ n = (n*3)/2;
+ tbuf = malloc(n);
+ if(tbuf == nil)
+ return TkNomem;
+ }
+ else {
+ tbuf = buf;
+ n = sizeof(buf);
+ }
+
+ while(*arg) {
+ arg = tkword(tk->env->top, arg, tbuf, &tbuf[n], nil);
+ e = malloc(sizeof(TkLentry)+strlen(tbuf)+1);
+ if(e == nil)
+ return TkNomem;
+
+ e->flag = 0;
+ strcpy(e->text, tbuf);
+ e->link = *el;
+ *el = e;
+ el = &e->link;
+ e->width = stringwidth(tk->env->font, e->text)+2*(Listpadx+l->sborderwidth+tk->highlightwidth);
+ if(e->width > l->nwidth)
+ l->nwidth = e->width;
+ l->nitem++;
+ }
+
+ if(tbuf != buf)
+ free(tbuf);
+
+ tklistbgeom(tk);
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+}
+
+int
+tklistbrange(Tk *tk, char *arg, int *s, int *e)
+{
+ char buf[Tkmaxitem];
+
+ arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ *s = tklindex(tk, buf);
+ if(*s == -1)
+ return -1;
+ *e = *s;
+ if(*arg == '\0')
+ return 0;
+
+ tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ *e = tklindex(tk, buf);
+ if(*e == -1)
+ return -1;
+ return 0;
+}
+
+char*
+tklistbselection(Tk *tk, char *arg, char **val)
+{
+ TkTop *t;
+ TkLentry *f;
+ TkListbox *l;
+ int s, e, indx;
+ char buf[Tkmaxitem];
+
+ l = TKobj(TkListbox, tk);
+
+ t = tk->env->top;
+ arg = tkword(t, arg, buf, buf+sizeof(buf), nil);
+ if(strcmp(buf, "includes") == 0) {
+ tkword(t, arg, buf, buf+sizeof(buf), nil);
+ indx = tklindex(tk, buf);
+ if(indx == -1)
+ return TkBadix;
+ for(f = l->head; f && indx > 0; f = f->link)
+ indx--;
+ s = 0;
+ if(f && (f->flag&Tkactivated))
+ s = 1;
+ return tkvalue(val, "%d", s);
+ }
+
+ if(strcmp(buf, "anchor") == 0) {
+ tkword(t, arg, buf, buf+sizeof(buf), nil);
+ indx = tklindex(tk, buf);
+ if(indx == -1)
+ return TkBadix;
+ for(f = l->head; f && indx > 0; f = f->link)
+ indx--;
+ if(f != nil)
+ l->anchor = f;
+ return nil;
+ }
+ indx = 0;
+ if(strcmp(buf, "clear") == 0) {
+ if(tklistbrange(tk, arg, &s, &e) != 0)
+ return TkBadix;
+ for(f = l->head; f; f = f->link) {
+ if(indx <= e && indx++ >= s)
+ f->flag &= ~Tkactivated;
+ }
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+ }
+ if(strcmp(buf, "set") == 0) {
+ if(tklistbrange(tk, arg, &s, &e) != 0)
+ return TkBadix;
+ for(f = l->head; f; f = f->link) {
+ if(indx <= e && indx++ >= s)
+ f->flag |= Tkactivated;
+ }
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+ }
+ return TkBadcm;
+}
+
+char*
+tklistbdelete(Tk *tk, char *arg, char **val)
+{
+ TkLentry *e, **el;
+ int start, end, indx, bh;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ USED(val);
+ if(tklistbrange(tk, arg, &start, &end) != 0)
+ return TkBadix;
+
+ indx = 0;
+ el = &l->head;
+ for(e = l->head; e && indx < start; e = e->link) {
+ indx++;
+ el = &e->link;
+ }
+ while(e != nil && indx <= end) {
+ *el = e->link;
+ if(e->width == l->nwidth)
+ l->nwidth = 0;
+ if (e == l->anchor)
+ l->anchor = nil;
+ if (e == l->active)
+ l->active = nil;
+ free(e);
+ e = *el;
+ indx++;
+ l->nitem--;
+ }
+ if(l->nwidth == 0) {
+ for(e = l->head; e; e = e->link)
+ if(e->width > l->nwidth)
+ l->nwidth = e->width;
+ }
+ bh = tk->act.height/lineheight(tk); /* Box height */
+ if(l->yelem + bh > l->nitem)
+ l->yelem = l->nitem - bh;
+ if(l->yelem < 0)
+ l->yelem = 0;
+
+ tklistbgeom(tk);
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+}
+
+char*
+tklistbget(Tk *tk, char *arg, char **val)
+{
+ TkLentry *e;
+ char *r, *fmt;
+ int start, end, indx;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ if(tklistbrange(tk, arg, &start, &end) != 0)
+ return TkBadix;
+
+ indx = 0;
+ for(e = l->head; e && indx < start; e = e->link)
+ indx++;
+ fmt = "%s";
+ while(e != nil && indx <= end) {
+ r = tkvalue(val, fmt, e->text);
+ if(r != nil)
+ return r;
+ indx++;
+ fmt = " %s";
+ e = e->link;
+ }
+ return nil;
+}
+
+char*
+tklistbcursel(Tk *tk, char *arg, char **val)
+{
+ int indx;
+ TkLentry *e;
+ char *r, *fmt;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ USED(arg);
+ indx = 0;
+ fmt = "%d";
+ for(e = l->head; e; e = e->link) {
+ if(e->flag & Tkactivated) {
+ r = tkvalue(val, fmt, indx);
+ if(r != nil)
+ return r;
+ fmt = " %d";
+ }
+ indx++;
+ }
+ return nil;
+}
+
+static char*
+tklistbview(Tk *tk, char *arg, char **val, int nl, int *posn, int max)
+{
+ int top, bot, amount;
+ char buf[Tkmaxitem];
+ char *v, *e;
+
+ top = 0;
+ if(*arg == '\0') {
+ if ( max <= nl || max == 0 ) { /* Double test redundant at
+ * this time, but want to
+ * protect against future
+ * calls. -- DBK */
+ top = 0;
+ bot = TKI2F(1);
+ }
+ else {
+ top = TKI2F(*posn)/max;
+ bot = TKI2F(*posn+nl)/max;
+ }
+ v = tkfprint(buf, top);
+ *v++ = ' ';
+ tkfprint(v, bot);
+ return tkvalue(val, "%s", buf);
+ }
+
+ arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ if(strcmp(buf, "moveto") == 0) {
+ e = tkfracword(tk->env->top, &arg, &top, nil);
+ if (e != nil)
+ return e;
+ *posn = TKF2I((top+1)*max);
+ }
+ else
+ if(strcmp(buf, "scroll") == 0) {
+ arg = tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ amount = atoi(buf);
+ tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ if(buf[0] == 'p') /* Pages */
+ amount *= nl;
+ *posn += amount;
+ }
+ else {
+ top = tklindex(tk, buf);
+ if(top == -1)
+ return TkBadix;
+ *posn = top;
+ }
+
+ bot = max - nl;
+ if(*posn > bot)
+ *posn = bot;
+ if(*posn < 0)
+ *posn = 0;
+
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+}
+
+static int
+entrysee(Tk *tk, int index)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+ int bh;
+
+ /* Box height in lines */
+ bh = tk->act.height/lineheight(tk);
+ if (bh > l->nitem)
+ bh = l->nitem;
+ if (index >= l->nitem)
+ index = l->nitem -1;
+ if (index < 0)
+ index = 0;
+
+ /* If the item is already visible, do nothing */
+ if (l->nitem == 0 || index >= l->yelem && index < l->yelem+bh)
+ return index;
+
+ if (index < l->yelem)
+ l->yelem = index;
+ else
+ l->yelem = index - (bh-1);
+
+ tklistsv(tk);
+ tk->dirty = tkrect(tk, 1);
+ return index;
+}
+
+char*
+tklistbsee(Tk *tk, char *arg, char **val)
+{
+ int index;
+ char buf[Tkmaxitem];
+
+ USED(val);
+ tkword(tk->env->top, arg, buf, buf+sizeof(buf), nil);
+ index = tklindex(tk, buf);
+ if(index == -1)
+ return TkBadix;
+
+ entrysee(tk, index);
+ return nil;
+}
+
+char*
+tklistbyview(Tk *tk, char *arg, char **val)
+{
+ int bh;
+ char *e;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ bh = tk->act.height/lineheight(tk); /* Box height */
+ e = tklistbview(tk, arg, val, bh, &l->yelem, l->nitem);
+ tklistsv(tk);
+ return e;
+}
+
+char*
+tklistbxview(Tk *tk, char *arg, char **val)
+{
+ char *e;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ e = tklistbview(tk, arg, val, tk->act.width, &l->xdelta, l->nwidth);
+ tklistsh(tk);
+ return e;
+}
+
+static TkLentry*
+entryset(TkListbox *l, int indx, int toggle)
+{
+ TkLentry *e, *anchor;
+
+ anchor = nil;
+ for(e = l->head; e; e = e->link) {
+ if (indx-- == 0) {
+ anchor = e;
+ if (toggle) {
+ e->flag ^= Tkactivated;
+ break;
+ } else
+ e->flag |= Tkactivated;
+ continue;
+ }
+ if (!toggle)
+ e->flag &= ~Tkactivated;
+ }
+ return anchor;
+}
+
+static void
+selectto(TkListbox *l, int indx)
+{
+ TkLentry *e;
+ int inrange;
+
+ if (l->anchor == nil)
+ return;
+ inrange = 0;
+ for(e = l->head; e; e = e->link) {
+ if(indx == 0)
+ inrange = !inrange;
+ if(e == l->anchor)
+ inrange = !inrange;
+ if(inrange || e == l->anchor || indx == 0)
+ e->flag |= Tkactivated;
+ else
+ e->flag &= ~Tkactivated;
+ indx--;
+ }
+}
+
+static char*
+dragto(Tk *tk, int y)
+{
+ int indx;
+ TkLentry *e;
+ TkListbox *l = TKobj(TkListbox, tk);
+
+ indx = y/lineheight(tk);
+ if (y < 0)
+ indx--; /* int division rounds towards 0 */
+ if (y < tk->act.height && indx >= l->nitem)
+ return nil;
+ indx = entrysee(tk, l->yelem+indx);
+ entryactivate(tk, indx);
+
+ if(l->selmode == TKsingle || l->selmode == TKmultiple)
+ return nil;
+
+ if(l->selmode == TKbrowse) {
+ for(e = l->head; e; e = e->link) {
+ if(indx-- == 0) {
+ if (e == l->anchor)
+ return nil;
+ l->anchor = e;
+ e->flag |= Tkactivated;
+ } else
+ e->flag &= ~Tkactivated;
+ }
+ return nil;
+ }
+ /* extended selection mode */
+ selectto(l, indx);
+ tk->dirty = tkrect(tk, 1);
+ return nil;
+}
+
+static void
+autoselect(Tk *tk, void *v, int cancelled)
+{
+ Point pt;
+ int y, eh, ne;
+
+ USED(v);
+ if (cancelled)
+ return;
+
+ pt = tkposn(tk);
+ pt.y += tk->borderwidth;
+ y = tk->env->top->ctxt->mstate.y;
+ y -= pt.y;
+ eh = lineheight(tk);
+ ne = tk->act.height/eh;
+ if (y >= 0 && y < eh*ne)
+ return;
+ dragto(tk, y);
+ tkdirty(tk);
+ tkupdate(tk->env->top);
+}
+
+static char*
+tklistbbutton1p(Tk *tk, char *arg, char **val)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+ int y, indx;
+
+ USED(val);
+
+ y = atoi(arg);
+ indx = y/lineheight(tk);
+ indx += l->yelem;
+ if (indx < l->nitem) {
+ l->anchor = entryset(l, indx, l->selmode == TKmultiple);
+ entryactivate(tk, indx);
+ entrysee(tk, indx);
+ }
+ tkrepeat(tk, autoselect, nil, TkRptpause, TkRptinterval);
+ return nil;
+}
+
+char *
+tklistbbutton1r(Tk *tk, char *arg, char **val)
+{
+ USED(arg);
+ USED(val);
+ tkcancelrepeat(tk);
+ return nil;
+}
+
+char*
+tklistbbutton1m(Tk *tk, char *arg, char **val)
+{
+ int y, eh, ne;
+ USED(val);
+
+ eh = lineheight(tk);
+ ne = tk->act.height/eh;
+ y = atoi(arg);
+ /* If outside the box, let autoselect handle it */
+ if (y < 0 || y >= ne * eh)
+ return nil;
+ return dragto(tk, y);
+}
+
+char*
+tklistbkey(Tk *tk, char *arg, char **val)
+{
+ TkListbox *l = TKobj(TkListbox, tk);
+ TkLentry *e;
+ int key, active;
+ USED(val);
+
+ if(tk->flag & Tkdisabled)
+ return nil;
+
+ key = atoi(arg);
+ active = 0;
+ for (e = l->head; e != nil; e = e->link) {
+ if (e->flag & Tkactive)
+ break;
+ active++;
+ }
+
+ if (key == '\n' || key == ' ') {
+ l->anchor = entryset(l, active, l->selmode == TKmultiple);
+ tk->dirty = tkrect(tk, 0);
+ return nil;
+ }
+ if (key == Up)
+ active--;
+ else if (key == Down)
+ active++;
+ else
+ return nil;
+
+ if (active < 0)
+ active = 0;
+ if (active >= l->nitem)
+ active = l->nitem-1;
+ entryactivate(tk, active);
+ if (l->selmode == TKextended) {
+ selectto(l, active);
+ tk->dirty = tkrect(tk, 0);
+ }
+ entrysee(tk, active);
+ return nil;
+}
+
+static
+TkCmdtab tklistcmd[] =
+{
+ "activate", tklistbactivate,
+ "cget", tklistbcget,
+ "configure", tklistbconf,
+ "curselection", tklistbcursel,
+ "delete", tklistbdelete,
+ "get", tklistbget,
+ "index", tklistbindex,
+ "insert", tklistbinsert,
+ "nearest", tklistbnearest,
+ "selection", tklistbselection,
+ "see", tklistbsee,
+ "size", tklistbsize,
+ "xview", tklistbxview,
+ "yview", tklistbyview,
+ "tkListbButton1P", tklistbbutton1p,
+ "tkListbButton1R", tklistbbutton1r,
+ "tkListbButton1MP", tklistbbutton1m,
+ "tkListbKey", tklistbkey,
+ nil
+};
+
+TkMethod listboxmethod = {
+ "listbox",
+ tklistcmd,
+ tkfreelistb,
+ tkdrawlistb,
+ tklistbgeom
+};
generated by cgit v1.2.3 (git 2.46.0) at 2025-12-10 16:40:09 +0000