AuroraMiddleware/gtk
1
0
Fork 1
mirror of https://gitlab.gnome.org/GNOME/gtk.git synced 2024-11-05 16:20:10 +00:00
Code Issues Projects Releases Wiki Activity
a700058737
gtk/gdk/gdkdnd.c
Owen Taylor 77e99440df Change signatures for gdk_drag_begin() and gdk_drag_motion() so that the 
Wed Jan 27 18:57:57 1999  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdk.h gdk/gdkdnd.c: Change signatures for
	gdk_drag_begin() and gdk_drag_motion() so that the set
	of possible actions is passed on each motion, not just at
	the beginning of the drag. We do this so that
	we can restrict the set of possible drag events
	when the user presses a modifier key during a
	drag.

	* gdk/gdkdnd.c: Send a motif Operation-changed
	message when the set of possible actions change,
	as well as when the suggested action change.

	* gdk/gdkdnd.c: Change the XdndActionList whenever
	the set of actions change.

	* gdk/gdkdnd.c: Add a filter to catch changes to
	the XdndActionList property for the source widget.

	* gtk/gtkdnd.c: Change the set of possible actions
	when the user presses Control, Shift, or Control-Shift,
	to only include the corresponding action.

	* gtk/gtkdnd.c (gtk_drag_button_release_cb):
	Disconnect button signals before we possibly
	free info structure.
1999-01-28 01:03:15 +00:00

3219 lines
80 KiB
C
Raw Blame History

/* GDK - The GIMP Drawing Kit
* 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
* 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 <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 */
GdkDragAction old_actions; /* The last actions we sent to the source */
GdkDragAction xdnd_actions; /* What is currently set in XdndActionList */
Window dest_xid;
guint xdnd_targets_set : 1; /* Whether we've already set XdndTypeList */
guint xdnd_actions_set : 1; /* Whether we've already set XdndActionList */
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);
static void xdnd_manage_source_filter (GdkDragContext *context,
GdkWindow *window,
gboolean add_filter);
/* 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)
{
if ((context->protocol == GDK_DRAG_PROTO_XDND) &&
!context->is_source)
xdnd_manage_source_filter (context, context->source_window, FALSE);
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) ||
(context->actions != private->old_actions))
{
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 ();
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);
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_ACTION_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;
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);
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; i<xdnd_n_actions; i++)
if (atom == xdnd_actions_table[i].atom)
return xdnd_actions_table[i].action;
return 0;
}
static GdkAtom
xdnd_action_to_atom (GdkDragAction action)
{
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;
return GDK_NONE;
}
static GdkAtom xdnd_aware_atom = GDK_NONE;
/* Source side */
static GdkFilterReturn
xdnd_status_filter (GdkXEvent *xev,
GdkEvent *event,
gpointer data)
{
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);
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 *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);
private->xdnd_targets_set = 1;
}
static void
xdnd_set_actions (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);
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;
private->xdnd_actions = context->actions;
}
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 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 void
xdnd_read_actions (GdkDragContext *context)
{
Atom type;
int format;
gulong nitems, after;
Atom *data;
gint i;
gint old_warnings = gdk_error_warnings;
gdk_error_code = 0;
gdk_error_warnings = 0;
/* Get the XdndActionList, if set */
XGetWindowProperty (GDK_WINDOW_XDISPLAY (context->source_window),
GDK_WINDOW_XWINDOW (context->source_window),
gdk_atom_intern ("XdndActionList", FALSE), 0, 65536,
False, XA_ATOM, &type, &format, &nitems,
&after, (guchar **)&data);
if (!gdk_error_code && (format == 32) && (type == XA_ATOM))
{
context->actions = 0;
for (i=0; i<nitems; i++)
context->actions |= xdnd_action_from_atom (data[i]);
((GdkDragContextPrivate *)context)->xdnd_have_actions = TRUE;
#ifdef G_ENABLE_DEBUG
if (gdk_debug_flags & GDK_DEBUG_DND)
{
GString *action_str = g_string_new (NULL);
if (context->actions & GDK_ACTION_MOVE)
g_string_append(action_str, "MOVE ");
if (context->actions & GDK_ACTION_COPY)
g_string_append(action_str, "COPY ");
if (context->actions & GDK_ACTION_LINK)
g_string_append(action_str, "LINK ");
if (context->actions & GDK_ACTION_ASK)
g_string_append(action_str, "ASK ");
g_message("Xdnd actions = %s", action_str->str);
g_string_free (action_str, TRUE);
}
#endif /* G_ENABLE_DEBUG */
XFree(data);
}
gdk_error_warnings = old_warnings;
gdk_error_code = 0;
}
/* We have to make sure that the XdndActionList we keep internally
* is up to date with the XdndActionList on the source window
* because we get no notification, because Xdnd wasn't meant
* to continually send actions. So we select on PropertyChangeMask
* and add this filter.
*/
static GdkFilterReturn
xdnd_source_window_filter (GdkXEvent *xev,
GdkEvent *event,
gpointer cb_data)
{
XEvent *xevent = (XEvent *)xev;
GdkDragContext *context = cb_data;
if ((xevent->xany.type == PropertyNotify) &&
(xevent->xproperty.atom == gdk_atom_intern ("XdndActionList", FALSE)))
{
xdnd_read_actions (context);
return GDK_FILTER_REMOVE;
}
return GDK_FILTER_CONTINUE;
}
static void
xdnd_manage_source_filter (GdkDragContext *context,
GdkWindow *window,
gboolean add_filter)
{
gint old_warnings = 0; /* quiet gcc */
GdkWindowPrivate *private = (GdkWindowPrivate *)window;
gboolean is_foreign = (private->window_type == GDK_WINDOW_FOREIGN);
if (is_foreign)
{
old_warnings = gdk_error_warnings;
gdk_error_warnings = 0;
}
if (!private->destroyed)
{
if (add_filter)
{
gdk_window_set_events (window,
gdk_window_get_events (window) |
GDK_PROPERTY_CHANGE_MASK);
gdk_window_add_filter (window, xdnd_source_window_filter, context);
}
else
{
gdk_window_remove_filter (window,
xdnd_source_window_filter,
context);
/* Should we remove the GDK_PROPERTY_NOTIFY mask?
* but we might want it for other reasons. (Like
* INCR selection transactions).
*/
}
}
if (is_foreign)
{
gdk_flush();
gdk_error_warnings = old_warnings;
}
}
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]));
}
#ifdef G_ENABLE_DEBUG
if (gdk_debug_flags & GDK_DEBUG_DND)
print_target_list (new_context->targets);
#endif /* G_ENABLE_DEBUG */
xdnd_manage_source_filter (new_context, new_context->source_window, TRUE);
xdnd_read_actions (new_context);
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)
{
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:
case GDK_DRAG_PROTO_NONE:
break;
}
gdk_window_unref (context->dest_window);
context->dest_window = NULL;
}
}
GdkDragContext *
gdk_drag_begin (GdkWindow *window,
GList *targets)
{
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 = 0;
return new_context;
}
guint32
gdk_drag_get_protocol (guint32 xid,
GdkDragProtocol *protocol)
{
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;
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;
}
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_motion (GdkDragContext *context,
GdkWindow *dest_window,
GdkDragProtocol protocol,
gint x_root,
gint y_root,
GdkDragAction suggested_action,
GdkDragAction possible_actions,
guint32 time)
{
GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
g_return_val_if_fail (context != NULL, FALSE);
/* When we have a Xdnd target, make sure our XdndActionList
* matches the current actions;
*/
private->old_actions = context->actions;
context->actions = possible_actions;
if ((protocol == GDK_DRAG_PROTO_XDND) &&
(!private->xdnd_actions_set ||
private->xdnd_actions != possible_actions))
xdnd_set_actions (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:
case GDK_DRAG_PROTO_NONE:
break;
}
private->old_action = suggested_action;
context->suggested_action = suggested_action;
private->old_actions = possible_actions;
}
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 = suggested_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, suggested_action, time);
break;
case GDK_DRAG_PROTO_XDND:
xdnd_send_motion (context, x_root, y_root, suggested_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;
}
void
gdk_drag_drop (GdkDragContext *context,
guint32 time)
{
g_return_if_fail (context != NULL);
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;
}
}
}
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)
{
GdkDragContextPrivate *private;
g_return_if_fail (context != NULL);
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;
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);
}
}
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;
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 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);
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);
}
/*************************************************************
* 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;
}
Reference in New Issue View Git Blame Copy Permalink