#include <lib9.h>#include <kernel.h>#include "draw.h"#include "tk.h"#include "canvs.h" #define	O(t, e)		((long)(&((t*)0)->e)) /* Text Options (+ means implemented)	+anchor	+fill	+font	+justify	+stipple	+tags	+text	+width*/ /* Layout constants */enum {	Cvsicursor	= 1,	/* Extra height of insertion cursor in canvas */}; typedef struct TkCtext TkCtext;struct TkCtext{	int	anchor;	Point	anchorp;	int	justify;	int	icursor;	int	focus;	int	pixwidth;	int	pixheight;	int	sell;	int	self;	int	selfrom;	int	sbw;	int	width;	int	nlines;	Image*	stipple;	Image*	pen;	char*	text;	int	tlen;	TkEnv	*env;}; staticTkOption textopts[] ={	"anchor",	OPTstab,	O(TkCtext, anchor),	tkanchor,	"justify",	OPTstab,	O(TkCtext, justify),	tktabjust,	"width",	OPTdist,	O(TkCtext, width),	IAUX(O(TkCtext, env)),	"stipple",	OPTbmap,	O(TkCtext, stipple),	nil,	"text",		OPTtext,	O(TkCtext, text),	nil,	nil}; staticTkOption itemopts[] ={	"tags",		OPTctag,	O(TkCitem, tags),	nil,	"font",		OPTfont,	O(TkCitem, env),	nil,	"fill",		OPTcolr,	O(TkCitem, env),	IAUX(TkCfill),	nil}; static char*tkcvstextgetl(TkCtext *t, Font *font, char *start, int *len){	int w, n;	char *lspc, *posn; 	w = t->width;	if(w <= 0)		w = 1000000; 	n = 0;	lspc = nil;	posn = start;	while(*posn && *posn != '\n') {		if(*posn == ' ')			lspc = posn;		n += stringnwidth(font, posn, 1);		if(n >= w && posn != start) {			if(lspc != nil)				posn = lspc;			*len = posn - start;			if(lspc != nil)				posn++;			return posn;		}		posn++;	}	*len = posn - start;	if(*posn == '\n')		posn++;	return posn;} voidtkcvstextsize(TkCitem *i){	Point o;	Font *font;	TkCtext *t;	Display *d;	char *next, *p;	int len, pixw, locked; 	t = TKobj(TkCtext, i); 	font = i->env->font;	d = i->env->top->display;	t->pixwidth = 0;	t->pixheight = 0; 	p = t->text;	if(p != nil) {		locked = lockdisplay(d);		while(*p) {			next = tkcvstextgetl(t, font, p, &len);			pixw = stringnwidth(font, p, len);			if(pixw > t->pixwidth)				t->pixwidth = pixw;			t->pixheight += font->height;			p = next;		}		if(locked)			unlockdisplay(d);	} 	o = tkcvsanchor(i->p.drawpt[0], t->pixwidth, t->pixheight, t->anchor); 	i->p.bb.min.x = o.x;	i->p.bb.min.y = o.y - Cvsicursor;	i->p.bb.max.x = o.x + t->pixwidth;	i->p.bb.max.y = o.y + t->pixheight + Cvsicursor;	i->p.bb = insetrect(i->p.bb, -2*t->sbw);	t->anchorp = subpt(o, i->p.drawpt[0]);} char*tkcvstextcreat(Tk* tk, char *arg, char **val){	char *e;	TkCtext *t;	TkCitem *i;	TkCanvas *c;	TkOptab tko[3]; 	c = TKobj(TkCanvas, tk); 	i = tkcnewitem(tk, TkCVtext, sizeof(TkCitem)+sizeof(TkCtext));	if(i == nil)		return TkNomem; 	t = TKobj(TkCtext, i);	t->justify = Tkleft;	t->anchor = Tkcenter;	t->sell = -1;	t->self = -1;	t->icursor = -1;	t->sbw = c->sborderwidth;	t->env = tk->env; 	e = tkparsepts(tk->env->top, &i->p, &arg, 0);	if(e != nil) {		tkcvsfreeitem(i);		return e;	}	if(i->p.npoint != 1) {		tkcvsfreeitem(i);		return TkFewpt;	} 	tko[0].ptr = t;	tko[0].optab = textopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil;	e = tkparse(tk->env->top, arg, tko, nil);	if(e != nil) {		tkcvsfreeitem(i);		return e;	}		e = tkcaddtag(tk, i, 1);	if(e != nil) {		tkcvsfreeitem(i);		return e;	} 	t->tlen = 0;	if(t->text != nil)		t->tlen = strlen(t->text); 	tkmkpen(&t->pen, i->env, t->stipple);	tkcvstextsize(i);	e = tkvalue(val, "%d", i->id);	if(e != nil) {		tkcvsfreeitem(i);		return e;	} 	tkcvsappend(c, i); 	tkbbmax(&c->update, &i->p.bb);	tkcvssetdirty(tk);	return nil;} char*tkcvstextcget(TkCitem *i, char *arg, char **val){	TkOptab tko[3];	TkCtext *t = TKobj(TkCtext, i); 	tko[0].ptr = t;	tko[0].optab = textopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil; 	return tkgencget(tko, arg, val, i->env->top);} char*tkcvstextconf(Tk *tk, TkCitem *i, char *arg){	char *e;	TkOptab tko[3];	TkCtext *t = TKobj(TkCtext, i); 	tko[0].ptr = t;	tko[0].optab = textopts;	tko[1].ptr = i;	tko[1].optab = itemopts;	tko[2].ptr = nil; 	e = tkparse(tk->env->top, arg, tko, nil); 	t->tlen = 0;	if(t->text != nil)		t->tlen = strlen(t->text); 	tkmkpen(&t->pen, i->env, t->stipple);	tkcvstextsize(i); 	return e;} voidtkcvstextfree(TkCitem *i){	TkCtext *t; 	t = TKobj(TkCtext, i);	if(t->stipple != nil)		freeimage(t->stipple);	if(t->pen != nil)		freeimage(t->pen);	if(t->text != nil)		free(t->text);} voidtkcvstextdraw(Image *img, TkCitem *i, TkEnv *pe){	TkEnv *e;	TkCtext *t;	Point o, dp;	Rectangle r;	char *p, *next;	Image *pen;	int len, lw, end, start; 	t = TKobj(TkCtext, i); 	e = i->env;	pen = t->pen;	if(pen == nil) {		if (e->set & (1<<TkCfill))			pen = tkgc(e, TkCfill);		else			pen = img->display->black;	}  	o = addpt(t->anchorp, i->p.drawpt[0]);	p = t->text;	while(p && *p) {		next = tkcvstextgetl(t, e->font, p, &len);		dp = o;		if(t->justify != Tkleft) {			lw = stringnwidth(e->font, p, len);			if(t->justify == Tkcenter)				dp.x += (t->pixwidth - lw)/2;			else			if(t->justify == Tkright)				dp.x += t->pixwidth - lw;		}		lw = p - t->text;		if(t->self != -1 && lw+len > t->self) {			if(t->sell >= t->self) {				start = t->self - lw;				end = t->sell - lw;			}			else {				start = t->sell - lw;				end = t->self - lw;			}			if(start < 0)				r.min.x = o.x;			else				r.min.x = dp.x + stringnwidth(e->font, p, start);			r.min.y = dp.y;			if(end > len)				r.max.x = o.x + t->pixwidth;			else				r.max.x = dp.x + stringnwidth(e->font, p, end);			r.max.y = dp.y + e->font->height;			tktextsdraw(img, r, pe, t->sbw);			r.max.y = dp.y;			if(start > 0)				stringn(img, dp, pen, dp, e->font, p, start);			if(end > start)				stringn(img, r.min, tkgc(pe, TkCselectfgnd), r.min, e->font, p+start, end-start);			if(len > end)				stringn(img, r.max, pen, r.max, e->font, p+end, len-end);		}		else			stringn(img, dp, pen, dp, e->font, p, len);		if(t->focus) {			lw = p - t->text;			if(t->icursor >= lw && t->icursor <= lw+len) {				lw = t->icursor - lw;				if(lw > 0)					lw = stringnwidth(e->font, p, lw);				r.min.x = dp.x + lw;				r.min.y = dp.y - 1;				r.max.x = r.min.x + 2;				r.max.y = r.min.y + e->font->height + 1;				draw(img, r, pen, nil, ZP);			}		}		o.y += e->font->height;		p = next;	}} char*tkcvstextcoord(TkCitem *i, char *arg, int x, int y){	char *e;	TkCpoints p; 	if(arg == nil) {		tkxlatepts(i->p.parampt, i->p.npoint, x, y);		tkxlatepts(i->p.drawpt, i->p.npoint, TKF2I(x), TKF2I(y));		i->p.bb = rectaddpt(i->p.bb, Pt(TKF2I(x), TKF2I(y)));	}	else {		e = tkparsepts(i->env->top, &p, &arg, 0);		if(e != nil)			return e;		if(p.npoint != 1) {			tkfreepoint(&p);			return TkFewpt;		}		tkfreepoint(&i->p);		i->p = p;		tkcvstextsize(i);	}	return nil;} inttkcvstextsrch(TkCitem *i, int x, int y){	TkCtext *t;	Font *font;	Display *d;	char *p, *next;	int n, len, locked; 	t = TKobj(TkCtext, i); 	n = 0;	font = i->env->font;	d = i->env->top->display;	p = t->text;	if(p == nil)		return 0;	while(*p) {		next = tkcvstextgetl(t, font, p, &len);		if(y <= font->height) {			locked = lockdisplay(d);			for(n = 0; n < len && x > stringnwidth(font, p, n+1); n++)				;			if(locked)				unlockdisplay(d);			break;		}		y -= font->height;		p = next;	}		return p - t->text + n;} static char*tkcvsparseindex(TkCitem *i, char *buf, int *index){	Point o;	char *p;	int x, y;	TkCtext *t; 	t = TKobj(TkCtext, i); 	if(strcmp(buf, "end") == 0) {		*index = t->tlen;		return nil;	}	if(strcmp(buf, "sel.first") == 0) {		if(t->self < 0)			return TkBadix;		*index = t->self;		return nil;	}	if(strcmp(buf, "sel.last") == 0) {		if(t->sell < 0)			return TkBadix;		*index = t->sell;		return nil;	}	if(strcmp(buf, "insert") == 0) {		*index = t->icursor;		return nil;	}	if(buf[0] == '@') {		x = atoi(buf+1);		p = strchr(buf, ',');		if(p == nil)			return TkBadix;		y = atoi(p+1);		o = i->p.drawpt[0];		*index = tkcvstextsrch(i, (x-t->anchorp.x)-o.x, (y-t->anchorp.y)-o.y);		return nil;	} 	if(buf[0] < '0' || buf[0] > '9')		return TkBadix;	x = atoi(buf);	if(x < 0)		x = 0;	if(x > t->tlen)		x = t->tlen;	*index = x;		return nil;} char*tkcvstextdchar(Tk *tk, TkCitem *i, char *arg){	TkTop *top;	TkCtext *t;	int first, last;	char *e, buf[Tkmaxitem]; 	t = TKobj(TkCtext, i); 	top = tk->env->top;	arg = tkword(top, arg, buf, buf+sizeof(buf), nil);	e = tkcvsparseindex(i, buf, &first);	if(e != nil)		return e; 	last = first+1;	if(*arg != '\0') {		tkword(top, arg, buf, buf+sizeof(buf), nil);		e = tkcvsparseindex(i, buf, &last);		if(e != nil)			return e;	}	if(last <= first || t->tlen == 0)		return nil; 	tkbbmax(&TKobj(TkCanvas, tk)->update, &i->p.bb); 	memmove(t->text+first, t->text+last, t->tlen-last+1);	t->tlen -= last-first; 	tkcvstextsize(i);	tkbbmax(&TKobj(TkCanvas, tk)->update, &i->p.bb); 	tkcvssetdirty(tk);	return nil;} 

Lines 1–500 of 666. Load more