static status
scrollMessage(Gesture g, EventObj ev,
Graphical *client, Name *Msg, Int *Amount)
{ Graphical gr = ev->receiver;
Int X, Y;
int ex, ey, aw, ah;
Name msg;
Int amount;
if ( !(isDragEvent(ev) ||
isAEvent(ev, NAME_locMove) ||
isAEvent(ev, NAME_area)) )
fail;
if ( !(gr = getScrollTarget(g, ev)) )
fail;
if ( !get_xy_event(ev, gr, ON, &X, &Y) )
fail;
ex = valInt(X);
ey = valInt(Y);
aw = valInt(gr->area->w);
ah = valInt(gr->area->h);
DEBUG(NAME_dragScroll,
Cprintf("Event on %s at %d,%d, area 0,0-%d,%d\n",
pp(gr), ex, ey, aw, ah));
if ( ex < 0 && ey >= 0 && ey <= ah && ex > -DRAGSCROLL_MARGIN )
{ msg = NAME_scrollHorizontal;
amount = toInt(-1);
} else if ( ex > aw && ey >= 0 && ey <= ah && ex < aw + DRAGSCROLL_MARGIN )
{ msg = NAME_scrollHorizontal;
amount = toInt(1);
} else if ( ey < 0 && ex >= 0 && ey <= aw && ey > -DRAGSCROLL_MARGIN )
{ msg = NAME_scrollVertical;
amount = toInt(-1);
} else if ( ey > ah && ex >= 0 && ey <= aw && ey < ah + DRAGSCROLL_MARGIN )
{ msg = NAME_scrollVertical;
amount = toInt(1);
} else
fail;
DEBUG(NAME_dragScroll,
if ( !Msg )
Cprintf("%s %s\n", pp(msg), pp(amount)));
if ( Msg )
*Msg = msg;
if ( Amount )
*Amount = amount;
if ( client )
*client = gr;
succeed;
}
static status
eventEditTextGesture(EditTextGesture g, EventObj ev)
{ Graphical t = ev->receiver;
if ( get(t, NAME_showCaret, EAV) == ON &&
isAEvent(ev, NAME_keyboard) )
return send(t, NAME_typed, ev, EAV);
else if ( isAEvent(ev, NAME_obtainKeyboardFocus) )
return send(t, NAME_showCaret, ON, EAV);
else if ( isAEvent(ev, NAME_releaseKeyboardFocus) )
return send(t, NAME_showCaret, OFF, EAV);
return eventGesture(g, ev);
}
static status
eventHandler(Handler h, EventObj ev)
{ DEBUG(NAME_post, Cprintf("eventHandler(%s, %s)\n", pp(h), pp(ev)));
if ( isAEvent(ev, h->event) )
{ if (isDefault(h->region))
{ if (isNil(h->message))
succeed;
return forwardReceiverCodev(h->message, getMasterEvent(ev),
1, (Any *)&ev);
} else
{ Graphical gr = ev->receiver;
if ( insideRegion(h->region, gr->area,
getAreaPositionEvent(ev, gr)) == SUCCEED )
{ if ( notNil(h->message) )
return forwardReceiverCodev(h->message, getMasterEvent(ev),
1, (Any *)&ev);
succeed;
}
}
}
fail;
}
static status
eventPopupGesture(PopupGesture g, EventObj ev)
{ if ( g->status == NAME_active && isUpEvent(ev) )
{ PceWindow sw;
if ( !(sw = getWindowGraphical(ev->receiver)) )
sw = ev->window;
if ( notNil(g->current) && g->current->displayed == OFF )
{ send(g->current, NAME_open, ev->receiver,
getAreaPositionEvent(ev, DEFAULT), EAV);
attributeObject(g, NAME_Stayup, ON);
grabPointerWindow(sw, ON);
focusWindow(sw, ev->receiver, (Recogniser) g, g->cursor, NIL);
} else if ( valInt(getClickTimeEvent(ev)) < 400 &&
getAttributeObject(g, NAME_Stayup) != ON )
{ attributeObject(g, NAME_Stayup, ON);
grabPointerWindow(sw, ON);
focusWindow(sw, ev->receiver, (Recogniser) g, g->cursor, NIL);
} else
{ send(g, NAME_terminate, EAV);
if ( isNil(g->current) )
{ grabPointerWindow(sw, OFF);
focusWindow(sw, NIL, NIL, NIL, NIL);
deleteAttributeObject(g, NAME_Stayup);
assign(g, status, NAME_inactive);
}
}
succeed;
} else if ( notNil(g->current) && g->current->displayed == ON )
return postEvent(ev, (Graphical) g->current, DEFAULT);
if ( eventGesture(g, ev) )
succeed;
if ( g->status == NAME_active && isAEvent(ev, NAME_keyboard) )
{ Name key;
TRY(updatePopupGesture(g, ev));
key = characterName(getIdEvent(ev));
if ( send(g->current, NAME_key, key, EAV) )
{ Any context = g->context;
PopupObj current = g->current;
assign(g, context, NIL);
assign(g, current, NIL);
send(current, NAME_execute, context, EAV);
succeed;
} else
send(g, NAME_cancel, ev, EAV);
}
fail;
}
status
eventGesture(Any obj, EventObj ev)
{ Gesture g = obj;
if ( g->active == OFF )
fail;
if ( g->status == NAME_active &&
notNil(g->drag_scroll) )
{ Graphical gr;
if ( tryDragScrollGesture(g, ev) )
succeed;
if ( isAEvent(ev, NAME_wheel) &&
(gr=getScrollTarget(g, ev)) )
return postEvent(ev, gr, DEFAULT);
}
if ( isDownEvent(ev) &&
hasModifierEvent(ev, g->modifier) &&
getButtonEvent(ev) == g->button &&
(isNil(g->condition) || forwardReceiverCode(g->condition, g, ev, EAV)) &&
send(g, NAME_verify, ev, EAV) )
{ TRY( send(g, NAME_initiate, ev, EAV) );
assign(g, status, NAME_active);
send(ev->window, NAME_focus,
ev->receiver, g, g->cursor, getButtonEvent(ev), EAV);
succeed;
} else if ( g->status != NAME_inactive )
{ if ( isDragEvent(ev) )
{ send(g, NAME_drag, ev, EAV);
succeed;
} else if ( isUpEvent(ev) && getButtonEvent(ev) == g->button )
{ cancelDragScrollGesture(g);
send(g, NAME_terminate, ev, EAV);
assign(g, status, NAME_inactive);
succeed;
}
}
fail;
}
static status
eventTextMargin(TextMargin m, EventObj ev)
{ Editor e = (Editor)m->device;
if ( notNil(e) &&
isAEvent(ev, NAME_msLeftUp) &&
getMulticlickEvent(ev) == NAME_single &&
valInt(getClickDisplacementEvent(ev)) < 5 )
{ Fragment f = getFragmentTextMargin(m, ev);
if ( f )
send(e, NAME_selectedFragment, f, EAV);
else
send(e, NAME_selectedFragment, NIL, EAV);
succeed;
}
fail;
}
static status
initialiseEvent(EventObj e, Name id, Any window,
Int x, Int y, Int bts, Int time)
{ unsigned long t = valInt(time);
initialiseProgramObject(e);
if ( notNil(EVENT->value) )
{ EventObj parent = EVENT->value;
if ( isDefault(x) ) x = parent->x;
if ( isDefault(y) ) y = parent->y;
if ( isDefault(bts) ) bts = parent->buttons;
if ( isDefault(window) ) window = parent->window;
if ( isDefault(time) ) t = max(last_time, parent->time);
} else
{ if ( isDefault(x) ) x = last_x;
if ( isDefault(y) ) y = last_y;
if ( isDefault(bts) ) bts = last_buttons;
if ( isDefault(window) ) window = last_window;
if ( isDefault(time) ) t = last_time;
}
host_last_time = mclock();
last_time = t;
last_buttons = bts; /* save these values */
last_x = x;
last_y = y;
assign(e, window, window);
assign(e, receiver, window);
assign(e, id, id);
assign(e, x, x);
assign(e, y, y);
assign(e, buttons, bts);
e->time = t;
if ( isDownEvent(e) )
{ int clt = CLICK_TYPE_single;
int px = valInt(x);
int py = valInt(y);
DEBUG(NAME_multiclick, Cprintf("t: %ld (%ld), x: %d (%d), y: %d (%d) --> ",
t, last_down_time, px, last_down_x,
py, last_down_y));
if ( (valInt(e->buttons) & CLICK_TYPE_mask) == CLICK_TYPE_double )
{ switch( last_click_type )
{ case CLICK_TYPE_single: clt = CLICK_TYPE_double; break;
case CLICK_TYPE_double: clt = CLICK_TYPE_triple; break;
default: clt = CLICK_TYPE_single; break;
}
e->buttons = toInt(valInt(e->buttons) & ~CLICK_TYPE_mask);
} else
{ if ( (t - last_down_time) < multi_click_time &&
abs(last_down_x - px) <= multi_click_diff &&
abs(last_down_y - py) <= multi_click_diff &&
(valInt(last_down_bts)&BUTTON_mask) == (valInt(bts)&BUTTON_mask) &&
last_window == window )
{ switch( last_click_type )
{ case CLICK_TYPE_single: clt = CLICK_TYPE_double; break;
case CLICK_TYPE_double: clt = CLICK_TYPE_triple; break;
}
}
}
last_click_type = clt;
assign(e, buttons, toInt(valInt(e->buttons) | clt));
DEBUG(NAME_multiclick, Cprintf("%s\n", strName(getMulticlickEvent(e))));
last_down_bts = bts;
last_down_time = t;
last_down_x = px;
last_down_y = py;
} else if ( isUpEvent(e) )
{ assign(e, buttons, toInt(valInt(e->buttons) | last_click_type));
}
if ( !onFlag(window, F_FREED|F_FREEING) )
last_window = window;
if ( loc_still_posted )
{ if ( isAEvent(e, NAME_locMove) )
{ DEBUG(NAME_locStill, Cprintf("Re-enabled loc-still on %s\n", pp(e->id)));
loc_still_posted = FALSE;
}
} else if ( isAEvent(e, NAME_area) ||
isAEvent(e, NAME_deactivateKeyboardFocus) )
{ DEBUG(NAME_locStill, Cprintf("Disabled loc-still on %s\n", pp(e->id)));
loc_still_posted = TRUE;
}
succeed;
}
