ref: 176da4977dc28d538b94a9e14967e0515cfa80a7
dir: /DoConfig/fltk/src/fl_dnd_x.cxx/
// // "$Id$" // // Drag & Drop code for the Fast Light Tool Kit (FLTK). // // Copyright 1998-2010 by Bill Spitzak and others. // // This library is free software. Distribution and use rights are outlined in // the file "COPYING" which should have been included with this file. If this // file is missing or damaged, see the license at: // // http://www.fltk.org/COPYING.php // // Please report all bugs and problems on the following page: // // http://www.fltk.org/str.php // #include <FL/Fl.H> #include <FL/Fl_Window.H> #include <FL/x.H> #include "flstring.h" extern Atom fl_XdndAware; extern Atom fl_XdndSelection; extern Atom fl_XdndEnter; extern Atom fl_XdndTypeList; extern Atom fl_XdndPosition; extern Atom fl_XdndLeave; extern Atom fl_XdndDrop; extern Atom fl_XdndStatus; extern Atom fl_XdndActionCopy; extern Atom fl_XdndFinished; //extern Atom fl_XdndProxy; extern Atom fl_XdndURIList; extern Atom fl_XaUtf8String; extern char fl_i_own_selection[2]; extern char *fl_selection_buffer[2]; extern void fl_sendClientMessage(Window window, Atom message, unsigned long d0, unsigned long d1=0, unsigned long d2=0, unsigned long d3=0, unsigned long d4=0); // return version # of Xdnd this window supports. Also change the // window to the proxy if it uses a proxy: static int dnd_aware(Window& window) { Atom actual; int format; unsigned long count, remaining; unsigned char *data = 0; XGetWindowProperty(fl_display, window, fl_XdndAware, 0, 4, False, XA_ATOM, &actual, &format, &count, &remaining, &data); int ret = 0; if (actual == XA_ATOM && format==32 && count && data) ret = int(*(Atom*)data); if (data) { XFree(data); data = 0; } return ret; } static int grabfunc(int event) { if (event == FL_RELEASE) Fl::pushed(0); return 0; } extern int (*fl_local_grab)(int); // in Fl.cxx // send an event to an fltk window belonging to this program: static int local_handle(int event, Fl_Window* window) { fl_local_grab = 0; Fl::e_x = Fl::e_x_root-window->x(); Fl::e_y = Fl::e_y_root-window->y(); int ret = Fl::handle(event,window); fl_local_grab = grabfunc; return ret; } int Fl::dnd() { Fl_Window *source_fl_win = Fl::first_window(); Fl::first_window()->cursor(FL_CURSOR_MOVE); Window source_window = fl_xid(Fl::first_window()); fl_local_grab = grabfunc; Window target_window = 0; Fl_Window* local_window = 0; int dndversion = 4; int dest_x, dest_y; XSetSelectionOwner(fl_display, fl_XdndSelection, fl_message_window, fl_event_time); while (Fl::pushed()) { // figure out what window we are pointing at: Window new_window = 0; int new_version = 0; Fl_Window* new_local_window = 0; for (Window child = RootWindow(fl_display, fl_screen);;) { Window root; unsigned int junk3; XQueryPointer(fl_display, child, &root, &child, &e_x_root, &e_y_root, &dest_x, &dest_y, &junk3); if (!child) { if (!new_window && (new_version = dnd_aware(root))) new_window = root; break; } new_window = child; if ((new_local_window = fl_find(child))) break; if ((new_version = dnd_aware(new_window))) break; } if (new_window != target_window) { if (local_window) { local_handle(FL_DND_LEAVE, local_window); } else if (dndversion) { fl_sendClientMessage(target_window, fl_XdndLeave, source_window); } dndversion = new_version; target_window = new_window; local_window = new_local_window; if (local_window) { local_handle(FL_DND_ENTER, local_window); } else if (dndversion) { // Send an X-DND message to the target window. In order to // support dragging of files/URLs as well as arbitrary text, // we look at the selection buffer - if the buffer starts // with a common URI scheme, does not contain spaces, and // contains at least one CR LF, then we flag the data as // both a URI list (MIME media type "text/uri-list") and // plain text. Otherwise, we just say it is plain text. if ((!strncmp(fl_selection_buffer[0], "file:///", 8) || !strncmp(fl_selection_buffer[0], "ftp://", 6) || !strncmp(fl_selection_buffer[0], "http://", 7) || !strncmp(fl_selection_buffer[0], "https://", 8) || !strncmp(fl_selection_buffer[0], "ipp://", 6) || !strncmp(fl_selection_buffer[0], "ldap:", 5) || !strncmp(fl_selection_buffer[0], "mailto:", 7) || !strncmp(fl_selection_buffer[0], "news:", 5) || !strncmp(fl_selection_buffer[0], "smb://", 6)) && !strchr(fl_selection_buffer[0], ' ') && strstr(fl_selection_buffer[0], "\r\n")) { // Send file/URI list... fl_sendClientMessage(target_window, fl_XdndEnter, source_window, dndversion<<24, fl_XdndURIList, XA_STRING, 0); } else { // Send plain text... fl_sendClientMessage(target_window, fl_XdndEnter, source_window, dndversion<<24, fl_XaUtf8String, 0, 0); } } } if (local_window) { local_handle(FL_DND_DRAG, local_window); } else if (dndversion) { fl_sendClientMessage(target_window, fl_XdndPosition, source_window, 0, (e_x_root<<16)|e_y_root, fl_event_time, fl_XdndActionCopy); } Fl::wait(); } if (local_window) { fl_i_own_selection[0] = 1; if (local_handle(FL_DND_RELEASE, local_window)) paste(*belowmouse(), 0); } else if (dndversion) { fl_sendClientMessage(target_window, fl_XdndDrop, source_window, 0, fl_event_time); } else if (target_window) { // fake a drop by clicking the middle mouse button: XButtonEvent msg; msg.type = ButtonPress; msg.window = target_window; msg.root = RootWindow(fl_display, fl_screen); msg.subwindow = 0; msg.time = fl_event_time+1; msg.x = dest_x; msg.y = dest_y; msg.x_root = Fl::e_x_root; msg.y_root = Fl::e_y_root; msg.state = 0x0; msg.button = Button2; XSendEvent(fl_display, target_window, False, 0L, (XEvent*)&msg); msg.time++; msg.state = 0x200; msg.type = ButtonRelease; XSendEvent(fl_display, target_window, False, 0L, (XEvent*)&msg); } fl_local_grab = 0; source_fl_win->cursor(FL_CURSOR_DEFAULT); return 1; } // // End of "$Id$". //