/* GDK - The GIMP Drawing Kit * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Library General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Library General Public License for more details. * * You should have received a copy of the GNU Library General Public * License along with this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include #include #include #include "gdkx.h" #include "gdk/gdkprivate.h" #include "gdk.h" typedef struct _GdkDragContextPrivate GdkDragContextPrivate; typedef enum { GDK_DRAG_STATUS_DRAG, GDK_DRAG_STATUS_MOTION_WAIT, GDK_DRAG_STATUS_ACTION_WAIT, GDK_DRAG_STATUS_DROP } GtkDragStatus; typedef struct { guint32 xid; gint x, y, width, height; gboolean mapped; } GdkCacheChild; typedef struct { GList *children; GHashTable *child_hash; guint old_event_mask; } GdkWindowCache; /* Structure that holds information about a drag in progress. * this is used on both source and destination sides. */ struct _GdkDragContextPrivate { GdkDragContext context; GdkAtom motif_selection; GdkAtom xdnd_selection; guint ref_count; guint16 last_x; /* Coordinates from last event */ guint16 last_y; GdkDragAction old_action; /* The last action we sent to the source */ Window dest_xid; guint xdnd_targets_set : 1; /* Whether we've already set XdndTypeList */ guint motif_targets_set : 1; /* Whether we've already set motif initiator info */ guint drag_status : 4; /* current status of drag */ GdkWindowCache *window_cache; }; GdkDragContext *current_dest_drag = NULL; /* Forward declarations */ static void gdk_window_cache_destroy (GdkWindowCache *cache); static void motif_read_target_table (void); static GdkFilterReturn motif_dnd_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_enter_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_leave_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_position_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_status_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_finished_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); static GdkFilterReturn xdnd_drop_filter (GdkXEvent *xev, GdkEvent *event, gpointer data); /* Drag Contexts */ static GList *contexts; GdkDragContext * gdk_drag_context_new (void) { GdkDragContextPrivate *result; result = g_new0 (GdkDragContextPrivate, 1); result->ref_count = 1; contexts = g_list_prepend (contexts, result); return (GdkDragContext *)result; } void gdk_drag_context_ref (GdkDragContext *context) { ((GdkDragContextPrivate *)context)->ref_count++; } void gdk_drag_context_unref (GdkDragContext *context) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; private->ref_count--; if (private->ref_count == 0) { g_dataset_destroy (private); g_list_free (context->targets); if (context->source_window) gdk_window_unref (context->source_window); if (context->dest_window) gdk_window_unref (context->dest_window); if (private->window_cache) gdk_window_cache_destroy (private->window_cache); contexts = g_list_remove (contexts, private); g_free (private); } } static GdkDragContext * gdk_drag_context_find (gboolean is_source, Window source_xid, Window dest_xid) { GList *tmp_list = contexts; while (tmp_list) { GdkDragContext *context = (GdkDragContext *)tmp_list->data; if ((!context->is_source == !is_source) && ((source_xid == None) || (context->source_window && (GDK_WINDOW_XWINDOW (context->source_window) == source_xid))) && ((dest_xid == None) || (context->dest_window && (GDK_WINDOW_XWINDOW (context->dest_window) == dest_xid)))) return context; tmp_list = tmp_list->next; } return NULL; } /* Utility functions */ static void gdk_window_cache_add (GdkWindowCache *cache, guint32 xid, gint x, gint y, gint width, gint height, gboolean mapped) { GdkCacheChild *child = g_new (GdkCacheChild, 1); child->xid = xid; child->x = x; child->y = y; child->width = width; child->height = height; child->mapped = mapped; cache->children = g_list_prepend (cache->children, child); g_hash_table_insert (cache->child_hash, GUINT_TO_POINTER (xid), cache->children); } static GdkFilterReturn gdk_window_cache_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; GdkWindowCache *cache = data; switch (xevent->type) { case CirculateNotify: break; case ConfigureNotify: { XConfigureEvent *xce = &xevent->xconfigure; GList *node; node = g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xce->window)); if (node) { GdkCacheChild *child = node->data; child->x = xce->x; child->y = xce->y; child->width = xce->width; child->height = xce->height; if (xce->above == None && (node->next)) { GList *last = g_list_last (cache->children); cache->children = g_list_remove_link (cache->children, node); last->next = node; node->next = NULL; node->prev = last; } else { GList *above_node = g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xce->above)); if (above_node && node->prev != above_node) { cache->children = g_list_remove_link (cache->children, node); node->next = above_node->next; node->prev = above_node; above_node->next = node; } } } break; } case CreateNotify: { XCreateWindowEvent *xcwe = &xevent->xcreatewindow; if (!g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xcwe->window))) gdk_window_cache_add (cache, xcwe->window, xcwe->x, xcwe->y, xcwe->width, xcwe->height, FALSE); break; } case DestroyNotify: { XDestroyWindowEvent *xdwe = &xevent->xdestroywindow; GList *node; node = g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xdwe->window)); if (node) { g_hash_table_remove (cache->child_hash, GUINT_TO_POINTER (xdwe->window)); cache->children = g_list_remove_link (cache->children, node); g_free (node->data); g_list_free_1 (node); } break; } case MapNotify: { XMapEvent *xme = &xevent->xmap; GList *node; node = g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xme->window)); if (node) { GdkCacheChild *child = node->data; child->mapped = TRUE; } break; } case ReparentNotify: break; case UnmapNotify: { XMapEvent *xume = &xevent->xmap; GList *node; node = g_hash_table_lookup (cache->child_hash, GUINT_TO_POINTER (xume->window)); if (node) { GdkCacheChild *child = node->data; child->mapped = FALSE; } break; } default: return GDK_FILTER_CONTINUE; } return GDK_FILTER_REMOVE; } static GdkWindowCache * gdk_window_cache_new (void) { XWindowAttributes xwa; Window root, parent, *children; unsigned int nchildren; int i; gint old_warnings = gdk_error_warnings; GdkWindowCache *result = g_new (GdkWindowCache, 1); result->children = NULL; result->child_hash = g_hash_table_new (g_direct_hash, NULL); XGetWindowAttributes (gdk_display, gdk_root_window, &xwa); result->old_event_mask = xwa.your_event_mask; XSelectInput (gdk_display, gdk_root_window, result->old_event_mask | SubstructureNotifyMask); gdk_window_add_filter ((GdkWindow *)&gdk_root_parent, gdk_window_cache_filter, result); gdk_error_code = 0; gdk_error_warnings = 0; if (XQueryTree(gdk_display, gdk_root_window, &root, &parent, &children, &nchildren) == 0) return result; for (i = 0; i < nchildren ; i++) { XGetWindowAttributes (gdk_display, children[i], &xwa); gdk_window_cache_add (result, children[i], xwa.x, xwa.y, xwa.width, xwa.height, xwa.map_state != IsUnmapped); if (gdk_error_code != 0) gdk_error_code = 0; else { gdk_window_cache_add (result, children[i], xwa.x, xwa.y, xwa.width, xwa.height, (xwa.map_state != IsUnmapped)); } } XFree (children); gdk_error_warnings = old_warnings; return result; } static void gdk_window_cache_destroy (GdkWindowCache *cache) { XSelectInput (gdk_display, gdk_root_window, cache->old_event_mask); gdk_window_remove_filter ((GdkWindow *)&gdk_root_parent, gdk_window_cache_filter, cache); g_list_foreach (cache->children, (GFunc)g_free, NULL); g_list_free (cache->children); g_hash_table_destroy (cache->child_hash); } static Window get_client_window_at_coords_recurse (Window win, gint x_root, gint y_root) { Window child; Atom type = None; int format; unsigned long nitems, after; unsigned char *data; int dest_x, dest_y; static Atom wm_state_atom = None; if (!wm_state_atom) wm_state_atom = gdk_atom_intern ("WM_STATE", FALSE); XGetWindowProperty (gdk_display, win, wm_state_atom, 0, 0, False, AnyPropertyType, &type, &format, &nitems, &after, &data); if (gdk_error_code != 0) { gdk_error_code = 0; return None; } if (type != None) { XFree (data); return win; } XTranslateCoordinates (gdk_display, gdk_root_window, win, x_root, y_root, &dest_x, &dest_y, &child); if (gdk_error_code != 0) { gdk_error_code = 0; return None; } if (child) return get_client_window_at_coords_recurse (child, x_root, y_root); else return None; } Window get_client_window_at_coords (GdkWindowCache *cache, Window ignore, gint x_root, gint y_root) { GList *tmp_list; Window retval = None; gint old_warnings = gdk_error_warnings; gdk_error_code = 0; gdk_error_warnings = 0; tmp_list = cache->children; while (tmp_list && !retval) { GdkCacheChild *child = tmp_list->data; if ((child->xid != ignore) && (child->mapped)) { if ((x_root >= child->x) && (x_root < child->x + child->width) && (y_root >= child->y) && (y_root < child->y + child->height)) { retval = get_client_window_at_coords_recurse (child->xid, x_root, y_root); if (!retval) retval = child->xid; } } tmp_list = tmp_list->next; } gdk_error_warnings = old_warnings; if (retval) return retval; else return gdk_root_window; } #if 0 static Window get_client_window_at_coords_recurse (Window win, gint x_root, gint y_root) { Window child; Atom type = None; int format; unsigned long nitems, after; unsigned char *data; int dest_x, dest_y; static Atom wm_state_atom = None; if (!wm_state_atom) wm_state_atom = gdk_atom_intern ("WM_STATE", FALSE); XGetWindowProperty (gdk_display, win, wm_state_atom, 0, 0, False, AnyPropertyType, &type, &format, &nitems, &after, &data); if (gdk_error_code != 0) { gdk_error_code = 0; return None; } if (type != None) { XFree (data); return win; } XTranslateCoordinates (gdk_display, gdk_root_window, win, x_root, y_root, &dest_x, &dest_y, &child); if (gdk_error_code != 0) { gdk_error_code = 0; return None; } if (child) return get_client_window_at_coords_recurse (child, x_root, y_root); else return None; } Window get_client_window_at_coords (Window ignore, gint x_root, gint y_root) { Window root, parent, *children; unsigned int nchildren; int i; Window retval = None; gint old_warnings = gdk_error_warnings; gdk_error_code = 0; gdk_error_warnings = 0; if (XQueryTree(gdk_display, gdk_root_window, &root, &parent, &children, &nchildren) == 0) return 0; for (i = nchildren - 1; (i >= 0) && (retval == None); i--) { if (children[i] != ignore) { XWindowAttributes xwa; XGetWindowAttributes (gdk_display, children[i], &xwa); if (gdk_error_code != 0) gdk_error_code = 0; else if ((xwa.map_state == IsViewable) && (x_root >= xwa.x) && (x_root < xwa.x + (gint)xwa.width) && (y_root >= xwa.y) && (y_root < xwa.y + (gint)xwa.height)) { retval = get_client_window_at_coords_recurse (children[i], x_root, y_root); if (!retval) retval = children[i]; } } } XFree (children); gdk_error_warnings = old_warnings; if (retval) return retval; else return gdk_root_window; } #endif /************************************************************* ***************************** MOTIF ************************* *************************************************************/ /* values used in the message type for Motif DND */ enum { XmTOP_LEVEL_ENTER, XmTOP_LEVEL_LEAVE, XmDRAG_MOTION, XmDROP_SITE_ENTER, XmDROP_SITE_LEAVE, XmDROP_START, XmDROP_FINISH, XmDRAG_DROP_FINISH, XmOPERATION_CHANGED }; /* Values used to specify type of protocol to use */ enum { XmDRAG_NONE, XmDRAG_DROP_ONLY, XmDRAG_PREFER_PREREGISTER, XmDRAG_PREREGISTER, XmDRAG_PREFER_DYNAMIC, XmDRAG_DYNAMIC, XmDRAG_PREFER_RECEIVER }; /* Operation codes */ enum { XmDROP_NOOP, XmDROP_MOVE = 0x01, XmDROP_COPY = 0x02, XmDROP_LINK = 0x04 }; /* Drop site status */ enum { XmNO_DROP_SITE = 0x01, XmDROP_SITE_INVALID = 0x02, XmDROP_SITE_VALID = 0x03 }; /* completion status */ enum { XmDROP, XmDROP_HELP, XmDROP_CANCEL, XmDROP_INTERRUPT }; /* Static data for MOTIF DND */ static GList **motif_target_lists = NULL; static gint motif_n_target_lists = -1; /* Byte swapping routines. The motif specification leaves it * up to us to save a few bytes in the client messages */ static gchar local_byte_order = '\0'; #ifdef G_ENABLE_DEBUG static void print_target_list (GList *targets) { while (targets) { gchar *name = gdk_atom_name (GPOINTER_TO_INT (targets->data)); g_message ("\t%s", name); g_free (name); targets = targets->next; } } #endif /* G_ENABLE_DEBUG */ static void init_byte_order (void) { guint32 myint = 0x01020304; local_byte_order = (*(gchar *)&myint == 1) ? 'B' : 'l'; } static guint16 card16_to_host (guint16 x, gchar byte_order) { if (byte_order == local_byte_order) return x; else return (x << 8) | (x >> 8); } static guint32 card32_to_host (guint32 x, gchar byte_order) { if (byte_order == local_byte_order) return x; else return (x << 24) | ((x & 0xff00) << 8) | ((x & 0xff0000) >> 8) | (x >> 24); } /***** Dest side ***********/ /* Property placed on source windows */ typedef struct _MotifDragInitiatorInfo { guint8 byte_order; guint8 protocol_version; guint16 targets_index; guint32 selection_atom; } MotifDragInitiatorInfo; /* Header for target table on the drag window */ typedef struct _MotifTargetTableHeader { guchar byte_order; guchar protocol_version; guint16 n_lists; guint32 total_size; } MotifTargetTableHeader; /* Property placed on target windows */ typedef struct _MotifDragReceiverInfo { guint8 byte_order; guint8 protocol_version; guint8 protocol_style; guint8 pad; guint32 proxy_window; guint16 num_drop_sites; guint16 padding; guint32 total_size; } MotifDragReceiverInfo; static Window motif_drag_window = None; static GdkWindow *motif_drag_gdk_window = NULL; static GdkAtom motif_drag_targets_atom = GDK_NONE; static GdkAtom motif_drag_receiver_info_atom = GDK_NONE; /* Target table handling */ GdkFilterReturn motif_drag_window_filter (GdkXEvent *xevent, GdkEvent *event, gpointer data) { XEvent *xev = (XEvent *)xevent; switch (xev->xany.type) { case DestroyNotify: motif_drag_window = None; motif_drag_gdk_window = NULL; break; case PropertyNotify: if (motif_target_lists && motif_drag_targets_atom && (xev->xproperty.atom == motif_drag_targets_atom)) motif_read_target_table(); break; } return GDK_FILTER_REMOVE; } static GdkAtom motif_drag_window_atom = GDK_NONE; static Window motif_lookup_drag_window (Display *display) { Window retval = None; gulong bytes_after, nitems; GdkAtom type; gint format; guchar *data; XGetWindowProperty (gdk_display, gdk_root_window, motif_drag_window_atom, 0, sizeof(Window)/4, FALSE, XA_WINDOW, &type, &format, &nitems, &bytes_after, &data); if ((format == 8*sizeof(Window)) && (nitems == 1) && (bytes_after == 0)) { retval = *(Window *)data; GDK_NOTE(DND, g_message ("Found drag window %#lx\n", motif_drag_window)); } if (type != None) XFree (data); return retval; } /* Finds the window where global Motif drag information is stored. * If it doesn't exist and 'create' is TRUE, create one. */ Window motif_find_drag_window (gboolean create) { if (!motif_drag_window) { if (!motif_drag_window_atom) motif_drag_window_atom = gdk_atom_intern ("_MOTIF_DRAG_WINDOW", TRUE); motif_drag_window = motif_lookup_drag_window (gdk_display); if (!motif_drag_window && create) { /* Create a persistant window. (Copied from LessTif) */ Display *display; XSetWindowAttributes attr; display = XOpenDisplay (NULL); XSetCloseDownMode (display, RetainPermanent); XGrabServer (display); motif_drag_window = motif_lookup_drag_window (display); if (!motif_drag_window) { attr.override_redirect = True; attr.event_mask = PropertyChangeMask; motif_drag_window = XCreateWindow(display, DefaultRootWindow(display), -100, -100, 10, 10, 0, 0, InputOnly, CopyFromParent, (CWOverrideRedirect | CWEventMask), &attr); GDK_NOTE (DND, g_message ("Created drag window %#lx\n", motif_drag_window)); XChangeProperty (display, gdk_root_window, motif_drag_window_atom, XA_WINDOW, 32, PropModeReplace, (guchar *)&motif_drag_window_atom, 1); } XUngrabServer (display); XCloseDisplay (display); } /* There is a miniscule race condition here if the drag window * gets destroyed exactly now. */ if (motif_drag_window) { motif_drag_gdk_window = gdk_window_foreign_new (motif_drag_window); gdk_window_add_filter (motif_drag_gdk_window, motif_drag_window_filter, NULL); } } return motif_drag_window; } static void motif_read_target_table (void) { gulong bytes_after, nitems; GdkAtom type; gint format; gint i, j; if (!motif_drag_targets_atom) motif_drag_targets_atom = gdk_atom_intern ("_MOTIF_DRAG_TARGETS", FALSE); if (motif_target_lists) { for (i=0; in_lists = card16_to_host (header->n_lists, header->byte_order); header->total_size = card32_to_host (header->total_size, header->byte_order); XGetWindowProperty (gdk_display, motif_drag_window, motif_drag_targets_atom, (sizeof(MotifTargetTableHeader)+3)/4, (header->total_size - sizeof(MotifTargetTableHeader) + 3)/4, FALSE, motif_drag_targets_atom, &type, &format, &nitems, &bytes_after, &target_bytes); if ((format != 8) || (bytes_after != 0) || (nitems != header->total_size - sizeof(MotifTargetTableHeader))) goto error; motif_n_target_lists = header->n_lists; motif_target_lists = g_new0 (GList *, motif_n_target_lists); p = target_bytes; for (i=0; in_lists; i++) { gint n_targets; guint32 *targets; if (p + sizeof(guint16) - target_bytes > nitems) goto error; n_targets = card16_to_host (*(gushort *)p, header->byte_order); targets = (guint32 *)(p + sizeof(guint16)); p += sizeof(guint16) + n_targets * sizeof(guint32); if (p - target_bytes > nitems) goto error; for (j=0; jbyte_order))); motif_target_lists[i] = g_list_reverse (motif_target_lists[i]); } success = TRUE; error: if (header) XFree (header); if (target_bytes) XFree (target_bytes); if (!success) { if (motif_target_lists) { g_free (motif_target_lists); motif_target_lists = NULL; motif_n_target_lists = 0; } g_warning ("Error reading Motif target table\n"); } } } static gint targets_sort_func (gconstpointer a, gconstpointer b) { return (GPOINTER_TO_UINT (a) < GPOINTER_TO_UINT (b)) ? -1 : ((GPOINTER_TO_UINT (a) > GPOINTER_TO_UINT (b)) ? 1 : 0); } /* Check if given (sorted) list is in the targets table */ static gboolean motif_target_table_check (GList *sorted) { GList *tmp_list1, *tmp_list2; gint i; for (i=0; idata != tmp_list2->data) break; tmp_list1 = tmp_list1->next; tmp_list2 = tmp_list2->next; } if (!tmp_list1 && !tmp_list2) /* Found it */ return i; } return -1; } static gint motif_add_to_target_table (GList *targets) { GList *sorted = NULL; gint index = -1; gint i; GList *tmp_list; /* make a sorted copy of the list */ while (targets) { sorted = g_list_insert_sorted (sorted, targets->data, targets_sort_func); targets = targets->next; } /* First check if it is their already */ if (motif_target_lists) index = motif_target_table_check (sorted); /* We need to grab the server while doing this, to ensure * atomiticity. Ugh */ if (index < 0) { /* We need to make sure that it exists _before_ we grab the * server, since we can't open a new connection after we * grab the server. */ motif_find_drag_window (TRUE); XGrabServer(gdk_display); motif_read_target_table(); /* Check again, in case it was added in the meantime */ if (motif_target_lists) index = motif_target_table_check (sorted); if (index < 0) { guint32 total_size = 0; guchar *data; guchar *p; guint16 *p16; guint32 *p32; MotifTargetTableHeader *header; if (!motif_target_lists) { motif_target_lists = g_new (GList *, 1); motif_n_target_lists = 1; } else { motif_n_target_lists++; motif_target_lists = g_realloc (motif_target_lists, sizeof(GList *) * motif_n_target_lists); } motif_target_lists[motif_n_target_lists - 1] = sorted; sorted = NULL; index = motif_n_target_lists - 1; total_size = sizeof (MotifTargetTableHeader); for (i = 0; i < motif_n_target_lists ; i++) total_size += sizeof(guint16) + sizeof(guint32) * g_list_length (motif_target_lists[i]); data = g_malloc (total_size); header = (MotifTargetTableHeader *)data; p = data + sizeof(MotifTargetTableHeader); header->byte_order = local_byte_order; header->protocol_version = 0; header->n_lists = motif_n_target_lists; header->total_size = total_size; for (i = 0; i < motif_n_target_lists ; i++) { guint16 count = 0; p16 = (guint16 *)p; p += sizeof(guint16); p32 = (guint32 *)p; tmp_list = motif_target_lists[i]; while (tmp_list) { *p32++ = GPOINTER_TO_UINT (tmp_list->data); tmp_list = tmp_list->next; count++; } *p16 = count; p = (guchar *)p32; } XChangeProperty (gdk_display, motif_drag_window, motif_drag_targets_atom, motif_drag_targets_atom, 8, PropModeReplace, data, total_size); } XUngrabServer(gdk_display); } g_list_free (sorted); return index; } /* Translate flags */ static void motif_dnd_translate_flags (GdkDragContext *context, guint16 flags) { guint recommended_op = flags & 0x000f; guint possible_ops = (flags & 0x0f0) >> 4; switch (recommended_op) { case XmDROP_MOVE: context->suggested_action = GDK_ACTION_MOVE; break; case XmDROP_COPY: context->suggested_action = GDK_ACTION_COPY; break; case XmDROP_LINK: context->suggested_action = GDK_ACTION_LINK; break; default: context->suggested_action = GDK_ACTION_COPY; break; } context->actions = 0; if (possible_ops & XmDROP_MOVE) context->actions |= GDK_ACTION_MOVE; if (possible_ops & XmDROP_COPY) context->actions |= GDK_ACTION_COPY; if (possible_ops & XmDROP_LINK) context->actions |= GDK_ACTION_LINK; } static guint16 motif_dnd_get_flags (GdkDragContext *context) { guint16 flags = 0; switch (context->suggested_action) { case GDK_ACTION_MOVE: flags = XmDROP_MOVE; break; case GDK_ACTION_COPY: flags = XmDROP_COPY; break; case GDK_ACTION_LINK: flags = XmDROP_LINK; break; default: flags = XmDROP_NOOP; break; } if (context->actions & GDK_ACTION_MOVE) flags |= XmDROP_MOVE << 8; if (context->actions & GDK_ACTION_COPY) flags |= XmDROP_COPY << 8; if (context->actions & GDK_ACTION_LINK) flags |= XmDROP_LINK << 8; return flags; } /* Source Side */ static void motif_set_targets (GdkDragContext *context) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; MotifDragInitiatorInfo info; gint i; static GdkAtom motif_drag_initiator_info = GDK_NONE; if (!motif_drag_initiator_info) motif_drag_initiator_info = gdk_atom_intern ("_MOTIF_DRAG_INITIATOR_INFO", FALSE); info.byte_order = local_byte_order; info.protocol_version = 0; info.targets_index = motif_add_to_target_table (context->targets); for (i=0; ; i++) { gchar buf[20]; g_snprintf(buf, 20, "_GDK_SELECTION_%d", i); private->motif_selection = gdk_atom_intern (buf, FALSE); if (!XGetSelectionOwner (gdk_display, private->motif_selection)) break; } info.selection_atom = private->motif_selection; XChangeProperty (GDK_WINDOW_XDISPLAY (context->source_window), GDK_WINDOW_XWINDOW (context->source_window), private->motif_selection, motif_drag_initiator_info, 8, PropModeReplace, (guchar *)&info, sizeof (info)); private->motif_targets_set = 1; } gboolean motif_check_dest (Window win) { gboolean retval = FALSE; MotifDragReceiverInfo *info; Atom type = None; int format; unsigned long nitems, after; if (!motif_drag_receiver_info_atom) motif_drag_receiver_info_atom = gdk_atom_intern ("_MOTIF_DRAG_RECEIVER_INFO", FALSE); XGetWindowProperty (gdk_display, win, motif_drag_receiver_info_atom, 0, (sizeof(*info)+3)/4, False, AnyPropertyType, &type, &format, &nitems, &after, (guchar **)&info); if (type != None) { if ((format == 8) && (nitems == sizeof(*info))) { if ((info->protocol_version == 0) && ((info->protocol_style == XmDRAG_PREFER_PREREGISTER) || (info->protocol_style == XmDRAG_PREFER_DYNAMIC) || (info->protocol_style == XmDRAG_DYNAMIC))) retval = TRUE; } else { GDK_NOTE (DND, g_warning ("Invalid Motif drag receiver property on window %ld\n", win)); } XFree (info); } return retval; } static void motif_send_enter (GdkDragContext *context, guint32 time) { XEvent xev; GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.b[0] = XmTOP_LEVEL_ENTER; xev.xclient.data.b[1] = local_byte_order; xev.xclient.data.s[1] = 0; xev.xclient.data.l[1] = time; xev.xclient.data.l[2] = GDK_WINDOW_XWINDOW (context->source_window); if (!private->motif_targets_set) motif_set_targets (context); xev.xclient.data.l[3] = private->motif_selection; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); } static void motif_send_leave (GdkDragContext *context, guint32 time) { XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.b[0] = XmTOP_LEVEL_LEAVE; xev.xclient.data.b[1] = local_byte_order; xev.xclient.data.s[1] = 0; xev.xclient.data.l[1] = time; xev.xclient.data.l[2] = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[3] = 0; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); } static gboolean motif_send_motion (GdkDragContext *context, gint x_root, gint y_root, GdkDragAction action, guint32 time) { gboolean retval; XEvent xev; GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.b[1] = local_byte_order; xev.xclient.data.s[1] = motif_dnd_get_flags (context); xev.xclient.data.l[1] = time; if (context->suggested_action != private->old_action) { xev.xclient.data.b[0] = XmOPERATION_CHANGED; private->drag_status = GDK_DRAG_STATUS_ACTION_WAIT; retval = TRUE; } else { xev.xclient.data.b[0] = XmDRAG_MOTION; xev.xclient.data.s[4] = x_root; xev.xclient.data.s[5] = y_root; private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT; retval = FALSE; } if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); return retval; } static void motif_send_drop (GdkDragContext *context, guint32 time) { XEvent xev; GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.b[0] = XmDROP_START; xev.xclient.data.b[1] = local_byte_order; xev.xclient.data.s[1] = motif_dnd_get_flags (context); xev.xclient.data.l[1] = time; xev.xclient.data.s[4] = private->last_x; xev.xclient.data.s[5] = private->last_y; xev.xclient.data.l[3] = private->motif_selection; xev.xclient.data.l[4] = GDK_WINDOW_XWINDOW (context->source_window); if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); } /* Target Side */ static gboolean motif_read_initiator_info (Window source_window, Atom atom, GList **targets, GdkAtom *selection) { GList *tmp_list; static GdkAtom motif_drag_initiator_info = GDK_NONE; GdkAtom type; gint format; gulong nitems; gulong bytes_after; MotifDragInitiatorInfo *initiator_info; if (!motif_drag_initiator_info) motif_drag_initiator_info = gdk_atom_intern ("_MOTIF_DRAG_INITIATOR_INFO", FALSE); XGetWindowProperty (gdk_display, source_window, atom, 0, sizeof(*initiator_info), FALSE, motif_drag_initiator_info, &type, &format, &nitems, &bytes_after, (guchar **)&initiator_info); if ((format != 8) || (nitems != sizeof (MotifDragInitiatorInfo)) || (bytes_after != 0)) { g_warning ("Error reading initiator info\n"); return FALSE; } motif_read_target_table (); if (initiator_info->targets_index >= motif_n_target_lists) { g_warning ("Invalid target index in TOP_LEVEL_ENTER MESSAGE"); XFree (initiator_info); return GDK_FILTER_REMOVE; } tmp_list = g_list_last (motif_target_lists[initiator_info->targets_index]); *targets = NULL; while (tmp_list) { *targets = g_list_prepend (*targets, tmp_list->data); tmp_list = tmp_list->prev; } #ifdef G_ENABLE_DEBUG if (gdk_debug_flags & GDK_DEBUG_DND) print_target_list (*targets); #endif /* G_ENABLE_DEBUG */ *selection = initiator_info->selection_atom; XFree (initiator_info); return TRUE; } static GdkDragContext * motif_drag_context_new (GdkWindow *dest_window, guint32 timestamp, guint32 source_window, guint32 atom) { GdkDragContext *new_context; GdkDragContextPrivate *private; /* FIXME, current_dest_drag really shouldn't be NULL'd * if we error below. */ if (current_dest_drag != NULL) { if (timestamp >= current_dest_drag->start_time) { gdk_drag_context_unref (current_dest_drag); current_dest_drag = NULL; } else return NULL; } new_context = gdk_drag_context_new (); private = (GdkDragContextPrivate *)new_context; new_context->protocol = GDK_DRAG_PROTO_MOTIF; new_context->is_source = FALSE; new_context->source_window = gdk_window_lookup (source_window); if (new_context->source_window) gdk_window_ref (new_context->source_window); else { new_context->source_window = gdk_window_foreign_new (source_window); if (!new_context->source_window) { gdk_drag_context_unref (new_context); return NULL; } } new_context->dest_window = dest_window; gdk_window_ref (dest_window); new_context->start_time = timestamp; if (!motif_read_initiator_info(source_window, atom, &new_context->targets, &private->motif_selection)) { gdk_drag_context_unref (new_context); return NULL; } return new_context; } /* * The MOTIF drag protocol has no real provisions for distinguishing * multiple simultaneous drops. If the sources grab the pointer * when doing drags, that shouldn't happen, in any case. If it * does, we can't do much except hope for the best. */ static GdkFilterReturn motif_top_level_enter (GdkEvent *event, guint16 flags, guint32 timestamp, guint32 source_window, guint32 atom) { GdkDragContext *new_context; GDK_NOTE(DND, g_message ("Motif DND top level enter: flags: %#4x time: %d source_widow: %#4x atom: %d", flags, timestamp, source_window, atom)); new_context = motif_drag_context_new (event->any.window, timestamp, source_window, atom); if (!new_context) return GDK_FILTER_REMOVE; event->dnd.type = GDK_DRAG_ENTER; event->dnd.context = new_context; gdk_drag_context_ref (new_context); current_dest_drag = new_context; return GDK_FILTER_TRANSLATE; } GdkFilterReturn motif_top_level_leave (GdkEvent *event, guint16 flags, guint32 timestamp) { GDK_NOTE(DND, g_message ("Motif DND top level leave: flags: %#4x time: %d", flags, timestamp)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) && (timestamp >= current_dest_drag->start_time)) { event->dnd.type = GDK_DRAG_LEAVE; /* Pass ownership of context to the event */ event->dnd.context = current_dest_drag; current_dest_drag = NULL; return GDK_FILTER_TRANSLATE; } else return GDK_FILTER_REMOVE; } GdkFilterReturn motif_motion (GdkEvent *event, guint16 flags, guint32 timestamp, gint16 x_root, gint16 y_root) { GdkDragContextPrivate *private; GDK_NOTE(DND, g_message ("Motif DND motion: flags: %#4x time: %d (%d, %d)", flags, timestamp, x_root, y_root)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) && (timestamp >= current_dest_drag->start_time)) { private = (GdkDragContextPrivate *)current_dest_drag; event->dnd.type = GDK_DRAG_MOTION; event->dnd.context = current_dest_drag; gdk_drag_context_ref (current_dest_drag); event->dnd.time = timestamp; motif_dnd_translate_flags (current_dest_drag, flags); event->dnd.x_root = x_root; event->dnd.y_root = y_root; private->last_x = x_root; private->last_y = y_root; private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT; return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } GdkFilterReturn motif_operation_changed (GdkEvent *event, guint16 flags, guint32 timestamp) { GdkDragContextPrivate *private; GDK_NOTE(DND, g_message ("Motif DND operation changed: flags: %#4x time: %d", flags, timestamp)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) && (timestamp >= current_dest_drag->start_time)) { event->dnd.type = GDK_DRAG_MOTION; event->dnd.send_event = FALSE; event->dnd.context = current_dest_drag; gdk_drag_context_ref (current_dest_drag); event->dnd.time = timestamp; private = (GdkDragContextPrivate *)current_dest_drag; motif_dnd_translate_flags (current_dest_drag, flags); event->dnd.x_root = private->last_x; event->dnd.y_root = private->last_y; private->drag_status = GDK_DRAG_STATUS_ACTION_WAIT; return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } GdkFilterReturn motif_drop_start (GdkEvent *event, guint16 flags, guint32 timestamp, guint32 source_window, guint32 atom, gint16 x_root, gint16 y_root) { GdkDragContext *new_context; GDK_NOTE(DND, g_message ("Motif DND drop start: flags: %#4x time: %d (%d, %d) source_widow: %#4x atom: %d", flags, timestamp, x_root, y_root, source_window, atom)); new_context = motif_drag_context_new (event->any.window, timestamp, source_window, atom); if (!new_context) return GDK_FILTER_REMOVE; motif_dnd_translate_flags (new_context, flags); event->dnd.type = GDK_DROP_START; event->dnd.context = new_context; event->dnd.time = timestamp; event->dnd.x_root = x_root; event->dnd.y_root = y_root; gdk_drag_context_ref (new_context); current_dest_drag = new_context; return GDK_FILTER_TRANSLATE; } GdkFilterReturn motif_drag_status (GdkEvent *event, guint16 flags, guint32 timestamp) { GdkDragContext *context; GDK_NOTE (DND, g_message ("Motif status message: flags %x", flags)); context = gdk_drag_context_find (TRUE, GDK_WINDOW_XWINDOW (event->any.window), None); if (context) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; if (private->drag_status == GDK_DRAG_STATUS_MOTION_WAIT) private->drag_status = GDK_DRAG_STATUS_DRAG; event->dnd.type = GDK_DRAG_STATUS; event->dnd.send_event = FALSE; event->dnd.context = context; gdk_drag_context_ref (context); event->dnd.time = timestamp; if ((flags & 0x00f0) >> 4 == XmDROP_SITE_VALID) { switch (flags & 0x000f) { case XmDROP_NOOP: context->action = 0; break; case XmDROP_MOVE: context->action = GDK_ACTION_MOVE; break; case XmDROP_COPY: context->action = GDK_ACTION_COPY; break; case XmDROP_LINK: context->action = GDK_ACTION_LINK; break; } } else context->action = 0; return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } GdkFilterReturn motif_dnd_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; XClientMessageEvent *xce = &xevent->xclient; guint8 reason; gchar byte_order; guint16 flags; guint32 timestamp; guint32 source_window; GdkAtom atom; gint16 x_root, y_root; gboolean is_reply; /* First read some fields common to all Motif DND messages */ reason = xce->data.b[0]; byte_order = xce->data.b[1]; flags = card16_to_host (xce->data.s[1], byte_order); timestamp = card32_to_host (xce->data.l[1], byte_order); is_reply = ((reason & 0x80) != 0); switch (reason & 0x7f) { case XmTOP_LEVEL_ENTER: source_window = card32_to_host (xce->data.l[2], byte_order); atom = card32_to_host (xce->data.l[3], byte_order); return motif_top_level_enter (event, flags, timestamp, source_window, atom); case XmTOP_LEVEL_LEAVE: return motif_top_level_leave (event, flags, timestamp); case XmDRAG_MOTION: x_root = card16_to_host (xce->data.s[4], byte_order); y_root = card16_to_host (xce->data.s[5], byte_order); if (!is_reply) return motif_motion (event, flags, timestamp, x_root, y_root); else return motif_drag_status (event, flags, timestamp); case XmDROP_SITE_ENTER: return motif_drag_status (event, flags, timestamp); case XmDROP_SITE_LEAVE: return motif_drag_status (event, XmNO_DROP_SITE << 8 | XmDROP_NOOP, timestamp); case XmDROP_START: x_root = card16_to_host (xce->data.s[4], byte_order); y_root = card16_to_host (xce->data.s[5], byte_order); atom = card32_to_host (xce->data.l[3], byte_order); source_window = card32_to_host (xce->data.l[4], byte_order); if (!is_reply) return motif_drop_start (event, flags, timestamp, source_window, atom, x_root, y_root); break; case XmOPERATION_CHANGED: if (!is_reply) return motif_operation_changed (event, flags, timestamp); else return motif_drag_status (event, flags, timestamp); break; /* To the best of my knowledge, these next two messages are * not part of the protocol, though they are defined in * the header files. */ case XmDROP_FINISH: case XmDRAG_DROP_FINISH: break; } return GDK_FILTER_REMOVE; } /************************************************************* ***************************** XDND ************************** *************************************************************/ /* Utility functions */ static struct { gchar *name; GdkAtom atom; GdkDragAction action; } xdnd_actions_table[] = { { "XdndActionCopy", GDK_NONE, GDK_ACTION_COPY }, { "XdndActionMove", GDK_NONE, GDK_ACTION_MOVE }, { "XdndActionLink", GDK_NONE, GDK_ACTION_LINK }, { "XdndActionAsk", GDK_NONE, GDK_ACTION_ASK }, { "XdndActionPrivate", GDK_NONE, GDK_ACTION_COPY }, }; static const gint xdnd_n_actions = sizeof(xdnd_actions_table) / sizeof(xdnd_actions_table[0]); static gboolean xdnd_actions_initialized = FALSE; static void xdnd_initialize_actions (void) { gint i; xdnd_actions_initialized = TRUE; for (i=0; i < xdnd_n_actions; i++) xdnd_actions_table[i].atom = gdk_atom_intern (xdnd_actions_table[i].name, FALSE); } static GdkDragAction xdnd_action_from_atom (GdkAtom atom) { gint i; if (!xdnd_actions_initialized) xdnd_initialize_actions(); for (i=0; ixclient.data.l[0]; guint32 flags = xevent->xclient.data.l[1]; GdkAtom action = xevent->xclient.data.l[4]; GdkDragContext *context; GDK_NOTE (DND, g_message ("XdndStatus: dest_window: %#x action: %ld", dest_window, action)); context = gdk_drag_context_find (TRUE, xevent->xclient.window, dest_window); if (context) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; if (private->drag_status == GDK_DRAG_STATUS_MOTION_WAIT) private->drag_status = GDK_DRAG_STATUS_DRAG; event->dnd.send_event = FALSE; event->dnd.type = GDK_DRAG_STATUS; event->dnd.context = context; gdk_drag_context_ref (context); event->dnd.time = GDK_CURRENT_TIME; /* FIXME? */ if (!(action != 0) != !(flags & 1)) { GDK_NOTE (DND, g_warning ("Received status event with flags not corresponding to action!\n")); action = 0; } context->action = xdnd_action_from_atom (action); return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } static GdkFilterReturn xdnd_finished_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; guint32 dest_window = xevent->xclient.data.l[0]; GdkDragContext *context; GDK_NOTE (DND, g_message ("XdndFinished: dest_window: %#x", dest_window)); context = gdk_drag_context_find (TRUE, xevent->xclient.window, dest_window); if (context) { event->dnd.type = GDK_DROP_FINISHED; event->dnd.context = context; gdk_drag_context_ref (context); return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } static void xdnd_set_targets (GdkDragContext *context) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; GdkAtom *typelist; GList *tmp_list = context->targets; gint i; gint n_targets = g_list_length (context->targets); typelist = g_new (GdkAtom, n_targets); i = 0; while (tmp_list) { typelist[i] = GPOINTER_TO_INT (tmp_list->data); tmp_list = tmp_list->next; i++; } XChangeProperty (GDK_WINDOW_XDISPLAY (context->source_window), GDK_WINDOW_XWINDOW (context->source_window), gdk_atom_intern ("XdndTypeList", FALSE), XA_ATOM, 32, PropModeReplace, (guchar *)typelist, n_targets); private->xdnd_targets_set = 1; } static void xdnd_send_enter (GdkDragContext *context) { XEvent xev; GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndEnter", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[1] = (3 << 24); /* version */ xev.xclient.data.l[2] = 0; xev.xclient.data.l[3] = 0; xev.xclient.data.l[4] = 0; if (!private->xdnd_selection) private->xdnd_selection = gdk_atom_intern ("XdndSelection", FALSE); if (g_list_length (context->targets) > 3) { if (!private->xdnd_targets_set) xdnd_set_targets (context); xev.xclient.data.l[1] |= 1; } else { GList *tmp_list = context->targets; gint i = 2; while (tmp_list) { xev.xclient.data.l[i] = GPOINTER_TO_INT (tmp_list->data); tmp_list = tmp_list->next; i++; } } if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) { GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); gdk_window_unref (context->dest_window); context->dest_window = NULL; } } static void xdnd_send_leave (GdkDragContext *context) { XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndLeave", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[1] = 0; xev.xclient.data.l[2] = 0; xev.xclient.data.l[3] = 0; xev.xclient.data.l[4] = 0; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) { GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); gdk_window_unref (context->dest_window); context->dest_window = NULL; } } static void xdnd_send_drop (GdkDragContext *context, guint32 time) { XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndDrop", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[1] = 0; xev.xclient.data.l[2] = time; xev.xclient.data.l[3] = 0; xev.xclient.data.l[4] = 0; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) { GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); gdk_window_unref (context->dest_window); context->dest_window = NULL; } } static void xdnd_send_motion (GdkDragContext *context, gint x_root, gint y_root, GdkDragAction action, guint32 time) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndPosition", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[1] = 0; xev.xclient.data.l[2] = (x_root << 16) | y_root; xev.xclient.data.l[3] = time; xev.xclient.data.l[4] = xdnd_action_to_atom (action); if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window), FALSE, 0, &xev)) { GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->dest_window))); gdk_window_unref (context->dest_window); context->dest_window = NULL; } private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT; } static gboolean xdnd_check_dest (Window win) { gboolean retval = FALSE; Atom type = None; int format; unsigned long nitems, after; GdkAtom *version; if (!xdnd_aware_atom) xdnd_aware_atom = gdk_atom_intern ("XdndAware", FALSE); XGetWindowProperty (gdk_display, win, xdnd_aware_atom, 0, 1, False, AnyPropertyType, &type, &format, &nitems, &after, (guchar **)&version); if (type != None) { if ((format == 32) && (nitems == 1)) { if (*version == 3) retval = TRUE; } else GDK_NOTE (DND, g_warning ("Invalid XdndAware property on window %ld\n", win)); XFree (version); } return retval; } /* Target side */ static GdkFilterReturn xdnd_enter_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; GdkDragContext *new_context; gint i; guint32 source_window = xevent->xclient.data.l[0]; gboolean get_types = ((xevent->xclient.data.l[1] & 1) != 0); gint version = (xevent->xclient.data.l[1] & 0xff000000) >> 24; GDK_NOTE (DND, g_message ("XdndEnter: source_window: %#x, version: %#x", source_window, version)); if (version != 3) { /* Old source ignore */ GDK_NOTE (DND, g_message ("Ignored old XdndEnter message")); return GDK_FILTER_REMOVE; } if (current_dest_drag != NULL) { gdk_drag_context_unref (current_dest_drag); current_dest_drag = NULL; } new_context = gdk_drag_context_new (); new_context->protocol = GDK_DRAG_PROTO_XDND; new_context->is_source = FALSE; new_context->source_window = gdk_window_lookup (source_window); if (new_context->source_window) gdk_window_ref (new_context->source_window); else { new_context->source_window = gdk_window_foreign_new (source_window); if (!new_context->source_window) { gdk_drag_context_unref (new_context); return GDK_FILTER_REMOVE; } } new_context->dest_window = event->any.window; gdk_window_ref (new_context->dest_window); new_context->targets = NULL; if (get_types) { Atom type; int format; gulong nitems, after; Atom *data; XGetWindowProperty (GDK_WINDOW_XDISPLAY (event->any.window), source_window, gdk_atom_intern ("XdndTypeList", FALSE), 0, 65536, False, XA_ATOM, &type, &format, &nitems, &after, (guchar **)&data); if ((format != 32) || (type != XA_ATOM)) { gdk_drag_context_unref (new_context); return GDK_FILTER_REMOVE; } for (i=0; itargets = g_list_append (new_context->targets, GUINT_TO_POINTER (data[i])); XFree(data); } else { for (i=0; i<3; i++) if (xevent->xclient.data.l[2+i]) new_context->targets = g_list_append (new_context->targets, GUINT_TO_POINTER (xevent->xclient.data.l[2+i])); } #ifdef G_ENABLE_DEBUG if (gdk_debug_flags & GDK_DEBUG_DND) print_target_list (new_context->targets); #endif /* G_ENABLE_DEBUG */ event->dnd.type = GDK_DRAG_ENTER; event->dnd.context = new_context; gdk_drag_context_ref (new_context); current_dest_drag = new_context; ((GdkDragContextPrivate *)new_context)->xdnd_selection = gdk_atom_intern ("XdndSelection", FALSE); return GDK_FILTER_TRANSLATE; } static GdkFilterReturn xdnd_leave_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; guint32 source_window = xevent->xclient.data.l[0]; GDK_NOTE (DND, g_message ("XdndLeave: source_window: %#x", source_window)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) && (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window)) { event->dnd.type = GDK_DRAG_LEAVE; /* Pass ownership of context to the event */ event->dnd.context = current_dest_drag; current_dest_drag = NULL; return GDK_FILTER_TRANSLATE; } else return GDK_FILTER_REMOVE; } static GdkFilterReturn xdnd_position_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; guint32 source_window = xevent->xclient.data.l[0]; gint16 x_root = xevent->xclient.data.l[2] >> 16; gint16 y_root = xevent->xclient.data.l[2] & 0xffff; guint32 time = xevent->xclient.data.l[3]; GdkAtom action = xevent->xclient.data.l[4]; GDK_NOTE (DND, g_message ("XdndPosition: source_window: %#x position: (%d, %d) time: %d action: %ld", source_window, x_root, y_root, time, action)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) && (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window)) { event->dnd.type = GDK_DRAG_MOTION; event->dnd.context = current_dest_drag; gdk_drag_context_ref (current_dest_drag); event->dnd.time = time; current_dest_drag->suggested_action = xdnd_action_from_atom (action); event->dnd.x_root = x_root; event->dnd.y_root = y_root; ((GdkDragContextPrivate *)current_dest_drag)->last_x = x_root; ((GdkDragContextPrivate *)current_dest_drag)->last_y = y_root; return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } static GdkFilterReturn xdnd_drop_filter (GdkXEvent *xev, GdkEvent *event, gpointer data) { XEvent *xevent = (XEvent *)xev; guint32 source_window = xevent->xclient.data.l[0]; guint32 time = xevent->xclient.data.l[2]; GDK_NOTE (DND, g_message ("XdndDrop: source_window: %#x time: %d", source_window, time)); if ((current_dest_drag != NULL) && (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) && (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window)) { GdkDragContextPrivate *private; private = (GdkDragContextPrivate *)current_dest_drag; event->dnd.type = GDK_DROP_START; event->dnd.context = current_dest_drag; gdk_drag_context_ref (current_dest_drag); event->dnd.time = time; event->dnd.x_root = private->last_x; event->dnd.y_root = private->last_y; return GDK_FILTER_TRANSLATE; } return GDK_FILTER_REMOVE; } /************************************************************* ************************** Public API *********************** *************************************************************/ void gdk_dnd_init (void) { init_byte_order(); gdk_add_client_message_filter ( gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE), motif_dnd_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndEnter", FALSE), xdnd_enter_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndLeave", FALSE), xdnd_leave_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndPosition", FALSE), xdnd_position_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndStatus", FALSE), xdnd_status_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndFinished", FALSE), xdnd_finished_filter, NULL); gdk_add_client_message_filter ( gdk_atom_intern ("XdndDrop", FALSE), xdnd_drop_filter, NULL); } /* Source side */ static void gdk_drag_do_leave (GdkDragContext *context, guint32 time) { if (context->dest_window) { switch (context->protocol) { case GDK_DRAG_PROTO_MOTIF: motif_send_leave (context, time); break; case GDK_DRAG_PROTO_XDND: xdnd_send_leave (context); break; case GDK_DRAG_PROTO_ROOTWIN: break; } gdk_window_unref (context->dest_window); context->dest_window = NULL; } } GdkDragContext * gdk_drag_begin (GdkWindow *window, GList *targets, GdkDragAction actions) { GList *tmp_list; GdkDragContext *new_context; g_return_val_if_fail (window != NULL, NULL); new_context = gdk_drag_context_new (); new_context->is_source = TRUE; new_context->source_window = window; gdk_window_ref (window); tmp_list = g_list_last (targets); new_context->targets = NULL; while (tmp_list) { new_context->targets = g_list_prepend (new_context->targets, tmp_list->data); tmp_list = tmp_list->prev; } new_context->actions = actions; return new_context; } gboolean gdk_drag_get_protocol (guint32 xid, GdkDragProtocol *protocol) { if (xdnd_check_dest (xid)) { *protocol = GDK_DRAG_PROTO_XDND; GDK_NOTE (DND, g_message ("Entering dnd window %#x\n", xid)); return TRUE; } else if (motif_check_dest (xid)) { *protocol = GDK_DRAG_PROTO_MOTIF; GDK_NOTE (DND, g_message ("Entering motif window %#x\n", xid)); return TRUE; } else { /* Check if this is a root window */ gboolean rootwin = FALSE; gint old_warnings = gdk_error_warnings; Atom type = None; int format; unsigned long nitems, after; unsigned char *data; if (xid == gdk_root_window) rootwin = TRUE; if (!rootwin) { gdk_error_code = 0; XGetWindowProperty (gdk_display, xid, gdk_atom_intern ("ENLIGHTENMENT_DESKTOP", FALSE), 0, 0, False, AnyPropertyType, &type, &format, &nitems, &after, &data); if ((gdk_error_code == 0) && type != None) { XFree (data); rootwin = TRUE; } } /* Until I find out what window manager the next one is for, * I'm leaving it commented out. It's supported in the * xscreensaver sources, though. */ #if 0 if (!rootwin) { gdk_error_code = 0; XGetWindowProperty (gdk_display, win, gdk_atom_intern ("__SWM_VROOT", FALSE), 0, 0, False, AnyPropertyType, &type, &format, &nitems, &data); if ((gdk_error_code == 0) && type != None) rootwin = TRUE; } #endif gdk_error_warnings = old_warnings; if (rootwin) { *protocol = GDK_DRAG_PROTO_ROOTWIN; return TRUE; } } return FALSE; } void gdk_drag_find_window (GdkDragContext *context, GdkWindow *drag_window, gint x_root, gint y_root, GdkWindow **dest_window, GdkDragProtocol *protocol) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; Window dest; if (!private->window_cache) private->window_cache = gdk_window_cache_new(); dest = get_client_window_at_coords (private->window_cache, drag_window ? GDK_WINDOW_XWINDOW (drag_window) : GDK_NONE, x_root, y_root); if (private->dest_xid != dest) { private->dest_xid = dest; /* Check if new destination accepts drags, and which protocol */ if (gdk_drag_get_protocol (dest, protocol)) { *dest_window = gdk_window_lookup (dest); if (*dest_window) gdk_window_ref (*dest_window); else *dest_window = gdk_window_foreign_new (dest); } else *dest_window = NULL; } else { *dest_window = context->dest_window; if (*dest_window) gdk_window_ref (*dest_window); *protocol = context->protocol; } } gboolean gdk_drag_motion (GdkDragContext *context, GdkWindow *dest_window, GdkDragProtocol protocol, gint x_root, gint y_root, GdkDragAction action, guint32 time) { GdkDragContextPrivate *private = (GdkDragContextPrivate *)context; if (context->dest_window != dest_window) { GdkEvent temp_event; /* Send a leave to the last destination */ gdk_drag_do_leave (context, time); private->drag_status = GDK_DRAG_STATUS_DRAG; /* Check if new destination accepts drags, and which protocol */ if (dest_window) { context->dest_window = dest_window; gdk_window_ref (context->dest_window); context->protocol = protocol; switch (protocol) { case GDK_DRAG_PROTO_MOTIF: motif_send_enter (context, time); break; case GDK_DRAG_PROTO_XDND: xdnd_send_enter (context); break; case GDK_DRAG_PROTO_ROOTWIN: break; } private->old_action = action; context->suggested_action = action; } else { context->dest_window = NULL; context->action = 0; } /* Push a status event, to let the client know that * the drag changed */ temp_event.dnd.type = GDK_DRAG_STATUS; temp_event.dnd.window = context->source_window; /* We use this to signal a synthetic status. Perhaps * we should use an extra field... */ temp_event.dnd.send_event = TRUE; temp_event.dnd.context = context; temp_event.dnd.time = time; gdk_event_put (&temp_event); } else { private->old_action = context->suggested_action; context->suggested_action = action; } /* Send a drag-motion event */ private->last_x = x_root; private->last_y = y_root; if (context->dest_window) { if (private->drag_status == GDK_DRAG_STATUS_DRAG) { switch (context->protocol) { case GDK_DRAG_PROTO_MOTIF: motif_send_motion (context, x_root, y_root, action, time); break; case GDK_DRAG_PROTO_XDND: xdnd_send_motion (context, x_root, y_root, action, time); break; case GDK_DRAG_PROTO_ROOTWIN: { GdkEvent temp_event; if (g_list_find (context->targets, GUINT_TO_POINTER (gdk_atom_intern ("application/x-rootwin-drop", FALSE)))) context->action = context->suggested_action; else context->action = 0; temp_event.dnd.type = GDK_DRAG_STATUS; temp_event.dnd.window = context->source_window; temp_event.dnd.send_event = FALSE; temp_event.dnd.context = context; temp_event.dnd.time = time; gdk_event_put (&temp_event); } break; } } else return TRUE; } return FALSE; } void gdk_drag_drop (GdkDragContext *context, guint32 time) { if (context->dest_window) { switch (context->protocol) { case GDK_DRAG_PROTO_MOTIF: motif_send_leave (context, time); motif_send_drop (context, time); break; case GDK_DRAG_PROTO_XDND: xdnd_send_drop (context, time); break; case GDK_DRAG_PROTO_ROOTWIN: g_warning ("Drops for GDK_DRAG_PROTO_ROOTWIN must be handled internally"); break; } } } void gdk_drag_abort (GdkDragContext *context, guint32 time) { gdk_drag_do_leave (context, time); } /* Destination side */ void gdk_drag_status (GdkDragContext *context, GdkDragAction action, guint32 time) { GdkDragContextPrivate *private; XEvent xev; g_return_if_fail (context != 0); private = (GdkDragContextPrivate *)context; context->action = action; if (context->protocol == GDK_DRAG_PROTO_MOTIF) { xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window); if (private->drag_status == GDK_DRAG_STATUS_ACTION_WAIT) { xev.xclient.data.b[0] = XmOPERATION_CHANGED | 0x80; } else { if ((action != 0) != (private->old_action != 0)) { if (action != 0) xev.xclient.data.b[0] = XmDROP_SITE_ENTER | 0x80; else xev.xclient.data.b[0] = XmDROP_SITE_LEAVE | 0x80; } else xev.xclient.data.b[0] = XmDRAG_MOTION | 0x80; } xev.xclient.data.b[1] = local_byte_order; switch (action) { case GDK_ACTION_MOVE: xev.xclient.data.s[1] = XmDROP_MOVE; break; case GDK_ACTION_COPY: xev.xclient.data.s[1] = XmDROP_COPY; break; case GDK_ACTION_LINK: xev.xclient.data.s[1] = XmDROP_LINK; break; default: xev.xclient.data.s[1] = XmDROP_NOOP; break; } if (action) xev.xclient.data.s[1] |= (XmDROP_SITE_VALID << 4); else xev.xclient.data.s[1] |= (XmNO_DROP_SITE << 4); xev.xclient.data.l[1] = time; xev.xclient.data.s[4] = private->last_x; xev.xclient.data.s[5] = private->last_y; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->source_window))); } else if (context->protocol == GDK_DRAG_PROTO_XDND) { xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndStatus", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[1] = (action != 0) ? (2 | 1) : 0; xev.xclient.data.l[2] = 0; xev.xclient.data.l[3] = 0; xev.xclient.data.l[4] = xdnd_action_to_atom (action); if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->source_window))); } private->old_action = action; } void gdk_drop_reply (GdkDragContext *context, gboolean ok, guint32 time) { GdkDragContextPrivate *private; g_return_if_fail (context != 0); private = (GdkDragContextPrivate *)context; if (context->protocol == GDK_DRAG_PROTO_MOTIF) { XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE); xev.xclient.format = 8; xev.xclient.data.b[0] = XmDROP_START | 0x80; xev.xclient.data.b[1] = local_byte_order; if (ok) xev.xclient.data.s[2] = XmDROP_COPY | (XmDROP_SITE_VALID << 4) | (XmDROP_NOOP << 8) | (XmDROP << 12); else xev.xclient.data.s[2] = XmDROP_NOOP | (XmNO_DROP_SITE << 4) | (XmDROP_NOOP << 8) | (XmDROP_CANCEL << 12); xev.xclient.data.s[2] = private->last_x; xev.xclient.data.s[3] = private->last_y; gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window), FALSE, 0, &xev); } } void gdk_drop_finish (GdkDragContext *context, gboolean success, guint32 time) { if (context->protocol == GDK_DRAG_PROTO_XDND) { XEvent xev; xev.xclient.type = ClientMessage; xev.xclient.message_type = gdk_atom_intern ("XdndFinished", FALSE); xev.xclient.format = 32; xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window); xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->dest_window); xev.xclient.data.l[1] = 0; xev.xclient.data.l[2] = 0; xev.xclient.data.l[3] = 0; xev.xclient.data.l[4] = 0; if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window), FALSE, 0, &xev)) GDK_NOTE (DND, g_message ("Send event to %lx failed", GDK_WINDOW_XWINDOW (context->source_window))); } } void gdk_window_register_dnd (GdkWindow *window) { static guint32 xdnd_version = 3; MotifDragReceiverInfo info; /* Set Motif drag receiver information property */ if (!motif_drag_receiver_info_atom) motif_drag_receiver_info_atom = gdk_atom_intern ("_MOTIF_DRAG_RECEIVER_INFO", FALSE); info.byte_order = local_byte_order; info.protocol_version = 0; info.protocol_style = XmDRAG_DYNAMIC; info.proxy_window = GDK_NONE; info.num_drop_sites = 0; info.total_size = sizeof(info); XChangeProperty (gdk_display, GDK_WINDOW_XWINDOW (window), motif_drag_receiver_info_atom, motif_drag_receiver_info_atom, 8, PropModeReplace, (guchar *)&info, sizeof (info)); /* Set XdndAware */ if (!xdnd_aware_atom) xdnd_aware_atom = gdk_atom_intern ("XdndAware", FALSE); /* The property needs to be of type XA_ATOM, not XA_INTEGER. Blech */ XChangeProperty (GDK_WINDOW_XDISPLAY (window), GDK_WINDOW_XWINDOW (window), xdnd_aware_atom, XA_ATOM, 32, PropModeReplace, (guchar *)&xdnd_version, sizeof (xdnd_version)); } /************************************************************* * gdk_drag_get_selection: * Returns the selection atom for the current source window * arguments: * * results: *************************************************************/ GdkAtom gdk_drag_get_selection (GdkDragContext *context) { g_return_val_if_fail (context != NULL, GDK_NONE); if (context->protocol == GDK_DRAG_PROTO_MOTIF) return ((GdkDragContextPrivate *)context)->motif_selection; else if (context->protocol == GDK_DRAG_PROTO_XDND) return ((GdkDragContextPrivate *)context)->xdnd_selection; else return GDK_NONE; }