#include "lib9.h"#include "draw.h"#include "tk.h" #define O(t, e) ((long)(&((t*)0)->e)) /* Layout constants */enum { Triangle = 10, /* Height of scroll bar triangle */ Elembw = 2, /* border around elements (triangles etc.) */}; typedef struct TkScroll TkScroll;struct TkScroll{ int activer; int orient; /* Horitontal or Vertical */ int dragpix; /* Scroll delta in button drag */ int dragtop; int dragbot; int jump; /* Jump scroll enable */ int flag; /* Display flags */ int top; /* Top fraction */ int bot; /* Bottom fraction */ int a1; /* Pixel top/left arrow1 */ int t1; /* Pixel top/left trough */ int t2; /* Pixel top/left lower trough */ int a2; /* Pixel top/left arrow2 */ char* cmd;}; enum { ActiveA1 = (1<<0), /* Scrollbar control */ ActiveA2 = (1<<1), ActiveB1 = (1<<2), ButtonA1 = (1<<3), ButtonA2 = (1<<4), ButtonB1 = (1<<5), Autorepeat = (1<<6)}; staticTkOption opts[] ={ "activerelief", OPTstab, O(TkScroll, activer), tkrelief, "command", OPTtext, O(TkScroll, cmd), nil, "elementborderwidth", OPTignore, 0, nil, /* deprecated */ "jump", OPTstab, O(TkScroll, jump), tkbool, "orient", OPTstab, O(TkScroll, orient), tkorient, nil}; staticTkEbind b[] = { {TkLeave, "%W activate {}"}, {TkEnter, "%W activate [%W identify %x %y]"}, {TkMotion, "%W activate [%W identify %x %y]"}, {TkButton1P|TkMotion, "%W tkScrollDrag %x %y"}, {TkButton1P, "%W tkScrolBut1P %x %y"}, {TkButton1P|TkDouble, "%W tkScrolBut1P %x %y"}, {TkButton1R, "%W tkScrolBut1R; %W activate [%W identify %x %y]"}, {TkButton2P, "%W tkScrolBut2P [%W fraction %x %y]"},}; static char*tkinitscroll(Tk *tk){ int gap; TkScroll *tks; tks = TKobj(TkScroll, tk); gap = 2*tk->borderwidth; if(tks->orient == Tkvertical) { if(tk->req.width == 0) tk->req.width = Triangle + gap; if(tk->req.height == 0) tk->req.height = 2*Triangle + gap + 6*Elembw; } else { if(tk->req.width == 0) tk->req.width = 2*Triangle + gap + 6*Elembw; if(tk->req.height == 0) tk->req.height = Triangle + gap; } return tkbindings(tk->env->top, tk, b, nelem(b));} char*tkscrollbar(TkTop *t, char *arg, char **ret){ Tk *tk; char *e; TkName *names; TkScroll *tks; TkOptab tko[3]; tk = tknewobj(t, TKscrollbar, sizeof(Tk)+sizeof(TkScroll)); if(tk == nil) return TkNomem; tks = TKobj(TkScroll, tk); tk->relief = TKsunken; tk->borderwidth = 2; tks->activer = TKraised; tks->orient = Tkvertical; tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; 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 = tkinitscroll(tk); 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);} static char*tkscrollcget(Tk *tk, char *arg, char **val){ TkOptab tko[3]; TkScroll *tks = TKobj(TkScroll, tk); tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; tko[1].optab = opts; tko[2].ptr = nil; return tkgencget(tko, arg, val, tk->env->top);} voidtkfreescrlb(Tk *tk){ TkScroll *tks = TKobj(TkScroll, tk); if(tks->cmd != nil) free(tks->cmd);} static voidtkvscroll(Tk *tk, TkScroll *tks, Image *i, Point size){ TkEnv *e; Rectangle r; Point p[3], o; Image *d, *l, *t; int bo, w, h, triangle, bgnd; e = tk->env; triangle = tk->act.width - Elembw; bo = tk->borderwidth + Elembw; p[0].x = size.x/2; p[0].y = bo; p[1].x = p[0].x - triangle/2; p[1].y = p[0].y + triangle; p[2].x = p[0].x + triangle/2; p[2].y = p[0].y + triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA1|ButtonA1)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA1) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, d, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a1 = p[2].y; h = p[2].y + Elembw; p[0].y = size.y - bo - 1; p[1].y = p[0].y - triangle; p[2].y = p[0].y - triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA2|ButtonA2)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA2) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, l, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a2 = p[2].y; o.x = tk->borderwidth ; o.y = bo + triangle + 2*Elembw; w = size.x - 2*bo; h = p[2].y - 2*Elembw - h - 2*tk->borderwidth; o.y += TKF2I(tks->top*h); h *= tks->bot - tks->top; h = TKF2I(h); bgnd = TkCbackgnd; if(tks->flag & (ActiveB1|ButtonB1)) { r.min = o; r.max.x = o.x + w + 2*2; r.max.y = o.y + h + 2*2; bgnd = TkCactivebgnd; draw(i, r, tkgc(e, bgnd), nil, ZP); } tks->t1 = o.y - Elembw; tks->t2 = o.y + h + Elembw; l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonB1) tkbevel(i, o, w, h, 2, d, l); else tkbevel(i, o, w, h, 2, l, d);} static voidtkhscroll(Tk *tk, TkScroll *tks, Image *i, Point size){ TkEnv *e; Rectangle r; Point p[3], o; Image *d, *l, *t; int bo, w, h, triangle, bgnd; e = tk->env; triangle = tk->act.height - Elembw; bo = tk->borderwidth + Elembw; p[0].x = bo; p[0].y = size.y/2; p[1].x = p[0].x + triangle; p[1].y = p[0].y - triangle/2 + 1; p[2].x = p[0].x + triangle; p[2].y = p[0].y + triangle/2 - 2; bgnd = TkCbackgnd; if(tks->flag & (ActiveA1|ButtonA1)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA1) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, d, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a1 = p[2].x; w = p[2].x + Elembw; p[0].x = size.x - bo - 1; p[1].x = p[0].x - triangle; p[2].x = p[0].x - triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA2|ButtonA2)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA2) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, l, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a2 = p[2].x; o.x = bo + triangle + 2*Elembw; o.y = tk->borderwidth; w = p[2].x - 2*Elembw - w - 2*tk->borderwidth; h = size.y - 2*bo; o.x += TKF2I(tks->top*w); w *= tks->bot - tks->top; w = TKF2I(w); bgnd = TkCbackgnd; if(tks->flag & (ActiveB1|ButtonB1)) { r.min = o; r.max.x = o.x + w + 2*2; r.max.y = o.y + h + 2*2; bgnd = TkCactivebgnd; draw(i, r, tkgc(e, bgnd), nil, ZP); } tks->t1 = o.x - Elembw; tks->t2 = o.x + w + Elembw; l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonB1) tkbevel(i, o, w, h, 2, d, l); else tkbevel(i, o, w, h, 2, l, d);} char*tkdrawscrlb(Tk *tk, Point orig){ Point p; TkEnv *e; Rectangle r; Image *i, *dst; TkScroll *tks = TKobj(TkScroll, tk); e = tk->env; dst = tkimageof(tk); if(dst == nil) return nil; r.min = ZP; r.max.x = tk->act.width + 2*tk->borderwidth; r.max.y = tk->act.height + 2*tk->borderwidth; i = tkitmp(e, r.max, TkCbackgnd); if(i == nil) return nil; if(tks->orient == Tkvertical) tkvscroll(tk, tks, i, r.max); else tkhscroll(tk, tks, i, r.max); 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(dst, r, i, nil, ZP); return nil;} /* Widget Commands (+ means implemented) +activate +cget +configure +delta +fraction +get +identify +set*/ static char*tkscrollconf(Tk *tk, char *arg, char **val){ char *e; TkGeom g; int bd; TkOptab tko[3]; TkScroll *tks = TKobj(TkScroll, tk); tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; 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); tk->dirty = tkrect(tk, 1); return e;} static char*tkscrollactivate(Tk *tk, char *arg, char **val){ int s, gotarg; char buf[Tkmaxitem]; TkScroll *tks = TKobj(TkScroll, tk); USED(val); tkword(tk->env->top, arg, buf, buf+sizeof(buf), &gotarg); s = tks->flag; if (!gotarg) { char *a; if (s & ActiveA1) a = "arrow1"; else if (s & ActiveA2) a = "arrow2"; else if (s & ActiveB1) a = "slider"; else a = ""; return tkvalue(val, a); } tks->flag &= ~(ActiveA1 | ActiveA2 | ActiveB1); if(strcmp(buf, "arrow1") == 0) tks->flag |= ActiveA1; else if(strcmp(buf, "arrow2") == 0) tks->flag |= ActiveA2; else if(strcmp(buf, "slider") == 0) tks->flag |= ActiveB1; if(s ^ tks->flag) tk->dirty = tkrect(tk, 1); return nil;} static char*tkscrollset(Tk *tk, char *arg, char **val){ TkTop *t; char *e; TkScroll *tks = TKobj(TkScroll, tk); USED(val); t = tk->env->top; e = tkfracword(t, &arg, &tks->top, nil); if (e != nil) return e; e = tkfracword(t, &arg, &tks->bot, nil); if (e != nil) return e; if(tks->top < 0) tks->top = 0; if(tks->top > TKI2F(1)) tks->top = TKI2F(1); if(tks->bot < 0) tks->bot = 0; if(tks->bot > TKI2F(1)) tks->bot = TKI2F(1); tk->dirty = tkrect(tk, 1); return nil;} static char*tkscrolldelta(Tk *tk, char *arg, char **val){ int l, delta; char buf[Tkmaxitem]; TkScroll *tks = TKobj(TkScroll, tk); Lines 1–500 of 781. Load more
#include "lib9.h" #include "draw.h" #include "tk.h" #define O(t, e) ((long)(&((t*)0)->e)) /* Layout constants */ enum { Triangle = 10, /* Height of scroll bar triangle */ Elembw = 2, /* border around elements (triangles etc.) */ }; typedef struct TkScroll TkScroll; struct TkScroll { int activer; int orient; /* Horitontal or Vertical */ int dragpix; /* Scroll delta in button drag */ int dragtop; int dragbot; int jump; /* Jump scroll enable */ int flag; /* Display flags */ int top; /* Top fraction */ int bot; /* Bottom fraction */ int a1; /* Pixel top/left arrow1 */ int t1; /* Pixel top/left trough */ int t2; /* Pixel top/left lower trough */ int a2; /* Pixel top/left arrow2 */ char* cmd; }; enum { ActiveA1 = (1<<0), /* Scrollbar control */ ActiveA2 = (1<<1), ActiveB1 = (1<<2), ButtonA1 = (1<<3), ButtonA2 = (1<<4), ButtonB1 = (1<<5), Autorepeat = (1<<6) }; static TkOption opts[] = { "activerelief", OPTstab, O(TkScroll, activer), tkrelief, "command", OPTtext, O(TkScroll, cmd), nil, "elementborderwidth", OPTignore, 0, nil, /* deprecated */ "jump", OPTstab, O(TkScroll, jump), tkbool, "orient", OPTstab, O(TkScroll, orient), tkorient, nil }; static TkEbind b[] = { {TkLeave, "%W activate {}"}, {TkEnter, "%W activate [%W identify %x %y]"}, {TkMotion, "%W activate [%W identify %x %y]"}, {TkButton1P|TkMotion, "%W tkScrollDrag %x %y"}, {TkButton1P, "%W tkScrolBut1P %x %y"}, {TkButton1P|TkDouble, "%W tkScrolBut1P %x %y"}, {TkButton1R, "%W tkScrolBut1R; %W activate [%W identify %x %y]"}, {TkButton2P, "%W tkScrolBut2P [%W fraction %x %y]"}, }; static char* tkinitscroll(Tk *tk) { int gap; TkScroll *tks; tks = TKobj(TkScroll, tk); gap = 2*tk->borderwidth; if(tks->orient == Tkvertical) { if(tk->req.width == 0) tk->req.width = Triangle + gap; if(tk->req.height == 0) tk->req.height = 2*Triangle + gap + 6*Elembw; } else { if(tk->req.width == 0) tk->req.width = 2*Triangle + gap + 6*Elembw; if(tk->req.height == 0) tk->req.height = Triangle + gap; } return tkbindings(tk->env->top, tk, b, nelem(b)); } char* tkscrollbar(TkTop *t, char *arg, char **ret) { Tk *tk; char *e; TkName *names; TkScroll *tks; TkOptab tko[3]; tk = tknewobj(t, TKscrollbar, sizeof(Tk)+sizeof(TkScroll)); if(tk == nil) return TkNomem; tks = TKobj(TkScroll, tk); tk->relief = TKsunken; tk->borderwidth = 2; tks->activer = TKraised; tks->orient = Tkvertical; tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; 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 = tkinitscroll(tk); 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); } static char* tkscrollcget(Tk *tk, char *arg, char **val) { TkOptab tko[3]; TkScroll *tks = TKobj(TkScroll, tk); tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; tko[1].optab = opts; tko[2].ptr = nil; return tkgencget(tko, arg, val, tk->env->top); } void tkfreescrlb(Tk *tk) { TkScroll *tks = TKobj(TkScroll, tk); if(tks->cmd != nil) free(tks->cmd); } static void tkvscroll(Tk *tk, TkScroll *tks, Image *i, Point size) { TkEnv *e; Rectangle r; Point p[3], o; Image *d, *l, *t; int bo, w, h, triangle, bgnd; e = tk->env; triangle = tk->act.width - Elembw; bo = tk->borderwidth + Elembw; p[0].x = size.x/2; p[0].y = bo; p[1].x = p[0].x - triangle/2; p[1].y = p[0].y + triangle; p[2].x = p[0].x + triangle/2; p[2].y = p[0].y + triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA1|ButtonA1)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA1) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, d, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a1 = p[2].y; h = p[2].y + Elembw; p[0].y = size.y - bo - 1; p[1].y = p[0].y - triangle; p[2].y = p[0].y - triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA2|ButtonA2)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA2) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, l, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a2 = p[2].y; o.x = tk->borderwidth ; o.y = bo + triangle + 2*Elembw; w = size.x - 2*bo; h = p[2].y - 2*Elembw - h - 2*tk->borderwidth; o.y += TKF2I(tks->top*h); h *= tks->bot - tks->top; h = TKF2I(h); bgnd = TkCbackgnd; if(tks->flag & (ActiveB1|ButtonB1)) { r.min = o; r.max.x = o.x + w + 2*2; r.max.y = o.y + h + 2*2; bgnd = TkCactivebgnd; draw(i, r, tkgc(e, bgnd), nil, ZP); } tks->t1 = o.y - Elembw; tks->t2 = o.y + h + Elembw; l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonB1) tkbevel(i, o, w, h, 2, d, l); else tkbevel(i, o, w, h, 2, l, d); } static void tkhscroll(Tk *tk, TkScroll *tks, Image *i, Point size) { TkEnv *e; Rectangle r; Point p[3], o; Image *d, *l, *t; int bo, w, h, triangle, bgnd; e = tk->env; triangle = tk->act.height - Elembw; bo = tk->borderwidth + Elembw; p[0].x = bo; p[0].y = size.y/2; p[1].x = p[0].x + triangle; p[1].y = p[0].y - triangle/2 + 1; p[2].x = p[0].x + triangle; p[2].y = p[0].y + triangle/2 - 2; bgnd = TkCbackgnd; if(tks->flag & (ActiveA1|ButtonA1)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA1) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, d, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a1 = p[2].x; w = p[2].x + Elembw; p[0].x = size.x - bo - 1; p[1].x = p[0].x - triangle; p[2].x = p[0].x - triangle; bgnd = TkCbackgnd; if(tks->flag & (ActiveA2|ButtonA2)) { bgnd = TkCactivebgnd; fillpoly(i, p, 3, ~0, tkgc(e, bgnd), p[0]); } l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonA2) { t = d; d = l; l = t; } line(i, p[1], p[2], 0, 0, 1, l, p[1]); line(i, p[2], p[0], 0, 0, 1, d, p[2]); line(i, p[0], p[1], 0, 0, 1, l, p[0]); tks->a2 = p[2].x; o.x = bo + triangle + 2*Elembw; o.y = tk->borderwidth; w = p[2].x - 2*Elembw - w - 2*tk->borderwidth; h = size.y - 2*bo; o.x += TKF2I(tks->top*w); w *= tks->bot - tks->top; w = TKF2I(w); bgnd = TkCbackgnd; if(tks->flag & (ActiveB1|ButtonB1)) { r.min = o; r.max.x = o.x + w + 2*2; r.max.y = o.y + h + 2*2; bgnd = TkCactivebgnd; draw(i, r, tkgc(e, bgnd), nil, ZP); } tks->t1 = o.x - Elembw; tks->t2 = o.x + w + Elembw; l = tkgc(e, bgnd+TkLightshade); d = tkgc(e, bgnd+TkDarkshade); if(tks->flag & ButtonB1) tkbevel(i, o, w, h, 2, d, l); else tkbevel(i, o, w, h, 2, l, d); } char* tkdrawscrlb(Tk *tk, Point orig) { Point p; TkEnv *e; Rectangle r; Image *i, *dst; TkScroll *tks = TKobj(TkScroll, tk); e = tk->env; dst = tkimageof(tk); if(dst == nil) return nil; r.min = ZP; r.max.x = tk->act.width + 2*tk->borderwidth; r.max.y = tk->act.height + 2*tk->borderwidth; i = tkitmp(e, r.max, TkCbackgnd); if(i == nil) return nil; if(tks->orient == Tkvertical) tkvscroll(tk, tks, i, r.max); else tkhscroll(tk, tks, i, r.max); 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(dst, r, i, nil, ZP); return nil; } /* Widget Commands (+ means implemented) +activate +cget +configure +delta +fraction +get +identify +set */ static char* tkscrollconf(Tk *tk, char *arg, char **val) { char *e; TkGeom g; int bd; TkOptab tko[3]; TkScroll *tks = TKobj(TkScroll, tk); tko[0].ptr = tk; tko[0].optab = tkgeneric; tko[1].ptr = tks; 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); tk->dirty = tkrect(tk, 1); return e; } static char* tkscrollactivate(Tk *tk, char *arg, char **val) { int s, gotarg; char buf[Tkmaxitem]; TkScroll *tks = TKobj(TkScroll, tk); USED(val); tkword(tk->env->top, arg, buf, buf+sizeof(buf), &gotarg); s = tks->flag; if (!gotarg) { char *a; if (s & ActiveA1) a = "arrow1"; else if (s & ActiveA2) a = "arrow2"; else if (s & ActiveB1) a = "slider"; else a = ""; return tkvalue(val, a); } tks->flag &= ~(ActiveA1 | ActiveA2 | ActiveB1); if(strcmp(buf, "arrow1") == 0) tks->flag |= ActiveA1; else if(strcmp(buf, "arrow2") == 0) tks->flag |= ActiveA2; else if(strcmp(buf, "slider") == 0) tks->flag |= ActiveB1; if(s ^ tks->flag) tk->dirty = tkrect(tk, 1); return nil; } static char* tkscrollset(Tk *tk, char *arg, char **val) { TkTop *t; char *e; TkScroll *tks = TKobj(TkScroll, tk); USED(val); t = tk->env->top; e = tkfracword(t, &arg, &tks->top, nil); if (e != nil) return e; e = tkfracword(t, &arg, &tks->bot, nil); if (e != nil) return e; if(tks->top < 0) tks->top = 0; if(tks->top > TKI2F(1)) tks->top = TKI2F(1); if(tks->bot < 0) tks->bot = 0; if(tks->bot > TKI2F(1)) tks->bot = TKI2F(1); tk->dirty = tkrect(tk, 1); return nil; } static char* tkscrolldelta(Tk *tk, char *arg, char **val) { int l, delta; char buf[Tkmaxitem]; TkScroll *tks = TKobj(TkScroll, tk);