Begin implementing selection transfers

This commit adds an implementation that always answers "Test\n" when
asked for the selection contents.

Signed-off-by: Uli Schlachter <psychon@znc.in>
This commit is contained in:
Uli Schlachter 2019-02-10 17:42:34 +01:00
parent 869b1b0dff
commit 0f948d0dd9
3 changed files with 58 additions and 0 deletions

View file

@ -1111,6 +1111,7 @@ void event_handle(xcb_generic_event_t *event)
EVENT(XCB_UNMAP_NOTIFY, event_handle_unmapnotify);
EVENT(XCB_SELECTION_CLEAR, event_handle_selectionclear);
EVENT(XCB_SELECTION_NOTIFY, event_handle_selectionnotify);
EVENT(XCB_SELECTION_REQUEST, selection_handle_selectionrequest);
#undef EVENT
}

View file

@ -107,6 +107,62 @@ selection_handle_selectionclear(xcb_selection_clear_event_t *ev)
lua_pop(L, 1);
}
static void
selection_transfer_notify(xcb_window_t requestor, xcb_atom_t selection, xcb_atom_t target, xcb_atom_t property, xcb_timestamp_t time)
{
xcb_selection_notify_event_t ev;
p_clear(&ev, 1);
ev.response_type = XCB_SELECTION_NOTIFY;
ev.requestor = requestor;
ev.selection = selection;
ev.target = target;
ev.property = property;
ev.time = time;
xcb_send_event(globalconf.connection, false, requestor, XCB_EVENT_MASK_NO_EVENT, (char *) &ev);
}
static void
selection_transfer_reject(xcb_window_t requestor, xcb_atom_t selection,
xcb_atom_t target, xcb_timestamp_t time)
{
selection_transfer_notify(requestor, selection, target, XCB_NONE, time);
}
#include "common/atoms.h" /* TODO remove */
static void
selection_transfer_begin(lua_State *L, int ud, xcb_window_t requestor,
xcb_atom_t selection, xcb_atom_t target, xcb_atom_t property,
xcb_timestamp_t time)
{
/* TODO implement this */
xcb_change_property(globalconf.connection, XCB_PROP_MODE_REPLACE,
requestor, property, UTF8_STRING, 8, 5, "Test\n");
selection_transfer_notify(requestor, selection, target, property, time);
}
void
selection_handle_selectionrequest(xcb_selection_request_event_t *ev)
{
lua_State *L = globalconf_get_lua_State();
if (ev->property == XCB_NONE)
/* Obsolete client */
ev->property = ev->target;
if (selection_acquire_find_by_window(L, ev->owner) == 0)
{
selection_transfer_reject(ev->requestor, ev->selection, ev->target, ev->time);
return;
}
selection_transfer_begin(L, -1, ev->requestor, ev->selection, ev->target,
ev->property, ev->time);
lua_pop(L, 1);
}
static int
luaA_selection_acquire_new(lua_State *L)
{

View file

@ -27,6 +27,7 @@
void selection_acquire_class_setup(lua_State*);
void selection_handle_selectionclear(xcb_selection_clear_event_t*);
void selection_handle_selectionrequest(xcb_selection_request_event_t*);
#endif