* Copyright (C) 1995-1999 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
+ * modify it under the terms of the GNU Lesser 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.
+ * Lesser 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.
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library. If not, see <http://www.gnu.org/licenses/>.
*/
-#include <X11/Xlib.h>
-#include <X11/Xatom.h>
-#include <string.h>
-#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 xdnd_actions_set : 1; /* Whether we've already set XdndActionsList */
- guint xdnd_have_actions : 1; /* Whether an XdndActionList was provided */
- 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)
-{
- g_return_if_fail (context != NULL);
-
- ((GdkDragContextPrivate *)context)->ref_count++;
-}
-
-void
-gdk_drag_context_unref (GdkDragContext *context)
-{
- GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
-
- g_return_if_fail (context != NULL);
-
- 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;
- GdkDragContext *context;
-
- while (tmp_list)
- {
- 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;
- if (node->next)
- node->next->prev = node;
- 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);
-
- g_free (cache);
-}
-
-static Window
-get_client_window_at_coords_recurse (Window win,
- gint x,
- gint y)
-{
- Window root, tmp_parent, *children;
- unsigned int nchildren;
- int i;
- Window child = None;
- Atom type = None;
- int format;
- unsigned long nitems, after;
- unsigned char *data;
-
- 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;
- }
-
-#if 0
- /* This is beautiful! Damn Enlightenment and click-to-focus */
- 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;
- }
-
-#else
- if (XQueryTree(gdk_display, win,
- &root, &tmp_parent, &children, &nchildren) == 0)
- return 0;
-
- if (gdk_error_code == 0)
- {
- for (i = nchildren - 1; (i >= 0) && (child == None); i--)
- {
- XWindowAttributes xwa;
-
- XGetWindowAttributes (gdk_display, children[i], &xwa);
-
- if (gdk_error_code != 0)
- gdk_error_code = 0;
- else if ((xwa.map_state == IsViewable) && (xwa.class == InputOutput) &&
- (x >= xwa.x) && (x < xwa.x + (gint)xwa.width) &&
- (y >= xwa.y) && (y < xwa.y + (gint)xwa.height))
- {
- x -= xwa.x;
- y -= xwa.y;
- child = children[i];
- }
- }
-
- XFree (children);
- }
- else
- gdk_error_code = 0;
-#endif
-
- if (child)
- return get_client_window_at_coords_recurse (child, x, y);
- else
- return None;
-}
-
-static 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 - child->x,
- y_root - child->y);
- 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;
-}
-
-static 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);
-}
-
-/* Motif packs together fields of varying length into the
- * client message. We can't rely on accessing these
- * through data.s[], data.l[], etc, because on some architectures
- * (i.e., Alpha) these won't be valid for format == 8.
- */
-
-#define MOTIF_XCLIENT_BYTE(xevent,i) \
- (xevent)->xclient.data.b[i]
-#define MOTIF_XCLIENT_SHORT(xevent,i) \
- ((gint16 *)&((xevent)->xclient.data.b[0]))[i]
-#define MOTIF_XCLIENT_LONG(xevent,i) \
- ((gint32 *)&((xevent)->xclient.data.b[0]))[i]
-
-#define MOTIF_UNPACK_BYTE(xevent,i) MOTIF_XCLIENT_BYTE(xevent,i)
-#define MOTIF_UNPACK_SHORT(xevent,i) \
- card16_to_host (MOTIF_XCLIENT_SHORT(xevent,i), MOTIF_XCLIENT_BYTE(xevent, 1))
-#define MOTIF_UNPACK_LONG(xevent,i) \
- card32_to_host (MOTIF_XCLIENT_LONG(xevent,i), MOTIF_XCLIENT_BYTE(xevent, 1))
-
-/***** 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 Atom 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, 1, FALSE,
- XA_WINDOW, &type, &format, &nitems, &bytes_after,
- &data);
-
- if ((format == 32) && (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; i<motif_n_target_lists; i++)
- g_list_free (motif_target_lists[i]);
-
- g_free (motif_target_lists);
- motif_target_lists = NULL;
- motif_n_target_lists = 0;
- }
-
- if (motif_find_drag_window (FALSE))
- {
- MotifTargetTableHeader *header = NULL;
- guchar *target_bytes = NULL;
- guchar *p;
- gboolean success = FALSE;
-
- XGetWindowProperty (gdk_display, motif_drag_window,
- motif_drag_targets_atom,
- 0, (sizeof(MotifTargetTableHeader)+3)/4, FALSE,
- motif_drag_targets_atom,
- &type, &format, &nitems, &bytes_after,
- (guchar **)&header);
-
- if ((format != 8) || (nitems < sizeof (MotifTargetTableHeader)))
- goto error;
-
- header->n_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 + 3)/4 - (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; i<header->n_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);
-
- /* We need to make a copy of the targets, since it may
- * be unaligned
- */
- targets = g_new (guint32, n_targets);
- memcpy (targets, p + sizeof(guint16), sizeof(guint32) * n_targets);
-
- p += sizeof(guint16) + n_targets * sizeof(guint32);
- if (p - target_bytes > nitems)
- goto error;
-
- for (j=0; j<n_targets; j++)
- motif_target_lists[i] =
- g_list_prepend (motif_target_lists[i],
- GUINT_TO_POINTER (card32_to_host (targets[j],
- header->byte_order)));
- g_free (targets);
- 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; i<motif_n_target_lists; i++)
- {
- tmp_list1 = motif_target_lists[i];
- tmp_list2 = sorted;
-
- while (tmp_list1 && tmp_list2)
- {
- if (tmp_list1->data != 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;
- 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 n_targets = g_list_length (motif_target_lists[i]);
- guint32 *targets = g_new (guint32, n_targets);
- guint32 *p32 = targets;
-
- tmp_list = motif_target_lists[i];
- while (tmp_list)
- {
- *p32 = GPOINTER_TO_UINT (tmp_list->data);
-
- tmp_list = tmp_list->next;
- p32++;
- }
-
- p16 = (guint16 *)p;
- p += sizeof(guint16);
-
- memcpy (p, targets, n_targets * sizeof(guint32));
-
- *p16 = n_targets;
- p += sizeof(guint32) * n_targets;
- g_free (targets);
- }
-
- 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;
-}
-
-guint32
-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 ? win : GDK_NONE;
-
-}
-
-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);
-
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmTOP_LEVEL_ENTER;
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
- MOTIF_XCLIENT_SHORT (&xev, 1) = 0;
- MOTIF_XCLIENT_LONG (&xev, 1) = time;
- MOTIF_XCLIENT_LONG (&xev, 2) = GDK_WINDOW_XWINDOW (context->source_window);
-
- if (!private->motif_targets_set)
- motif_set_targets (context);
-
- MOTIF_XCLIENT_LONG (&xev, 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);
-
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmTOP_LEVEL_LEAVE;
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
- MOTIF_XCLIENT_SHORT (&xev, 1) = 0;
- MOTIF_XCLIENT_LONG (&xev, 1) = time;
- MOTIF_XCLIENT_LONG (&xev, 2) = GDK_WINDOW_XWINDOW (context->source_window);
- MOTIF_XCLIENT_LONG (&xev, 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);
-
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
- MOTIF_XCLIENT_SHORT (&xev, 1) = motif_dnd_get_flags (context);
- MOTIF_XCLIENT_LONG (&xev, 1) = time;
-
- if (context->suggested_action != private->old_action)
- {
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmOPERATION_CHANGED;
-
- private->drag_status = GDK_DRAG_STATUS_ACTION_WAIT;
- retval = TRUE;
- }
- else
- {
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDRAG_MOTION;
-
- MOTIF_XCLIENT_SHORT (&xev, 4) = x_root;
- MOTIF_XCLIENT_SHORT (&xev, 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);
-
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDROP_START;
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
- MOTIF_XCLIENT_SHORT (&xev, 1) = motif_dnd_get_flags (context);
- MOTIF_XCLIENT_LONG (&xev, 1) = time;
-
- MOTIF_XCLIENT_SHORT (&xev, 4) = private->last_x;
- MOTIF_XCLIENT_SHORT (&xev, 5) = private->last_y;
-
- MOTIF_XCLIENT_LONG (&xev, 3) = private->motif_selection;
- MOTIF_XCLIENT_LONG (&xev, 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;
- }
-
- initiator_info->targets_index =
- card16_to_host (initiator_info->targets_index, initiator_info->byte_order);
- initiator_info->selection_atom =
- card32_to_host (initiator_info->selection_atom, initiator_info->byte_order);
-
- 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);
+/*
+ * Modified by the GTK+ Team and others 1997-2000. See the AUTHORS
+ * file for a list of people on the GTK+ Team. See the ChangeLog
+ * files for a list of changes. These files are distributed with
+ * GTK+ at ftp://ftp.gtk.org/pub/gtk/.
+ */
- 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);
+#include "config.h"
- event->dnd.time = timestamp;
+#include "gdkdndprivate.h"
+#include "gdkdisplay.h"
+#include "gdkwindow.h"
- 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;
-}
+/**
+ * SECTION:dnd
+ * @title: Drag And Drop
+ * @short_description: Functions for controlling drag and drop handling
+ *
+ * These functions provide a low level interface for drag and drop.
+ * The X backend of GDK supports both the Xdnd and Motif drag and drop
+ * protocols transparently, the Win32 backend supports the WM_DROPFILES
+ * protocol.
+ *
+ * GTK+ provides a higher level abstraction based on top of these functions,
+ * and so they are not normally needed in GTK+ applications.
+ * See the <link linkend="gtk-Drag-and-Drop">Drag and Drop</link> section of
+ * the GTK+ documentation for more information.
+ */
-GdkFilterReturn
-motif_dnd_filter (GdkXEvent *xev,
- GdkEvent *event,
- gpointer data)
+/**
+ * gdk_drag_context_list_targets:
+ * @context: a #GdkDragContext
+ *
+ * Retrieves the list of targets of the context.
+ *
+ * Return value: (transfer none) (element-type GdkAtom): a #GList of targets
+ *
+ * Since: 2.22
+ **/
+GList *
+gdk_drag_context_list_targets (GdkDragContext *context)
{
- XEvent *xevent = (XEvent *)xev;
-
- guint8 reason;
- 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 = MOTIF_UNPACK_BYTE (xevent, 0);
- flags = MOTIF_UNPACK_SHORT (xevent, 1);
- timestamp = MOTIF_UNPACK_LONG (xevent, 1);
-
- is_reply = ((reason & 0x80) != 0);
-
- switch (reason & 0x7f)
- {
- case XmTOP_LEVEL_ENTER:
- source_window = MOTIF_UNPACK_LONG (xevent, 2);
- atom = MOTIF_UNPACK_LONG (xevent, 3);
- 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 = MOTIF_UNPACK_SHORT (xevent, 4);
- y_root = MOTIF_UNPACK_SHORT (xevent, 5);
-
- 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 = MOTIF_UNPACK_SHORT (xevent, 4);
- y_root = MOTIF_UNPACK_SHORT (xevent, 5);
- atom = MOTIF_UNPACK_LONG (xevent, 3);
- source_window = MOTIF_UNPACK_LONG (xevent, 4);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), NULL);
- 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);
+ return context->targets;
}
-static GdkDragAction
-xdnd_action_from_atom (GdkAtom atom)
+/**
+ * gdk_drag_context_get_actions:
+ * @context: a #GdkDragContext
+ *
+ * Determines the bitmask of actions proposed by the source if
+ * gdk_drag_context_get_suggested_action() returns GDK_ACTION_ASK.
+ *
+ * Return value: the #GdkDragAction flags
+ *
+ * Since: 2.22
+ **/
+GdkDragAction
+gdk_drag_context_get_actions (GdkDragContext *context)
{
- gint i;
-
- if (!xdnd_actions_initialized)
- xdnd_initialize_actions();
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), GDK_ACTION_DEFAULT);
- for (i=0; i<xdnd_n_actions; i++)
- if (atom == xdnd_actions_table[i].atom)
- return xdnd_actions_table[i].action;
-
- return 0;
+ return context->actions;
}
-static GdkAtom
-xdnd_action_to_atom (GdkDragAction action)
+/**
+ * gdk_drag_context_get_suggested_action:
+ * @context: a #GdkDragContext
+ *
+ * Determines the suggested drag action of the context.
+ *
+ * Return value: a #GdkDragAction value
+ *
+ * Since: 2.22
+ **/
+GdkDragAction
+gdk_drag_context_get_suggested_action (GdkDragContext *context)
{
- gint i;
-
- if (!xdnd_actions_initialized)
- xdnd_initialize_actions();
-
- for (i=0; i<xdnd_n_actions; i++)
- if (action == xdnd_actions_table[i].action)
- return xdnd_actions_table[i].atom;
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), 0);
- return GDK_NONE;
+ return context->suggested_action;
}
-static GdkAtom xdnd_aware_atom = GDK_NONE;
-
-/* Source side */
-
-static GdkFilterReturn
-xdnd_status_filter (GdkXEvent *xev,
- GdkEvent *event,
- gpointer data)
+/**
+ * gdk_drag_context_get_selected_action:
+ * @context: a #GdkDragContext
+ *
+ * Determines the action chosen by the drag destination.
+ *
+ * Return value: a #GdkDragAction value
+ *
+ * Since: 2.22
+ **/
+GdkDragAction
+gdk_drag_context_get_selected_action (GdkDragContext *context)
{
- XEvent *xevent = (XEvent *)xev;
- guint32 dest_window = xevent->xclient.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);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), 0);
- return GDK_FILTER_TRANSLATE;
- }
-
- return GDK_FILTER_REMOVE;
+ return context->action;
}
-static GdkFilterReturn
-xdnd_finished_filter (GdkXEvent *xev,
- GdkEvent *event,
- gpointer data)
+/**
+ * gdk_drag_context_get_source_window:
+ * @context: a #GdkDragContext
+ *
+ * Returns the #GdkWindow where the DND operation started.
+ *
+ * Return value: (transfer none): a #GdkWindow
+ *
+ * Since: 2.22
+ **/
+GdkWindow *
+gdk_drag_context_get_source_window (GdkDragContext *context)
{
- 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));
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), NULL);
- 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;
+ return context->source_window;
}
-static void
-xdnd_set_targets (GdkDragContext *context)
+/**
+ * gdk_drag_context_get_dest_window:
+ * @context: a #GdkDragContext
+ *
+ * Returns the destination windw for the DND operation.
+ *
+ * Return value: (transfer none): a #GdkWindow
+ *
+ * Since: 3.0
+ **/
+GdkWindow *
+gdk_drag_context_get_dest_window (GdkDragContext *context)
{
- GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
- GdkAtom *atomlist;
- GList *tmp_list = context->targets;
- gint i;
- gint n_atoms = g_list_length (context->targets);
-
- atomlist = g_new (GdkAtom, n_atoms);
- i = 0;
- while (tmp_list)
- {
- atomlist[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 *)atomlist, n_atoms);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), NULL);
- private->xdnd_targets_set = 1;
+ return context->dest_window;
}
-static void
-xdnd_set_actions (GdkDragContext *context)
+/**
+ * gdk_drag_context_get_protocol:
+ * @context: a #GdkDragContext
+ *
+ * Returns the drag protocol thats used by this context.
+ *
+ * Returns: the drag protocol
+ *
+ * Since: 3.0
+ */
+GdkDragProtocol
+gdk_drag_context_get_protocol (GdkDragContext *context)
{
- GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
- GdkAtom *atomlist;
- gint i;
- gint n_atoms;
- guint actions;
-
- if (!xdnd_actions_initialized)
- xdnd_initialize_actions();
-
- actions = context->actions;
- n_atoms = 0;
- for (i=0; i<xdnd_n_actions; i++)
- {
- if (actions & xdnd_actions_table[i].action)
- {
- actions &= ~xdnd_actions_table[i].action;
- n_atoms++;
- }
- }
-
- atomlist = g_new (GdkAtom, n_atoms);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), GDK_DRAG_PROTO_NONE);
- actions = context->actions;
- n_atoms = 0;
- for (i=0; i<xdnd_n_actions; i++)
- {
- if (actions & xdnd_actions_table[i].action)
- {
- actions &= ~xdnd_actions_table[i].action;
- atomlist[n_atoms] = xdnd_actions_table[i].atom;
- n_atoms++;
- }
- }
-
- XChangeProperty (GDK_WINDOW_XDISPLAY (context->source_window),
- GDK_WINDOW_XWINDOW (context->source_window),
- gdk_atom_intern ("XdndActionList", FALSE),
- XA_ATOM, 32, PropModeReplace,
- (guchar *)atomlist, n_atoms);
-
- private->xdnd_actions_set = 1;
+ return context->protocol;
}
-static void
-xdnd_send_enter (GdkDragContext *context)
+/**
+ * gdk_drag_context_set_device:
+ * @context: a #GdkDragContext
+ * @device: a #GdkDevice
+ *
+ * Associates a #GdkDevice to @context, so all Drag and Drop events
+ * for @context are emitted as if they came from this device.
+ */
+void
+gdk_drag_context_set_device (GdkDragContext *context,
+ GdkDevice *device)
{
- 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);
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
+ g_return_if_fail (GDK_IS_DEVICE (device));
- 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;
+ if (context->device)
+ g_object_unref (context->device);
- while (tmp_list)
- {
- xev.xclient.data.l[i] = GPOINTER_TO_INT (tmp_list->data);
- tmp_list = tmp_list->next;
- i++;
- }
- }
+ context->device = device;
- if (!private->xdnd_actions_set)
- xdnd_set_actions (context);
-
- 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;
- }
+ if (context->device)
+ g_object_ref (context->device);
}
-static void
-xdnd_send_leave (GdkDragContext *context)
+/**
+ * gdk_drag_context_get_device:
+ * @context: a #GdkDragContext
+ *
+ * Returns the #GdkDevice associated to the drag context.
+ *
+ * Returns: (transfer none): The #GdkDevice associated to @context.
+ **/
+GdkDevice *
+gdk_drag_context_get_device (GdkDragContext *context)
{
- XEvent xev;
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), NULL);
- 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;
- }
+ return context->device;
}
-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;
- }
-}
+G_DEFINE_TYPE (GdkDragContext, gdk_drag_context, G_TYPE_OBJECT)
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 guint32
-xdnd_check_dest (Window win)
-{
- gboolean retval = FALSE;
- Atom type = None;
- int format;
- unsigned long nitems, after;
- GdkAtom *version;
- Window *proxy_data;
- Window proxy;
- static GdkAtom xdnd_proxy_atom = GDK_NONE;
-
- gint old_warnings = gdk_error_warnings;
-
- if (!xdnd_proxy_atom)
- xdnd_proxy_atom = gdk_atom_intern ("XdndProxy", FALSE);
-
- if (!xdnd_aware_atom)
- xdnd_aware_atom = gdk_atom_intern ("XdndAware", FALSE);
-
- proxy = GDK_NONE;
-
- gdk_error_code = 0;
- gdk_error_warnings = 0;
-
- XGetWindowProperty (gdk_display, win,
- xdnd_proxy_atom, 0,
- 1, False, AnyPropertyType,
- &type, &format, &nitems, &after,
- (guchar **)&proxy_data);
-
- if (!gdk_error_code)
- {
- if (type != None)
- {
- if ((format == 32) && (nitems == 1))
- {
- proxy = *proxy_data;
- }
- else
- GDK_NOTE (DND,
- g_warning ("Invalid XdndOwner property on window %ld\n", win));
-
- XFree (proxy_data);
- }
-
- XGetWindowProperty (gdk_display, proxy ? proxy : win,
- xdnd_aware_atom, 0,
- 1, False, AnyPropertyType,
- &type, &format, &nitems, &after,
- (guchar **)&version);
-
- if (!gdk_error_code && 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);
- }
-
- }
-
- gdk_error_warnings = old_warnings;
- gdk_error_code = 0;
-
- return retval ? (proxy ? proxy : win) : GDK_NONE;
-}
-
-/* Target side */
-
-static GdkFilterReturn
-xdnd_enter_filter (GdkXEvent *xev,
- GdkEvent *event,
- gpointer cb_data)
-{
- XEvent *xevent = (XEvent *)xev;
- GdkDragContext *new_context;
- gint i;
-
- Atom type;
- int format;
- gulong nitems, after;
- Atom *data;
-
- 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)
- {
- 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; i<nitems; i++)
- new_context->targets = 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]));
- }
-
- /* Get the XdndActionList, if set */
-
- XGetWindowProperty (GDK_WINDOW_XDISPLAY (event->any.window),
- source_window,
- gdk_atom_intern ("XdndActionList", FALSE), 0, 65536,
- False, XA_ATOM, &type, &format, &nitems,
- &after, (guchar **)&data);
-
- if ((format == 32) && (type == XA_ATOM))
- {
- new_context->actions = 0;
-
- for (i=0; i<nitems; i++)
- new_context->actions |= xdnd_action_from_atom (data[i]);
-
- ((GdkDragContextPrivate *)new_context)->xdnd_have_actions = TRUE;
-
-#ifdef G_ENABLE_DEBUG
- if (gdk_debug_flags & GDK_DEBUG_DND)
- {
- GString *action_str = g_string_new (NULL);
- if (new_context->actions & GDK_ACTION_MOVE)
- g_string_append(action_str, "MOVE ");
- if (new_context->actions & GDK_ACTION_COPY)
- g_string_append(action_str, "COPY ");
- if (new_context->actions & GDK_ACTION_LINK)
- g_string_append(action_str, "LINK ");
- if (new_context->actions & GDK_ACTION_ASK)
- g_string_append(action_str, "ASK ");
-
- g_message("\tactions = %s", action_str->str);
- g_string_free (action_str, TRUE);
- }
-#endif /* G_ENABLE_DEBUG */
-
- XFree(data);
- }
-
-#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);
- if (!((GdkDragContextPrivate *)current_dest_drag)->xdnd_have_actions)
- current_dest_drag->actions = current_dest_drag->suggested_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)
+gdk_drag_context_init (GdkDragContext *context)
{
- 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)
+gdk_drag_context_finalize (GObject *object)
{
- 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:
- case GDK_DRAG_PROTO_NONE:
- 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);
+ GdkDragContext *context = GDK_DRAG_CONTEXT (object);
- new_context = gdk_drag_context_new ();
- new_context->is_source = TRUE;
- new_context->source_window = window;
- gdk_window_ref (window);
+ g_list_free (context->targets);
- 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;
- }
+ if (context->source_window)
+ g_object_unref (context->source_window);
- new_context->actions = actions;
+ if (context->dest_window)
+ g_object_unref (context->dest_window);
- return new_context;
+ G_OBJECT_CLASS (gdk_drag_context_parent_class)->finalize (object);
}
-guint32
-gdk_drag_get_protocol (guint32 xid,
- GdkDragProtocol *protocol)
+static void
+gdk_drag_context_class_init (GdkDragContextClass *klass)
{
- guint32 retval;
-
- if ((retval = xdnd_check_dest (xid)))
- {
- *protocol = GDK_DRAG_PROTO_XDND;
- GDK_NOTE (DND, g_message ("Entering dnd window %#x\n", xid));
- return retval;
- }
- else if ((retval = motif_check_dest (xid)))
- {
- *protocol = GDK_DRAG_PROTO_MOTIF;
- GDK_NOTE (DND, g_message ("Entering motif window %#x\n", xid));
- return retval;
- }
- 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;
+ GObjectClass *object_class = G_OBJECT_CLASS (klass);
- 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 xid;
- }
- }
-
- *protocol = GDK_DRAG_PROTO_NONE;
- return GDK_NONE;
+ object_class->finalize = gdk_drag_context_finalize;
}
+/**
+ * gdk_drag_find_window_for_screen:
+ * @context: a #GdkDragContext
+ * @drag_window: a window which may be at the pointer position, but
+ * should be ignored, since it is put up by the drag source as an icon
+ * @screen: the screen where the destination window is sought
+ * @x_root: the x position of the pointer in root coordinates
+ * @y_root: the y position of the pointer in root coordinates
+ * @dest_window: (out): location to store the destination window in
+ * @protocol: (out): location to store the DND protocol in
+ *
+ * Finds the destination window and DND protocol to use at the
+ * given pointer position.
+ *
+ * This function is called by the drag source to obtain the
+ * @dest_window and @protocol parameters for gdk_drag_motion().
+ *
+ * Since: 2.2
+ */
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;
-
- g_return_if_fail (context != NULL);
-
- 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)
- {
- Window recipient;
- private->dest_xid = dest;
-
- /* Check if new destination accepts drags, and which protocol */
-
- if ((recipient = gdk_drag_get_protocol (dest, protocol)))
- {
- *dest_window = gdk_window_lookup (recipient);
- if (*dest_window)
- gdk_window_ref (*dest_window);
- else
- *dest_window = gdk_window_foreign_new (recipient);
- }
- else
- *dest_window = NULL;
- }
- else
- {
- *dest_window = context->dest_window;
- if (*dest_window)
- gdk_window_ref (*dest_window);
- *protocol = context->protocol;
- }
-}
-
-gboolean
+gdk_drag_find_window_for_screen (GdkDragContext *context,
+ GdkWindow *drag_window,
+ GdkScreen *screen,
+ gint x_root,
+ gint y_root,
+ GdkWindow **dest_window,
+ GdkDragProtocol *protocol)
+{
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
+
+ *dest_window = GDK_DRAG_CONTEXT_GET_CLASS (context)
+ ->find_window (context, drag_window, screen, x_root, y_root, protocol);
+}
+
+/**
+ * gdk_drag_status:
+ * @context: a #GdkDragContext
+ * @action: the selected action which will be taken when a drop happens,
+ * or 0 to indicate that a drop will not be accepted
+ * @time_: the timestamp for this operation
+ *
+ * Selects one of the actions offered by the drag source.
+ *
+ * This function is called by the drag destination in response to
+ * gdk_drag_motion() called by the drag source.
+ */
+void
+gdk_drag_status (GdkDragContext *context,
+ GdkDragAction action,
+ guint32 time_)
+{
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
+
+ GDK_DRAG_CONTEXT_GET_CLASS (context)->drag_status (context, action, time_);
+}
+
+/**
+ * gdk_drag_motion:
+ * @context: a #GdkDragContext
+ * @dest_window: the new destination window, obtained by
+ * gdk_drag_find_window()
+ * @protocol: the DND protocol in use, obtained by gdk_drag_find_window()
+ * @x_root: the x position of the pointer in root coordinates
+ * @y_root: the y position of the pointer in root coordinates
+ * @suggested_action: the suggested action
+ * @possible_actions: the possible actions
+ * @time_: the timestamp for this operation
+ *
+ * Updates the drag context when the pointer moves or the
+ * set of actions changes.
+ *
+ * This function is called by the drag source.
+ */
+gboolean
gdk_drag_motion (GdkDragContext *context,
- GdkWindow *dest_window,
- GdkDragProtocol protocol,
- gint x_root,
- gint y_root,
- GdkDragAction action,
- guint32 time)
+ GdkWindow *dest_window,
+ GdkDragProtocol protocol,
+ gint x_root,
+ gint y_root,
+ GdkDragAction suggested_action,
+ GdkDragAction possible_actions,
+ guint32 time_)
+{
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), FALSE);
+
+ return GDK_DRAG_CONTEXT_GET_CLASS (context)
+ ->drag_motion (context,
+ dest_window,
+ protocol,
+ x_root,
+ y_root,
+ suggested_action,
+ possible_actions,
+ time_);
+}
+
+/**
+ * gdk_drag_abort:
+ * @context: a #GdkDragContext
+ * @time_: the timestamp for this operation
+ *
+ * Aborts a drag without dropping.
+ *
+ * This function is called by the drag source.
+ */
+void
+gdk_drag_abort (GdkDragContext *context,
+ guint32 time_)
{
- GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
-
- g_return_val_if_fail (context != NULL, FALSE);
-
- 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:
- case GDK_DRAG_PROTO_NONE:
- 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;
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
- 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;
- case GDK_DRAG_PROTO_NONE:
- g_warning ("GDK_DRAG_PROTO_NONE is not valid in gdk_drag_motion()");
- break;
- }
- }
- else
- return TRUE;
- }
-
- return FALSE;
+ GDK_DRAG_CONTEXT_GET_CLASS (context)->drag_abort (context, time_);
}
+/**
+ * gdk_drag_drop:
+ * @context: a #GdkDragContext
+ * @time_: the timestamp for this operation
+ *
+ * Drops on the current destination.
+ *
+ * This function is called by the drag source.
+ */
void
gdk_drag_drop (GdkDragContext *context,
- guint32 time)
+ guint32 time_)
{
- g_return_if_fail (context != NULL);
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
- 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;
- case GDK_DRAG_PROTO_NONE:
- g_warning ("GDK_DRAG_PROTO_NONE is not valid in gdk_drag_drop()");
- break;
- }
- }
+ GDK_DRAG_CONTEXT_GET_CLASS (context)->drag_drop (context, time_);
}
+/**
+ * gdk_drop_reply:
+ * @context: a #GdkDragContext
+ * @accepted: %TRUE if the drop is accepted
+ * @time_: the timestamp for this operation
+ *
+ * Accepts or rejects a drop.
+ *
+ * This function is called by the drag destination in response
+ * to a drop initiated by the drag source.
+ */
void
-gdk_drag_abort (GdkDragContext *context,
- guint32 time)
-{
- g_return_if_fail (context != NULL);
-
- 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 != NULL);
-
- 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)
- {
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmOPERATION_CHANGED | 0x80;
- }
- else
- {
- if ((action != 0) != (private->old_action != 0))
- {
- if (action != 0)
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDROP_SITE_ENTER | 0x80;
- else
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDROP_SITE_LEAVE | 0x80;
- }
- else
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDRAG_MOTION | 0x80;
- }
-
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
-
- switch (action)
- {
- case GDK_ACTION_MOVE:
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_MOVE;
- break;
- case GDK_ACTION_COPY:
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_COPY;
- break;
- case GDK_ACTION_LINK:
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_LINK;
- break;
- default:
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_NOOP;
- break;
- }
-
- if (action)
- MOTIF_XCLIENT_SHORT (&xev, 1) |= (XmDROP_SITE_VALID << 4);
- else
- MOTIF_XCLIENT_SHORT (&xev, 1) |= (XmNO_DROP_SITE << 4);
-
- MOTIF_XCLIENT_LONG (&xev, 1) = time;
- MOTIF_XCLIENT_SHORT (&xev, 4) = private->last_x;
- MOTIF_XCLIENT_SHORT (&xev, 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)
+gdk_drop_reply (GdkDragContext *context,
+ gboolean accepted,
+ guint32 time_)
{
- GdkDragContextPrivate *private;
-
- g_return_if_fail (context != NULL);
-
- private = (GdkDragContextPrivate *)context;
-
- if (context->protocol == GDK_DRAG_PROTO_MOTIF)
- {
- XEvent xev;
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
- xev.xclient.type = ClientMessage;
- xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
- xev.xclient.format = 8;
-
- MOTIF_XCLIENT_BYTE (&xev, 0) = XmDROP_START | 0x80;
- MOTIF_XCLIENT_BYTE (&xev, 1) = local_byte_order;
- if (ok)
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_COPY |
- (XmDROP_SITE_VALID << 4) |
- (XmDROP_NOOP << 8) |
- (XmDROP << 12);
- else
- MOTIF_XCLIENT_SHORT (&xev, 1) = XmDROP_NOOP |
- (XmNO_DROP_SITE << 4) |
- (XmDROP_NOOP << 8) |
- (XmDROP_CANCEL << 12);
- MOTIF_XCLIENT_SHORT (&xev, 2) = private->last_x;
- MOTIF_XCLIENT_SHORT (&xev, 3) = private->last_y;
-
- gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
- FALSE, 0, &xev);
- }
+ GDK_DRAG_CONTEXT_GET_CLASS (context)->drop_reply (context, accepted, time_);
}
-void
-gdk_drop_finish (GdkDragContext *context,
- gboolean success,
- guint32 time)
+/**
+ * gdk_drop_finish:
+ * @context: a #GtkDragContext
+ * @success: %TRUE if the data was successfully received
+ * @time_: the timestamp for this operation
+ *
+ * Ends the drag operation after a drop.
+ *
+ * This function is called by the drag destination.
+ */
+void
+gdk_drop_finish (GdkDragContext *context,
+ gboolean success,
+ guint32 time_)
{
- g_return_if_fail (context != NULL);
-
- 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;
+ g_return_if_fail (GDK_IS_DRAG_CONTEXT (context));
- 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)));
- }
+ GDK_DRAG_CONTEXT_GET_CLASS (context)->drop_finish (context, success, time_);
}
-
-void
-gdk_window_register_dnd (GdkWindow *window)
+/**
+ * gdk_drag_drop_succeeded:
+ * @context: a #GdkDragContext
+ *
+ * Returns whether the dropped data has been successfully
+ * transferred. This function is intended to be used while
+ * handling a %GDK_DROP_FINISHED event, its return value is
+ * meaningless at other times.
+ *
+ * Return value: %TRUE if the drop was successful.
+ *
+ * Since: 2.6
+ **/
+gboolean
+gdk_drag_drop_succeeded (GdkDragContext *context)
{
- static gulong xdnd_version = 3;
- MotifDragReceiverInfo info;
-
- g_return_if_fail (window != NULL);
-
- /* 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);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), FALSE);
- 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, 1);
+ return GDK_DRAG_CONTEXT_GET_CLASS (context)->drop_status (context);
}
-/*************************************************************
+/**
* gdk_drag_get_selection:
- * Returns the selection atom for the current source window
- * arguments:
- *
- * results:
- *************************************************************/
-
-GdkAtom
+ * @context: a #GdkDragContext.
+ *
+ * Returns the selection atom for the current source window.
+ *
+ * Return value: (transfer none): the selection atom, or %GDK_NONE
+ */
+GdkAtom
gdk_drag_get_selection (GdkDragContext *context)
{
- g_return_val_if_fail (context != NULL, GDK_NONE);
+ g_return_val_if_fail (GDK_IS_DRAG_CONTEXT (context), GDK_NONE);
+ g_return_val_if_fail (context->source_window != 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;
+ return GDK_DRAG_CONTEXT_GET_CLASS (context)->get_selection (context);
}
-
projects / ~andy / gtk / blobdiff