Tk*
tktextevent(Tk *tk, int event, void *data)
{
char *e;
TkMouse m, vm;
TkTitem *f, *tagit;
TkText *tkt;
TkTindex ix;
Tk *dest;
Point deltasv;
tkt = TKobj(TkText, tk);
deltasv = tkposn(tk);
deltasv.x += tk->borderwidth + tk->ipad.x/2;
deltasv.y += tk->borderwidth + tk->ipad.y/2;
dest = nil;
if(event == TkLeave && tkt->mouse != nil) {
vm.x = 0;
vm.y = 0;
tktdeliver(tk, tkt->mouse, tkt->mouse, TkLeave, data, deltasv);
tkt->mouse = nil;
}
else if((event & TkKey) == 0 && (event & TkEmouse)) {
/* m in S space, tm in V space */
m = *(TkMouse*)data;
vm = m;
vm.x -= deltasv.x;
vm.y -= deltasv.y;
if((event & TkMotion) == 0 || m.b == 0) {
tkt->current.x = vm.x;
tkt->current.y = vm.y;
}
tktxyind(tk, vm.x, vm.y, &ix);
f = ix.item;
if(tkt->mouse != f) {
tagit = nil;
if(tkt->mouse != nil) {
if(tktanytags(tkt->mouse)) {
e = tktnewitem(TkTascii, tkt->mouse->tagextra, &tagit);
if(e != nil)
return dest; /* XXX propagate error? */
tkttagcomb(tagit, tkt->mouse, 1);
tkttagcomb(tagit, f, -1);
}
tktdeliver(tk, tkt->mouse, tagit, TkLeave, data, deltasv);
if(tagit)
free(tagit);
tagit = nil;
}
if(tktanytags(f)) {
e = tktnewitem(TkTascii, f->tagextra, &tagit);
if(e != nil)
return dest; /* XXX propagate error? */
tkttagcomb(tagit, f, 1);
if(tkt->mouse)
tkttagcomb(tagit, tkt->mouse, -1);
}
tktdeliver(tk, f, tagit, TkEnter, data, deltasv);
tkt->mouse = f;
if(tagit)
free(tagit);
}
if(tkt->mouse != nil)
dest = tktdeliver(tk, tkt->mouse, tkt->mouse, event, &m, deltasv);
}
else if(event == TkFocusin)
tktextcursor(tk, " insert", (char **) nil);
/* pass all "real" events on to parent text widget - DBK */
tksubdeliver(tk, tk->binds, event, data, 0);
return dest;
}
int
tkextndeliver(Tk *tk, TkAction *binds, int event, void *data)
{
return tksubdeliver(tk, binds, event, data, 1);
}
static Tk*
tktdeliver(Tk *tk, TkTitem *i, TkTitem *tagit, int event, void *data, Point deltasv)
{
Tk *ftk, *dest;
TkTwind *w;
TkText *tkt;
TkTtaginfo *t;
TkTline *l;
TkMouse m;
Point mp, p;
TkTindex ix;
int bd;
dest = nil;
if(i != nil) {
tkt = TKobj(TkText, tk);
if(i->kind == TkTwin) {
w = i->iwin;
if(w->sub != nil) {
if(!(event & TkKey) && (event & TkEmouse)) {
m = *(TkMouse*)data;
mp.x = m.x;
mp.y = m.y;
ix.item = i;
ix.pos = 0;
ix.line = tktitemline(i);
p = tktitempos(tk, &ix);
bd = w->sub->borderwidth;
mp.x = m.x - (deltasv.x + p.x + w->sub->act.x + bd);
mp.y = m.y - (deltasv.y + p.y + w->sub->act.y + bd);
ftk = tkinwindow(w->sub, mp, 0);
if(ftk != w->focus) {
tkdeliver(w->focus, TkLeave, data);
tkdeliver(ftk, TkEnter, data);
w->focus = ftk;
}
if(ftk != nil)
dest = tkdeliver(ftk, event, &m);
}
else {
if ((event & TkLeave) && (w->focus != w->sub)) {
tkdeliver(w->focus, TkLeave, data);
w->focus = nil;
event &= ~TkLeave;
}
if (event)
tkdeliver(w->sub, event, data);
}
if(Dx(w->sub->dirty) > 0) {
l = tktitemline(i);
tktfixgeom(tk, tktprevwrapline(tk, l), l, 0);
}
if(event & TkKey)
return dest;
}
}
if(tagit != 0) {
for(t = tkt->tags; t != nil; t = t->next) {
if(t->binds != nil && tkttagset(tagit, t->id)) {
if(tksubdeliver(tk, t->binds, event, data, 0) == TkDbreak) {
return dest;
}
}
}
}
}
return dest;
}
