Added a modular client-message-filter mechanism, that is used for the DND

Sun Oct 18 18:16:39 1998  Owen Taylor  <otaylor@gtk.org>

	* gdk/gdk.c gdkprivate.h: Added a modular client-message-filter
	mechanism, that is used for the DND messages.

	  Removed all the old DND code.

	* gdk/gdkcolormap.c gdk/gdkcolormap.h: Add a function to
	get the visual of a given colormap.

	* gtk/gtkcolorsel.c: Conversion to new DND, drag
	a color-swatch.

	* gdk/gdk.h gdk/gdkdnd.c: The low-level
	X oriented portions of drag and drop protocols.
	Sending and receiving client messages, and navigating
	window trees.

	* gdk/gdkimage.c: added a gdk_flush() when destroying
	SHM images to hopefully make it more likely that
        X will gracefully handle the segment being destroyed.

	* gdk/gdkprivate.h gtk/gtkdebug.h: Add new
	DND debugging flags.

	* gtk/gtkeditable.[ch]: Updates for the selection handling
	changes.

	* gtk/gtkselection.[ch]: Added GtkTargetList, a
	refcounted data structure for keeping track of lists
	of GdkAtom + information. Removed selection_handler_add
	in favor of a "drag_data_get" signal.

	* gtk/gtkdnd.[ch] gtk/gtk.h: New files - highlevel (event loop
	dependent) parts of the DND protocols, display of drag icons,
	drag-under highlighting, and the "default handlers".

	* gtk/gtkinvisible.[ch]: New widget - InputOnly offscreen
	windows that are used for reliable pointer grabs and
	selection handling in the DND code.

	* gtk/testdnd.c: New test program for new DND. (Old
	DND tests in testgtk still need to be converted.)

	* gtk/testselection.c: Use the new selection API.

	* docs/dnd_internals: Start at describing how
	all the new code works inside.

	* docs/Changes-1.2.txt: New file describing source-incompatible
	changes in GTK+-1.2.

Sat Oct 17 22:50:34 1998  Owen Taylor  <otaylor@gtk.org>

	* gdk/gdkwindow.c (gdk_window_remove_filter): Free
	the right list node.

	* gdk/gdkwindow.c (gdk_window_init): Add gdk_root_parent
	to the XID table so we can receive events on it.

Wed Oct 14 12:57:40 1998  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdk.c gdk/gdk.h (gdk_event_get_time): New function
	to get the timestamp from a generic event.

Fri Oct  9 13:16:04 1998  Owen Taylor  <otaylor@redhat.com>

	* gtk/gtkwidget.c (gtk_widget_add_events): Added function
	that safely adds additional events to a widget's event
	mask, even if the widget has previously been realized.
	(We can do this, but not remove events from the event
	 mask).

Fri Oct  2 17:35:35 1998  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdkproperty.c (gdk_property_get): Allow type == 0,
	for AnyPropertyType.

Fri Oct  2 10:32:21 1998  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdkproperty.c (gdk_atom_intern): Add client-local
	hashing.

Thu Sep 24 20:33:54 1998  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdk.c (gdk_event_send_clientmessage_toall): serial
	isn't a timestamp.

Thu Sep 17 14:23:03 1998  Owen Taylor  <otaylor@redhat.com>

	* gdk/gdk.c (gdk_event_translate): Removed printing
	of unknown window lookup warnings. (Made it
	a GDK_NOTE) - they happen in many circumstances.

1 files changed, 2802 insertions, 106 deletions

diff --git a/gdk/gdkdnd.c b/gdk/gdkdnd.c
index 331aad7ef7..67720ad6bd 100644
--- a/gdk/gdkdnd.c
+++ b/gdk/gdkdnd.c
@@ -20,157 +20,2853 @@
 #include <X11/Xatom.h>
 #include <string.h>
 #include "gdkx.h"
+#include "gdk/gdkprivate.h"
 #include "gdk.h"
 
-/* Nothing much here now, but we have to make a start some time ;-) */
+typedef struct _GdkDragContextPrivate GdkDragContextPrivate;
 
-void
-gdk_dnd_set_drag_cursors(GdkCursor *default_cursor, GdkCursor *goahead_cursor)
+typedef enum {
+  GDK_DRAG_STATUS_DRAG,
+  GDK_DRAG_STATUS_MOTION_WAIT,
+  GDK_DRAG_STATUS_ACTION_WAIT,
+  GDK_DRAG_STATUS_DROP
+} GtkDragStatus;
+
+typedef struct {
+  guint32 xid;
+  gint x, y, width, height;
+  gboolean mapped;
+} GdkCacheChild;
+
+typedef struct {
+  GList *children;
+  GHashTable *child_hash;
+  guint old_event_mask;
+} GdkWindowCache;
+
+/* Structure that holds information about a drag in progress.
+ * this is used on both source and destination sides.
+ */
+struct _GdkDragContextPrivate {
+  GdkDragContext context;
+
+  GdkAtom motif_selection;
+  GdkAtom xdnd_selection;
+  guint   ref_count;
+
+  guint16 last_x;		/* Coordinates from last event */
+  guint16 last_y;
+  GdkDragAction old_action;	/* The last action we sent to the source */
+
+  Window  dest_xid;
+  guint xdnd_targets_set : 1;   /* Whether we've already set XdndTypeList */
+  guint motif_targets_set : 1;  /* Whether we've already set motif initiator info */
+  guint drag_status : 4;	/* current status of drag */
+
+  GdkWindowCache *window_cache;
+};
+
+GdkDragContext *current_dest_drag = NULL;
+
+/* Forward declarations */
+
+static void gdk_window_cache_destroy (GdkWindowCache *cache);
+
+static void     motif_read_target_table (void);
+static GdkFilterReturn motif_dnd_filter (GdkXEvent *xev,
+					 GdkEvent  *event,
+					 gpointer   data);
+
+static GdkFilterReturn xdnd_enter_filter (GdkXEvent *xev,
+					  GdkEvent  *event,
+					  gpointer   data);
+
+static GdkFilterReturn xdnd_leave_filter (GdkXEvent *xev,
+					  GdkEvent  *event,
+					  gpointer   data);
+
+static GdkFilterReturn xdnd_position_filter (GdkXEvent *xev,
+					     GdkEvent  *event,
+					     gpointer   data);
+
+static GdkFilterReturn xdnd_status_filter (GdkXEvent *xev,
+					   GdkEvent  *event,
+					   gpointer   data);
+
+static GdkFilterReturn xdnd_finished_filter (GdkXEvent *xev,
+					    GdkEvent  *event,
+					    gpointer   data);
+
+static GdkFilterReturn xdnd_drop_filter (GdkXEvent *xev,
+					 GdkEvent  *event,
+					 gpointer   data);
+
+/* Drag Contexts */
+
+static GList *contexts;
+
+GdkDragContext *
+gdk_drag_context_new        (void)
+{
+  GdkDragContextPrivate *result;
+
+  result = g_new0 (GdkDragContextPrivate, 1);
+
+  result->ref_count = 1;
+
+  contexts = g_list_prepend (contexts, result);
+
+  return (GdkDragContext *)result;
+}
+
+void            
+gdk_drag_context_ref (GdkDragContext *context)
+{
+  ((GdkDragContextPrivate *)context)->ref_count++;
+}
+
+void            
+gdk_drag_context_unref (GdkDragContext *context)
+{
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+  private->ref_count--;
+  
+  if (private->ref_count == 0)
+    {
+      g_dataset_destroy (private);
+      
+      g_list_free (context->targets);
+
+      if (context->source_window)
+	gdk_window_unref (context->source_window);
+
+      if (context->dest_window)
+	gdk_window_unref (context->dest_window);
+
+      if (private->window_cache)
+	gdk_window_cache_destroy (private->window_cache);
+
+      contexts = g_list_remove (contexts, private);
+      g_free (private);
+    }
+}
+
+static GdkDragContext *
+gdk_drag_context_find (gboolean is_source,
+		       Window   source_xid,
+		       Window   dest_xid)
+{
+  GList *tmp_list = contexts;
+
+  while (tmp_list)
+    {
+      GdkDragContext *context = (GdkDragContext *)tmp_list->data;
+
+      if ((!context->is_source == !is_source) &&
+	  ((source_xid == None) || (context->source_window &&
+	    (GDK_WINDOW_XWINDOW (context->source_window) == source_xid))) &&
+	  ((dest_xid == None) || (context->dest_window &&
+	    (GDK_WINDOW_XWINDOW (context->dest_window) == dest_xid))))
+	return context;
+      
+      tmp_list = tmp_list->next;
+    }
+  
+  return NULL;
+}
+
+/* Utility functions */
+
+static void
+gdk_window_cache_add (GdkWindowCache *cache,
+		      guint32 xid,
+		      gint x, gint y, gint width, gint height, 
+		      gboolean mapped)
+{
+  GdkCacheChild *child = g_new (GdkCacheChild, 1);
+
+  child->xid = xid;
+  child->x = x;
+  child->y = y;
+  child->width = width;
+  child->height = height;
+  child->mapped = mapped;
+
+  cache->children = g_list_prepend (cache->children, child);
+  g_hash_table_insert (cache->child_hash, GUINT_TO_POINTER (xid), 
+		       cache->children);
+}
+
+static GdkFilterReturn
+gdk_window_cache_filter (GdkXEvent *xev,
+			 GdkEvent  *event,
+			 gpointer   data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  GdkWindowCache *cache = data;
+
+  switch (xevent->type)
+    {
+    case CirculateNotify:
+      break;
+    case ConfigureNotify:
+      {
+	XConfigureEvent *xce = &xevent->xconfigure;
+	GList *node;
+
+	node = g_hash_table_lookup (cache->child_hash, 
+				    GUINT_TO_POINTER (xce->window));
+	if (node) 
+	  {
+	    GdkCacheChild *child = node->data;
+	    child->x = xce->x; 
+	    child->y = xce->y;
+	    child->width = xce->width; 
+	    child->height = xce->height;
+	    if (xce->above == None && (node->next))
+	      {
+		GList *last = g_list_last (cache->children);
+		cache->children = g_list_remove_link (cache->children, node);
+		last->next = node;
+		node->next = NULL;
+		node->prev = last;
+	      }
+	    else
+	      {
+		GList *above_node = g_hash_table_lookup (cache->child_hash, 
+							 GUINT_TO_POINTER (xce->above));
+		if (above_node && node->prev != above_node)
+		  {
+		    cache->children = g_list_remove_link (cache->children, node);
+		    node->next = above_node->next;
+		    node->prev = above_node;
+		    above_node->next = node;
+		  }
+	      }
+	  }
+	break;
+      }
+    case CreateNotify:
+      {
+	XCreateWindowEvent *xcwe = &xevent->xcreatewindow;
+	if (!g_hash_table_lookup (cache->child_hash, 
+				  GUINT_TO_POINTER (xcwe->window))) 
+	  gdk_window_cache_add (cache, xcwe->window, 
+				xcwe->x, xcwe->y, xcwe->width, xcwe->height,
+				FALSE);
+	break;
+      }
+    case DestroyNotify:
+      {
+	XDestroyWindowEvent *xdwe = &xevent->xdestroywindow;
+	GList *node;
+
+	node = g_hash_table_lookup (cache->child_hash, 
+				    GUINT_TO_POINTER (xdwe->window));
+	if (node) 
+	  {
+	    g_hash_table_remove (cache->child_hash,
+				 GUINT_TO_POINTER (xdwe->window));
+	    cache->children = g_list_remove_link (cache->children, node);
+	    g_free (node->data);
+	    g_list_free_1 (node);
+	  }
+	break;
+      }
+    case MapNotify:
+      {
+	XMapEvent *xme = &xevent->xmap;
+	GList *node;
+
+	node = g_hash_table_lookup (cache->child_hash, 
+				    GUINT_TO_POINTER (xme->window));
+	if (node) 
+	  {
+	    GdkCacheChild *child = node->data;
+	    child->mapped = TRUE;
+	  }
+	break;
+      }
+    case ReparentNotify:
+      break;
+    case UnmapNotify:
+      {
+	XMapEvent *xume = &xevent->xmap;
+	GList *node;
+
+	node = g_hash_table_lookup (cache->child_hash, 
+				    GUINT_TO_POINTER (xume->window));
+	if (node) 
+	  {
+	    GdkCacheChild *child = node->data;
+	    child->mapped = FALSE;
+	  }
+	break;
+      }
+    default:
+      return GDK_FILTER_CONTINUE;
+    }
+  return GDK_FILTER_REMOVE;
+}
+
+static GdkWindowCache *
+gdk_window_cache_new (void)
+{
+  XWindowAttributes xwa;
+  Window root, parent, *children;
+  unsigned int nchildren;
+  int i;
+  
+  gint old_warnings = gdk_error_warnings;
+  
+  GdkWindowCache *result = g_new (GdkWindowCache, 1);
+
+  result->children = NULL;
+  result->child_hash = g_hash_table_new (g_direct_hash, NULL);
+
+  XGetWindowAttributes (gdk_display, gdk_root_window, &xwa);
+  result->old_event_mask = xwa.your_event_mask;
+  XSelectInput (gdk_display, gdk_root_window,
+		result->old_event_mask | SubstructureNotifyMask);
+  gdk_window_add_filter ((GdkWindow *)&gdk_root_parent, 
+			 gdk_window_cache_filter, result);
+  
+  gdk_error_code = 0;
+  gdk_error_warnings = 0;
+
+  if (XQueryTree(gdk_display, gdk_root_window, 
+		 &root, &parent, &children, &nchildren) == 0)
+    return result;
+  
+  for (i = 0; i < nchildren ; i++)
+    {
+      XGetWindowAttributes (gdk_display, children[i], &xwa);
+
+      gdk_window_cache_add (result, children[i],
+			    xwa.x, xwa.y, xwa.width, xwa.height,
+			    xwa.map_state != IsUnmapped);
+
+      if (gdk_error_code != 0)
+	gdk_error_code = 0;
+      else
+	{
+	  gdk_window_cache_add (result, children[i],
+				xwa.x, xwa.y, xwa.width, xwa.height,
+				(xwa.map_state != IsUnmapped));
+	}
+    }
+
+  XFree (children);
+
+  gdk_error_warnings = old_warnings;
+
+  return result;
+}
+
+static void
+gdk_window_cache_destroy (GdkWindowCache *cache)
+{
+  XSelectInput (gdk_display, gdk_root_window, cache->old_event_mask);
+  gdk_window_remove_filter ((GdkWindow *)&gdk_root_parent, 
+			    gdk_window_cache_filter, cache);
+
+  g_list_foreach (cache->children, (GFunc)g_free, NULL);
+  g_list_free (cache->children);
+  g_hash_table_destroy (cache->child_hash);
+}
+
+static Window
+get_client_window_at_coords_recurse (Window  win,
+				     gint    x_root,
+				     gint    y_root)
+{
+  Window child;
+  Atom type = None;
+  int format;
+  unsigned long nitems, after;
+  unsigned char *data;
+  int dest_x, dest_y;
+  
+  static Atom wm_state_atom = None;
+
+  if (!wm_state_atom)
+    wm_state_atom = gdk_atom_intern ("WM_STATE", FALSE);
+    
+  XGetWindowProperty (gdk_display, win, 
+		      wm_state_atom, 0, 0, False, AnyPropertyType,
+		      &type, &format, &nitems, &after, &data);
+  
+  if (gdk_error_code != 0)
+    {
+      gdk_error_code = 0;
+      return None;
+    }
+
+  if (type != None)
+    {
+      XFree (data);
+      return win;
+    }
+
+  XTranslateCoordinates (gdk_display, gdk_root_window, win,
+			 x_root, y_root, &dest_x, &dest_y, &child);
+
+  if (gdk_error_code != 0)
+    {
+      gdk_error_code = 0;
+      return None;
+    }
+
+  if (child)
+    return get_client_window_at_coords_recurse (child, x_root, y_root);
+  else
+    return None;
+}
+
+Window 
+get_client_window_at_coords (GdkWindowCache *cache,
+			     Window  ignore,
+			     gint    x_root,
+			     gint    y_root)
 {
-  gdk_dnd.c->gdk_cursor_dragdefault =
-    ((GdkCursorPrivate *)default_cursor)->xcursor;
-  gdk_dnd.c->gdk_cursor_dragok = ((GdkCursorPrivate *)goahead_cursor)->xcursor;
+  GList *tmp_list;
+  Window retval = None;
+
+  gint old_warnings = gdk_error_warnings;
   
-  if(gdk_dnd.dnd_grabbed)
+  gdk_error_code = 0;
+  gdk_error_warnings = 0;
+
+  tmp_list = cache->children;
+
+  while (tmp_list && !retval)
     {
-      if(gdk_dnd.c->drag_pm_default)
-	/* We were displaying pixmaps for the drag */
+      GdkCacheChild *child = tmp_list->data;
+
+      if ((child->xid != ignore) && (child->mapped))
 	{
-	  gdk_window_hide(gdk_dnd.c->drag_pm_default);
-	  gdk_window_unref(gdk_dnd.c->drag_pm_default);
-	  if(gdk_dnd.c->drag_pm_ok)
+	  if ((x_root >= child->x) && (x_root < child->x + child->width) &&
+	      (y_root >= child->y) && (y_root < child->y + child->height))
 	    {
-	      gdk_window_hide(gdk_dnd.c->drag_pm_ok);
-	      gdk_window_unref(gdk_dnd.c->drag_pm_ok);
+	      retval = get_client_window_at_coords_recurse (child->xid,
+							    x_root, y_root);
+	      if (!retval)
+		retval = child->xid;
 	    }
-	  gdk_dnd.c->drag_pm_default = gdk_dnd.c->drag_pm_ok = NULL;
-	  g_list_free(gdk_dnd.c->xids);
-	  gdk_dnd.c->xids = NULL;
+	  
 	}
-      gdk_dnd_display_drag_cursor(-1, -1,
-				  gdk_dnd.dnd_drag_target?TRUE:FALSE,
-				  TRUE);
+      tmp_list = tmp_list->next;
     }
+
+  gdk_error_warnings = old_warnings;
+  if (retval)
+    return retval;
+  else
+    return gdk_root_window;
 }
 
-void
-gdk_dnd_set_drag_shape(GdkWindow *default_pixmapwin,
-		       GdkPoint *default_hotspot,
-		       GdkWindow *goahead_pixmapwin,
-		       GdkPoint *goahead_hotspot)
+#if 0
+static Window
+get_client_window_at_coords_recurse (Window  win,
+				     gint    x_root,
+				     gint    y_root)
 {
-  g_return_if_fail(default_pixmapwin != NULL);
+  Window child;
+  Atom type = None;
+  int format;
+  unsigned long nitems, after;
+  unsigned char *data;
+  int dest_x, dest_y;
   
-  g_list_free(gdk_dnd.c->xids); gdk_dnd.c->xids = NULL;
-  if(gdk_dnd.c->drag_pm_default)
+  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)
     {
-      gdk_window_hide(gdk_dnd.c->drag_pm_default);
-      gdk_window_unref(gdk_dnd.c->drag_pm_default);
+      XFree (data);
+      return win;
     }
-  if(gdk_dnd.c->drag_pm_ok)
+
+  XTranslateCoordinates (gdk_display, gdk_root_window, win,
+			 x_root, y_root, &dest_x, &dest_y, &child);
+
+  if (gdk_error_code != 0)
     {
-      gdk_window_hide(gdk_dnd.c->drag_pm_ok);
-      gdk_window_unref(gdk_dnd.c->drag_pm_ok);
+      gdk_error_code = 0;
+      return None;
     }
+
+  if (child)
+    return get_client_window_at_coords_recurse (child, x_root, y_root);
+  else
+    return None;
+}
+
+Window 
+get_client_window_at_coords (Window  ignore,
+			     gint    x_root,
+			     gint    y_root)
+{
+  Window root, parent, *children;
+  unsigned int nchildren;
+  int i;
+  Window retval = None;
+  
+  gint old_warnings = gdk_error_warnings;
   
-  gdk_dnd.c->drag_pm_ok = NULL;
+  gdk_error_code = 0;
+  gdk_error_warnings = 0;
+
+  if (XQueryTree(gdk_display, gdk_root_window, 
+		 &root, &parent, &children, &nchildren) == 0)
+    return 0;
   
-  gdk_window_ref(default_pixmapwin);
-  gdk_dnd.c->drag_pm_default = default_pixmapwin;
-  gdk_dnd.c->default_hotspot = *default_hotspot;
-  gdk_dnd.c->xids = g_list_append(gdk_dnd.c->xids, GUINT_TO_POINTER (((GdkWindowPrivate *)default_pixmapwin)->xwindow));
-  if(goahead_pixmapwin)
+  for (i = nchildren - 1; (i >= 0) && (retval == None); i--)
+    {
+      if (children[i] != ignore)
+	{
+	  XWindowAttributes xwa;
+
+	  XGetWindowAttributes (gdk_display, children[i], &xwa);
+
+	  if (gdk_error_code != 0)
+	    gdk_error_code = 0;
+	  else if ((xwa.map_state == IsViewable) &&
+		   (x_root >= xwa.x) && (x_root < xwa.x + (gint)xwa.width) &&
+		   (y_root >= xwa.y) && (y_root < xwa.y + (gint)xwa.height))
+	    {
+	      retval = get_client_window_at_coords_recurse (children[i],
+							    x_root, y_root);
+	      if (!retval)
+		retval = children[i];
+	    }
+	}
+    }
+
+  XFree (children);
+
+  gdk_error_warnings = old_warnings;
+  if (retval)
+    return retval;
+  else
+    return gdk_root_window;
+}
+#endif
+
+/*************************************************************
+ ***************************** MOTIF *************************
+ *************************************************************/
+
+/* values used in the message type for Motif DND */
+enum {
+    XmTOP_LEVEL_ENTER,
+    XmTOP_LEVEL_LEAVE,
+    XmDRAG_MOTION,
+    XmDROP_SITE_ENTER,
+    XmDROP_SITE_LEAVE,
+    XmDROP_START,
+    XmDROP_FINISH,
+    XmDRAG_DROP_FINISH,
+    XmOPERATION_CHANGED
+};
+
+/* Values used to specify type of protocol to use */
+enum {
+    XmDRAG_NONE,
+    XmDRAG_DROP_ONLY,
+    XmDRAG_PREFER_PREREGISTER,
+    XmDRAG_PREREGISTER,
+    XmDRAG_PREFER_DYNAMIC,
+    XmDRAG_DYNAMIC,
+    XmDRAG_PREFER_RECEIVER
+};
+
+/* Operation codes */
+enum {
+  XmDROP_NOOP,
+  XmDROP_MOVE = 0x01,
+  XmDROP_COPY = 0x02,
+  XmDROP_LINK = 0x04
+};
+
+/* Drop site status */
+enum {
+  XmNO_DROP_SITE = 0x01,
+  XmDROP_SITE_INVALID = 0x02,
+  XmDROP_SITE_VALID = 0x03
+};
+
+/* completion status */
+enum {
+  XmDROP,
+  XmDROP_HELP,
+  XmDROP_CANCEL,
+  XmDROP_INTERRUPT
+};
+
+/* Static data for MOTIF DND */
+static GList **motif_target_lists = NULL;
+static gint motif_n_target_lists = -1;
+
+/* Byte swapping routines. The motif specification leaves it
+ * up to us to save a few bytes in the client messages
+ */
+static gchar local_byte_order = '\0';
+
+#ifdef G_ENABLE_DEBUG
+static void
+print_target_list (GList *targets)
+{
+  while (targets)
+    {
+      gchar *name = gdk_atom_name (GPOINTER_TO_INT (targets->data));
+      g_message ("\t%s", name);
+      g_free (name);
+      targets = targets->next;
+    }
+}
+#endif /* G_ENABLE_DEBUG */
+
+static void
+init_byte_order (void)
+{
+  guint32 myint = 0x01020304;
+  local_byte_order = (*(gchar *)&myint == 1) ? 'B' : 'l';
+}
+
+static guint16
+card16_to_host (guint16 x, gchar byte_order) {
+  if (byte_order == local_byte_order)
+    return x;
+  else
+    return (x << 8) | (x >> 8);
+}
+
+static guint32
+card32_to_host (guint32 x, gchar byte_order) {
+  if (byte_order == local_byte_order)
+    return x;
+  else
+    return (x << 24) | ((x & 0xff00) << 8) | ((x & 0xff0000) >> 8) | (x >> 24);
+}
+
+
+/***** Dest side ***********/
+
+/* Property placed on source windows */
+typedef struct _MotifDragInitiatorInfo {
+  guint8 byte_order;
+  guint8 protocol_version;
+  guint16 targets_index;
+  guint32 selection_atom;
+} MotifDragInitiatorInfo;
+
+/* Header for target table on the drag window */
+typedef struct _MotifTargetTableHeader {
+  guchar byte_order;
+  guchar protocol_version;
+  guint16 n_lists;
+  guint32 total_size;
+} MotifTargetTableHeader;
+
+/* Property placed on target windows */
+typedef struct _MotifDragReceiverInfo {
+  guint8 byte_order;
+  guint8 protocol_version;
+  guint8 protocol_style;
+  guint8 pad;
+  guint32 proxy_window;
+  guint16 num_drop_sites;
+  guint16 padding;
+  guint32 total_size;
+} MotifDragReceiverInfo;
+
+static Window motif_drag_window = None;
+static GdkWindow *motif_drag_gdk_window = NULL;
+
+static GdkAtom motif_drag_targets_atom = GDK_NONE;
+static GdkAtom motif_drag_receiver_info_atom = GDK_NONE;
+
+/* Target table handling */
+
+GdkFilterReturn
+motif_drag_window_filter (GdkXEvent *xevent,
+			  GdkEvent  *event,
+			  gpointer data)
+{
+  XEvent *xev = (XEvent *)xevent;
+
+  switch (xev->xany.type)
     {
-      gdk_window_ref(goahead_pixmapwin);
-      gdk_dnd.c->xids = g_list_append(gdk_dnd.c->xids, GUINT_TO_POINTER (((GdkWindowPrivate *)goahead_pixmapwin)->xwindow));
-      gdk_dnd.c->drag_pm_ok = goahead_pixmapwin;
-      gdk_dnd.c->ok_hotspot = *goahead_hotspot;
+    case DestroyNotify:
+      motif_drag_window = None;
+      motif_drag_gdk_window = NULL;
+      break;
+    case PropertyNotify:
+      if (motif_target_lists &&
+	  motif_drag_targets_atom &&
+	  (xev->xproperty.atom == motif_drag_targets_atom))
+	motif_read_target_table();
+      break;
     }
+  return GDK_FILTER_REMOVE;
+}
+
+static GdkAtom motif_drag_window_atom = GDK_NONE;
+
+static Window
+motif_lookup_drag_window (Display *display)
+{
+  Window retval = None;
+  gulong bytes_after, nitems;
+  GdkAtom type;
+  gint format;
+  guchar *data;
+
+  XGetWindowProperty (gdk_display, gdk_root_window, motif_drag_window_atom,
+		      0, sizeof(Window)/4, FALSE,
+		      XA_WINDOW, &type, &format, &nitems, &bytes_after,
+		      &data);
   
-  if(gdk_dnd.dnd_grabbed)
+  if ((format == 8*sizeof(Window)) && (nitems == 1) && (bytes_after == 0))
     {
-      gdk_dnd_display_drag_cursor(-1, -1,
-				  gdk_dnd.dnd_drag_target?TRUE:FALSE,
-				  TRUE);
-      XChangeActivePointerGrab (gdk_display,
-				ButtonMotionMask |
-				ButtonPressMask |
-				ButtonReleaseMask |
-				EnterWindowMask | LeaveWindowMask,
-				None,
-				CurrentTime);      
+      retval = *(Window *)data;
+      GDK_NOTE(DND, 
+	       g_message ("Found drag window %#lx\n", motif_drag_window));
     }
+
+  if (type != None)
+    XFree (data);
+
+  return retval;
 }
 
-void
-gdk_dnd_display_drag_cursor(gint x, gint y, gboolean drag_ok,
-			    gboolean change_made)
+/* 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)
 {
-  if(!gdk_dnd.dnd_grabbed)
-    return;
+  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 - 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);
+	  targets = (guint32 *)(p + sizeof(guint16));
+
+	  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)));
+
+	  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 */
   
-  if(gdk_dnd.c->drag_pm_default)
+  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're doing pixmaps here... */
-      GdkWindow *mypix, *opix;
-      GdkPoint *myhotspot;
-      gint itmp;
-      guint masktmp;
-      Window wtmp;
+      /* 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(x == -2 && y == -2) /* Hide the cursors */
+      if (motif_target_lists)
+	index =  motif_target_table_check (sorted);
+
+      if (index < 0)
 	{
-	  gdk_window_hide(gdk_dnd.c->drag_pm_ok);
-	  gdk_window_hide(gdk_dnd.c->drag_pm_default);
-	  GDK_NOTE(DND, g_message("Hiding both drag cursors\n"));
-	  return;
+	  guint32 total_size = 0;
+	  guchar *data;
+	  guchar *p;
+	  guint16 *p16;
+	  guint32 *p32;
+	  MotifTargetTableHeader *header;
+	  
+	  if (!motif_target_lists)
+	    {
+	      motif_target_lists = g_new (GList *, 1);
+	      motif_n_target_lists = 1;
+	    }
+	  else
+	    {
+	      motif_n_target_lists++;
+	      motif_target_lists = g_realloc (motif_target_lists,
+					      sizeof(GList *) * motif_n_target_lists);
+	    }
+	  motif_target_lists[motif_n_target_lists - 1] = sorted;
+	  sorted = NULL;
+	  index = motif_n_target_lists - 1;
+
+	  total_size = sizeof (MotifTargetTableHeader);
+	  for (i = 0; i < motif_n_target_lists ; i++)
+	    total_size += sizeof(guint16) + sizeof(guint32) * g_list_length (motif_target_lists[i]);
+
+	  data = g_malloc (total_size);
+
+	  header = (MotifTargetTableHeader *)data;
+	  p = data + sizeof(MotifTargetTableHeader);
+
+	  header->byte_order = local_byte_order;
+	  header->protocol_version = 0;
+	  header->n_lists = motif_n_target_lists;
+	  header->total_size = total_size;
+
+	  for (i = 0; i < motif_n_target_lists ; i++)
+	    {
+	      guint16 count = 0;
+	      
+	      p16 = (guint16 *)p;
+	      p += sizeof(guint16);
+	      p32 = (guint32 *)p;
+	      tmp_list = motif_target_lists[i];
+	      while (tmp_list)
+		{
+		  *p32++ = GPOINTER_TO_UINT (tmp_list->data);
+		  tmp_list = tmp_list->next;
+		  count++;
+		}
+	      *p16 = count;
+	      p = (guchar *)p32;
+	    }
+
+	  XChangeProperty (gdk_display, motif_drag_window,
+			   motif_drag_targets_atom,
+			   motif_drag_targets_atom,
+			   8, PropModeReplace,
+			   data, total_size);
 	}
+      XUngrabServer(gdk_display);
+    }
+
+  g_list_free (sorted);
+  return index;
+}
+
+/* Translate flags */
+
+static void
+motif_dnd_translate_flags (GdkDragContext *context, guint16 flags)
+{
+  guint recommended_op = flags & 0x000f;
+  guint possible_ops = (flags & 0x0f0) >> 4;
+  
+  switch (recommended_op)
+    {
+    case XmDROP_MOVE:
+      context->suggested_action = GDK_ACTION_MOVE;
+      break;
+    case XmDROP_COPY:
+      context->suggested_action = GDK_ACTION_COPY;
+      break;
+    case XmDROP_LINK:
+      context->suggested_action = GDK_ACTION_LINK;
+      break;
+    default:
+      context->suggested_action = GDK_ACTION_COPY;
+      break;
+    }
+
+  context->actions = 0;
+  if (possible_ops & XmDROP_MOVE)
+    context->actions |= GDK_ACTION_MOVE;
+  if (possible_ops & XmDROP_COPY)
+    context->actions |= GDK_ACTION_COPY;
+  if (possible_ops & XmDROP_LINK)
+    context->actions |= GDK_ACTION_LINK;
+}
+
+static guint16
+motif_dnd_get_flags (GdkDragContext *context)
+{
+  guint16 flags = 0;
+  
+  switch (context->suggested_action)
+    {
+    case GDK_ACTION_MOVE:
+      flags = XmDROP_MOVE;
+      break;
+    case GDK_ACTION_COPY:
+      flags = XmDROP_COPY;
+      break;
+    case GDK_ACTION_LINK:
+      flags = XmDROP_LINK;
+      break;
+    default:
+      flags = XmDROP_NOOP;
+      break;
+    }
+  
+  if (context->actions & GDK_ACTION_MOVE)
+    flags |= XmDROP_MOVE << 8;
+  if (context->actions & GDK_ACTION_COPY)
+    flags |= XmDROP_COPY << 8;
+  if (context->actions & GDK_ACTION_LINK)
+    flags |= XmDROP_LINK << 8;
+
+  return flags;
+}
+
+/* Source Side */
+
+static void
+motif_set_targets (GdkDragContext *context)
+{
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+  MotifDragInitiatorInfo info;
+  gint i;
+  static GdkAtom motif_drag_initiator_info = GDK_NONE;
+
+  if (!motif_drag_initiator_info)
+    motif_drag_initiator_info = gdk_atom_intern ("_MOTIF_DRAG_INITIATOR_INFO", FALSE);
+
+  info.byte_order = local_byte_order;
+  info.protocol_version = 0;
+  
+  info.targets_index = motif_add_to_target_table (context->targets);
+
+  for (i=0; ; i++)
+    {
+      gchar buf[20];
+      g_snprintf(buf, 20, "_GDK_SELECTION_%d", i);
       
-      if(x == -1 && y == -1) /* We're supposed to find it out for ourselves */
-	XQueryPointer(gdk_display, gdk_root_window,
-		      &wtmp, &wtmp, &x, &y, &itmp, &itmp, &masktmp);
+      private->motif_selection = gdk_atom_intern (buf, FALSE);
+      if (!XGetSelectionOwner (gdk_display, private->motif_selection))
+	break;
+    }
+
+  info.selection_atom = private->motif_selection;
+
+  XChangeProperty (GDK_WINDOW_XDISPLAY (context->source_window),
+		   GDK_WINDOW_XWINDOW (context->source_window),
+		   private->motif_selection,
+		   motif_drag_initiator_info, 8, PropModeReplace,
+		   (guchar *)&info, sizeof (info));
+
+  private->motif_targets_set = 1;
+}
+
+gboolean
+motif_check_dest (Window win)
+{
+  gboolean retval = FALSE;
+  MotifDragReceiverInfo *info;
+  Atom type = None;
+  int format;
+  unsigned long nitems, after;
+
+  if (!motif_drag_receiver_info_atom)
+    motif_drag_receiver_info_atom = gdk_atom_intern ("_MOTIF_DRAG_RECEIVER_INFO", FALSE);
+  
+  XGetWindowProperty (gdk_display, win, 
+		      motif_drag_receiver_info_atom, 
+		      0, (sizeof(*info)+3)/4, False, AnyPropertyType,
+		      &type, &format, &nitems, &after, 
+		      (guchar **)&info);
+  
+  if (type != None)
+    {
+      if ((format == 8) && (nitems == sizeof(*info)))
+	{
+	  if ((info->protocol_version == 0) &&
+	      ((info->protocol_style == XmDRAG_PREFER_PREREGISTER) ||
+	       (info->protocol_style == XmDRAG_PREFER_DYNAMIC) ||
+	       (info->protocol_style == XmDRAG_DYNAMIC)))
+	    retval = TRUE;
+	}
+      else
+	{
+	  GDK_NOTE (DND, 
+		    g_warning ("Invalid Motif drag receiver property on window %ld\n", win));
+	}
+
+      XFree (info);
+    }
+
+  return retval;
+  
+}
+
+static void
+motif_send_enter (GdkDragContext  *context,
+		  guint32          time)
+{
+  XEvent xev;
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+  xev.xclient.format = 8;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+
+  xev.xclient.data.b[0] = XmTOP_LEVEL_ENTER;
+  xev.xclient.data.b[1] = local_byte_order;
+  xev.xclient.data.s[1] = 0;
+  xev.xclient.data.l[1] = time;
+  xev.xclient.data.l[2] = GDK_WINDOW_XWINDOW (context->source_window);
+
+  if (!private->motif_targets_set)
+    motif_set_targets (context);
+
+  xev.xclient.data.l[3] = private->motif_selection;
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    GDK_NOTE (DND, 
+	      g_message ("Send event to %lx failed",
+			 GDK_WINDOW_XWINDOW (context->dest_window)));
+}
+
+static void
+motif_send_leave (GdkDragContext  *context,
+		  guint32          time)
+{
+  XEvent xev;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+  xev.xclient.format = 8;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+
+  xev.xclient.data.b[0] = XmTOP_LEVEL_LEAVE;
+  xev.xclient.data.b[1] = local_byte_order;
+  xev.xclient.data.s[1] = 0;
+  xev.xclient.data.l[1] = time;
+  xev.xclient.data.l[2] = GDK_WINDOW_XWINDOW (context->source_window);
+  xev.xclient.data.l[3] = 0;
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    GDK_NOTE (DND, 
+	      g_message ("Send event to %lx failed",
+			 GDK_WINDOW_XWINDOW (context->dest_window)));
+}
+
+static gboolean
+motif_send_motion (GdkDragContext  *context,
+		    gint            x_root, 
+		    gint            y_root,
+		    GdkDragAction   action,
+		    guint32         time)
+{
+  gboolean retval;
+  XEvent xev;
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+  xev.xclient.format = 8;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+
+  xev.xclient.data.b[1] = local_byte_order;
+  xev.xclient.data.s[1] = motif_dnd_get_flags (context);
+  xev.xclient.data.l[1] = time;
+
+  if (context->suggested_action != private->old_action)
+    {
+      xev.xclient.data.b[0] = XmOPERATION_CHANGED;
+
+      private->drag_status = GDK_DRAG_STATUS_ACTION_WAIT;
+      retval = TRUE;
+    }
+  else
+    {
+      xev.xclient.data.b[0] = XmDRAG_MOTION;
+
+      xev.xclient.data.s[4] = x_root;
+      xev.xclient.data.s[5] = y_root;
       
-      if(drag_ok)
+      private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT;
+      retval = FALSE;
+    }
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    GDK_NOTE (DND, 
+	      g_message ("Send event to %lx failed",
+			 GDK_WINDOW_XWINDOW (context->dest_window)));
+
+  return retval;
+}
+
+static void
+motif_send_drop (GdkDragContext *context, guint32 time)
+{
+  XEvent xev;
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+  xev.xclient.format = 8;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+
+  xev.xclient.data.b[0] = XmDROP_START;
+  xev.xclient.data.b[1] = local_byte_order;
+  xev.xclient.data.s[1] = motif_dnd_get_flags (context);
+  xev.xclient.data.l[1] = time;
+
+  xev.xclient.data.s[4] = private->last_x;
+  xev.xclient.data.s[5] = private->last_y;
+
+  xev.xclient.data.l[3] = private->motif_selection;
+  xev.xclient.data.l[4] = GDK_WINDOW_XWINDOW (context->source_window);
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    GDK_NOTE (DND, 
+	      g_message ("Send event to %lx failed",
+			 GDK_WINDOW_XWINDOW (context->dest_window)));
+}
+
+/* Target Side */
+
+static gboolean
+motif_read_initiator_info (Window source_window, 
+			   Atom atom,
+			   GList  **targets,
+			   GdkAtom *selection)
+{
+  GList *tmp_list;
+  static GdkAtom motif_drag_initiator_info = GDK_NONE;
+  GdkAtom type;
+  gint format;
+  gulong nitems;
+  gulong bytes_after;
+
+  MotifDragInitiatorInfo *initiator_info;
+
+  if (!motif_drag_initiator_info)
+    motif_drag_initiator_info = gdk_atom_intern ("_MOTIF_DRAG_INITIATOR_INFO", FALSE);
+
+  XGetWindowProperty (gdk_display, source_window, atom,
+		      0, sizeof(*initiator_info), FALSE,
+		      motif_drag_initiator_info, 
+		      &type, &format, &nitems, &bytes_after,
+		      (guchar **)&initiator_info);
+
+  if ((format != 8) || (nitems != sizeof (MotifDragInitiatorInfo)) || (bytes_after != 0))
+    {
+      g_warning ("Error reading initiator info\n");
+      return FALSE;
+    }
+
+  motif_read_target_table ();
+
+  if (initiator_info->targets_index >= motif_n_target_lists)
+    {
+      g_warning ("Invalid target index in TOP_LEVEL_ENTER MESSAGE");
+      XFree (initiator_info);
+      return GDK_FILTER_REMOVE;
+    }
+
+  tmp_list = g_list_last (motif_target_lists[initiator_info->targets_index]);
+
+  *targets = NULL;
+  while (tmp_list)
+    {
+      *targets = g_list_prepend (*targets,
+				 tmp_list->data);
+      tmp_list = tmp_list->prev;
+    }
+
+#ifdef G_ENABLE_DEBUG
+  if (gdk_debug_flags & GDK_DEBUG_DND)
+    print_target_list (*targets);
+#endif /* G_ENABLE_DEBUG */
+
+  *selection = initiator_info->selection_atom;
+
+  XFree (initiator_info);
+
+  return TRUE;
+}
+
+static GdkDragContext *
+motif_drag_context_new (GdkWindow *dest_window,
+			guint32    timestamp,
+			guint32    source_window,
+			guint32    atom)
+{
+  GdkDragContext *new_context;
+  GdkDragContextPrivate *private;
+
+  /* FIXME, current_dest_drag really shouldn't be NULL'd
+   * if we error below.
+   */
+  if (current_dest_drag != NULL)
+    {
+      if (timestamp >= current_dest_drag->start_time)
 	{
-	  GDK_NOTE(DND, g_message("Switching to drag_ok cursor\n"));
-	  mypix = gdk_dnd.c->drag_pm_ok;
-	  opix = gdk_dnd.c->drag_pm_default;
-	  myhotspot = &gdk_dnd.c->ok_hotspot;
+	  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_NOTE(DND, g_message("Switching to drag_default cursor\n"));
-	  mypix = gdk_dnd.c->drag_pm_default;
-	  opix = gdk_dnd.c->drag_pm_ok;
-	  myhotspot = &gdk_dnd.c->default_hotspot;
+	  gdk_drag_context_unref (new_context);
+	  return NULL;
 	}
-      gdk_window_move(mypix, x - myhotspot->x, y - myhotspot->y);
-      if(change_made)
+    }
+
+  new_context->dest_window = dest_window;
+  gdk_window_ref (dest_window);
+  new_context->start_time = timestamp;
+
+  if (!motif_read_initiator_info(source_window,
+				 atom,
+				 &new_context->targets,
+				 &private->motif_selection))
+    {
+      gdk_drag_context_unref (new_context);
+      return NULL;
+    }
+
+  return new_context;
+}
+
+/*
+ * The MOTIF drag protocol has no real provisions for distinguishing
+ * multiple simultaneous drops. If the sources grab the pointer
+ * when doing drags, that shouldn't happen, in any case. If it
+ * does, we can't do much except hope for the best.
+ */
+
+static GdkFilterReturn
+motif_top_level_enter (GdkEvent *event,
+		       guint16   flags, 
+		       guint32   timestamp, 
+		       guint32   source_window, 
+		       guint32   atom)
+{
+  GdkDragContext *new_context;
+
+  GDK_NOTE(DND, g_message ("Motif DND top level enter: flags: %#4x time: %d source_widow: %#4x atom: %d",
+			   flags, timestamp, source_window, atom));
+
+  new_context = motif_drag_context_new (event->any.window, timestamp, source_window, atom);
+  if (!new_context)
+    return GDK_FILTER_REMOVE;
+
+  event->dnd.type = GDK_DRAG_ENTER;
+  event->dnd.context = new_context;
+  gdk_drag_context_ref (new_context);
+
+  current_dest_drag = new_context;
+
+  return GDK_FILTER_TRANSLATE;
+}
+
+GdkFilterReturn
+motif_top_level_leave (GdkEvent *event,
+		       guint16   flags, 
+		       guint32   timestamp)
+{
+  GDK_NOTE(DND, g_message ("Motif DND top level leave: flags: %#4x time: %d",
+			   flags, timestamp));
+
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) &&
+      (timestamp >= current_dest_drag->start_time))
+    {
+      event->dnd.type = GDK_DRAG_LEAVE;
+      /* Pass ownership of context to the event */
+      event->dnd.context = current_dest_drag;
+
+      current_dest_drag = NULL;
+
+      return GDK_FILTER_TRANSLATE;
+    }
+  else
+    return GDK_FILTER_REMOVE;
+}
+
+GdkFilterReturn
+motif_motion (GdkEvent *event,
+	      guint16   flags, 
+	      guint32   timestamp,
+	      gint16    x_root,
+	      gint16    y_root)
+{
+  GdkDragContextPrivate *private;
+
+  GDK_NOTE(DND, g_message ("Motif DND motion: flags: %#4x time: %d (%d, %d)",
+			   flags, timestamp, x_root, y_root));
+
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) &&
+      (timestamp >= current_dest_drag->start_time))
+    {
+      private = (GdkDragContextPrivate *)current_dest_drag;
+
+      event->dnd.type = GDK_DRAG_MOTION;
+      event->dnd.context = current_dest_drag;
+      gdk_drag_context_ref (current_dest_drag);
+
+      event->dnd.time = timestamp;
+
+      motif_dnd_translate_flags (current_dest_drag, flags);
+
+      event->dnd.x_root = x_root;
+      event->dnd.y_root = y_root;
+
+      private->last_x = x_root;
+      private->last_y = y_root;
+
+      private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT;
+
+      return GDK_FILTER_TRANSLATE;
+    }
+
+  return GDK_FILTER_REMOVE;
+}
+
+GdkFilterReturn
+motif_operation_changed (GdkEvent *event,
+			 guint16   flags, 
+			 guint32   timestamp)
+{
+  GdkDragContextPrivate *private;
+
+  GDK_NOTE(DND, g_message ("Motif DND operation changed: flags: %#4x time: %d",
+			   flags, timestamp));
+
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_MOTIF) &&
+      (timestamp >= current_dest_drag->start_time))
+    {
+      event->dnd.type = GDK_DRAG_MOTION;
+      event->dnd.send_event = FALSE;
+      event->dnd.context = current_dest_drag;
+      gdk_drag_context_ref (current_dest_drag);
+
+      event->dnd.time = timestamp;
+      private = (GdkDragContextPrivate *)current_dest_drag;
+
+      motif_dnd_translate_flags (current_dest_drag, flags);
+
+      event->dnd.x_root = private->last_x;
+      event->dnd.y_root = private->last_y;
+
+      private->drag_status = GDK_DRAG_STATUS_ACTION_WAIT;
+
+      return GDK_FILTER_TRANSLATE;
+    }
+
+  return GDK_FILTER_REMOVE;
+}
+
+GdkFilterReturn
+motif_drop_start (GdkEvent *event,
+		  guint16   flags,
+		  guint32   timestamp,
+		  guint32   source_window,
+		  guint32   atom,
+		  gint16    x_root,
+		  gint16    y_root)
+{
+  GdkDragContext *new_context;
+
+
+  GDK_NOTE(DND, g_message ("Motif DND drop start: flags: %#4x time: %d (%d, %d) source_widow: %#4x atom: %d",
+			   flags, timestamp, x_root, y_root, source_window, atom));
+
+  new_context = motif_drag_context_new (event->any.window, timestamp, source_window, atom);
+  if (!new_context)
+    return GDK_FILTER_REMOVE;
+
+  motif_dnd_translate_flags (new_context, flags);
+
+  event->dnd.type = GDK_DROP_START;
+  event->dnd.context = new_context;
+  event->dnd.time = timestamp;
+  event->dnd.x_root = x_root;
+  event->dnd.y_root = y_root;
+
+  gdk_drag_context_ref (new_context);
+  current_dest_drag = new_context;
+
+  return GDK_FILTER_TRANSLATE;
+}  
+
+GdkFilterReturn
+motif_drag_status (GdkEvent *event,
+		   guint16   flags,
+		   guint32   timestamp)
+{
+  GdkDragContext *context;
+  
+  GDK_NOTE (DND, 
+	    g_message ("Motif status message: flags %x", flags));
+
+  context = gdk_drag_context_find (TRUE, 
+				   GDK_WINDOW_XWINDOW (event->any.window), 
+				   None);
+
+  if (context)
+    {
+      GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+      if (private->drag_status == GDK_DRAG_STATUS_MOTION_WAIT)
+	private->drag_status = GDK_DRAG_STATUS_DRAG;
+      
+      event->dnd.type = GDK_DRAG_STATUS;
+      event->dnd.send_event = FALSE;
+      event->dnd.context = context;
+      gdk_drag_context_ref (context);
+
+      event->dnd.time = timestamp;
+
+      if ((flags & 0x00f0) >> 4 == XmDROP_SITE_VALID)
+	{
+	  switch (flags & 0x000f)
+	    {
+	    case XmDROP_NOOP:
+	      context->action = 0;
+	      break;
+	    case XmDROP_MOVE:
+		context->action = GDK_ACTION_MOVE;
+		break;
+	    case XmDROP_COPY:
+	      context->action = GDK_ACTION_COPY;
+	      break;
+	    case XmDROP_LINK:
+	      context->action = GDK_ACTION_LINK;
+	      break;
+	    }
+	}
+      else
+	context->action = 0;
+
+      return GDK_FILTER_TRANSLATE;
+    }
+  return GDK_FILTER_REMOVE;
+}
+
+GdkFilterReturn
+motif_dnd_filter (GdkXEvent *xev,
+		  GdkEvent  *event,
+		  gpointer data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  XClientMessageEvent *xce = &xevent->xclient;
+
+  guint8 reason;
+  gchar byte_order;
+  guint16 flags;
+  guint32 timestamp;
+  guint32 source_window;
+  GdkAtom atom;
+  gint16 x_root, y_root;
+  gboolean is_reply;
+  
+  /* First read some fields common to all Motif DND messages */
+
+  reason = xce->data.b[0];
+  byte_order = xce->data.b[1];
+  flags = card16_to_host (xce->data.s[1], byte_order);
+  timestamp = card32_to_host (xce->data.l[1], byte_order);
+
+  is_reply = ((reason & 0x80) != 0);
+
+  switch (reason & 0x7f)
+    {
+    case XmTOP_LEVEL_ENTER:
+      source_window = card32_to_host (xce->data.l[2], byte_order);
+      atom = card32_to_host (xce->data.l[3], byte_order);
+      return motif_top_level_enter (event, flags, timestamp, source_window, atom);
+    case XmTOP_LEVEL_LEAVE:
+      return motif_top_level_leave (event, flags, timestamp);
+
+    case XmDRAG_MOTION:
+      x_root = card16_to_host (xce->data.s[4], byte_order);
+      y_root = card16_to_host (xce->data.s[5], byte_order);
+      
+      if (!is_reply)
+	return motif_motion (event, flags, timestamp, x_root, y_root);
+      else
+	return motif_drag_status (event, flags, timestamp);
+
+    case XmDROP_SITE_ENTER:
+      return motif_drag_status (event, flags, timestamp);
+
+    case XmDROP_SITE_LEAVE:
+      return motif_drag_status (event,
+				XmNO_DROP_SITE << 8 | XmDROP_NOOP, 
+				timestamp);
+    case XmDROP_START:
+      x_root = card16_to_host (xce->data.s[4], byte_order);
+      y_root = card16_to_host (xce->data.s[5], byte_order);
+      atom = card32_to_host (xce->data.l[3], byte_order);
+      source_window = card32_to_host (xce->data.l[4], byte_order);
+
+      if (!is_reply)
+	return motif_drop_start (event, flags, timestamp, source_window, atom, x_root, y_root);
+      
+     break;
+    case XmOPERATION_CHANGED:
+      if (!is_reply)
+	return motif_operation_changed (event, flags, timestamp);
+      else
+	return motif_drag_status (event, flags, timestamp);
+
+      break;
+      /* To the best of my knowledge, these next two messages are 
+       * not part of the protocol, though they are defined in
+       * the header files.
+       */
+    case XmDROP_FINISH:
+    case XmDRAG_DROP_FINISH:
+      break;
+    }
+
+  return GDK_FILTER_REMOVE;
+}
+
+/*************************************************************
+ ***************************** XDND **************************
+ *************************************************************/
+
+/* Utility functions */
+
+static struct {
+  gchar *name;
+  GdkAtom atom;
+  GdkDragAction action;
+} xdnd_actions_table[] = {
+    { "XdndActionCopy",    GDK_NONE, GDK_ACTION_COPY },
+    { "XdndActionMove",    GDK_NONE, GDK_ACTION_MOVE },
+    { "XdndActionLink",    GDK_NONE, GDK_ACTION_LINK },
+    { "XdndActionAsk",     GDK_NONE, GDK_ACTION_ASK  },
+    { "XdndActionPrivate", GDK_NONE, GDK_ACTION_COPY },
+  };
+
+static const gint xdnd_n_actions = sizeof(xdnd_actions_table) / sizeof(xdnd_actions_table[0]);
+static gboolean xdnd_actions_initialized = FALSE;
+
+static void
+xdnd_initialize_actions (void)
+{
+  gint i;
+  
+  xdnd_actions_initialized = TRUE;
+  for (i=0; i < xdnd_n_actions; i++)
+    xdnd_actions_table[i].atom = gdk_atom_intern (xdnd_actions_table[i].name, FALSE);
+}
+
+static GdkDragAction
+xdnd_action_from_atom (GdkAtom atom)
+{
+  gint i;
+
+  if (!xdnd_actions_initialized)
+    xdnd_initialize_actions();
+
+  for (i=0; 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 *typelist;
+  GList *tmp_list = context->targets;
+  gint i;
+  gint n_targets = g_list_length (context->targets);
+
+  typelist = g_new (GdkAtom, n_targets);
+  i = 0;
+  while (tmp_list)
+    {
+      typelist[i] = GPOINTER_TO_INT (tmp_list->data);
+      tmp_list = tmp_list->next;
+      i++;
+    }
+
+  XChangeProperty (GDK_WINDOW_XDISPLAY (context->source_window),
+		   GDK_WINDOW_XWINDOW (context->source_window),
+		   gdk_atom_intern ("XdndTypeList", FALSE),
+		   XA_ATOM, 32, PropModeReplace,
+		   (guchar *)typelist, n_targets);
+
+  private->xdnd_targets_set = 1;
+}
+
+static void
+xdnd_send_enter (GdkDragContext *context)
+{
+  XEvent xev;
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("XdndEnter", FALSE);
+  xev.xclient.format = 32;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+  xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window);
+  xev.xclient.data.l[1] = (3 << 24); /* version */
+  xev.xclient.data.l[2] = 0;
+  xev.xclient.data.l[3] = 0;
+  xev.xclient.data.l[4] = 0;
+
+  if (!private->xdnd_selection)
+    private->xdnd_selection = gdk_atom_intern ("XdndSelection", FALSE);
+
+  if (g_list_length (context->targets) > 3)
+    {
+      if (!private->xdnd_targets_set)
+	xdnd_set_targets (context);
+      xev.xclient.data.l[1] |= 1;
+    }
+  else
+    {
+      GList *tmp_list = context->targets;
+      gint i = 2;
+
+      while (tmp_list)
+	{
+	  xev.xclient.data.l[i] = GPOINTER_TO_INT (tmp_list->data);
+	  tmp_list = tmp_list->next;
+	  i++;
+	}
+    }
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    {
+      GDK_NOTE (DND, 
+		g_message ("Send event to %lx failed",
+			   GDK_WINDOW_XWINDOW (context->dest_window)));
+      gdk_window_unref (context->dest_window);
+      context->dest_window = NULL;
+    }
+}
+
+static void
+xdnd_send_leave (GdkDragContext *context)
+{
+  XEvent xev;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("XdndLeave", FALSE);
+  xev.xclient.format = 32;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+  xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window);
+  xev.xclient.data.l[1] = 0;
+  xev.xclient.data.l[2] = 0;
+  xev.xclient.data.l[3] = 0;
+  xev.xclient.data.l[4] = 0;
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    {
+      GDK_NOTE (DND, 
+		g_message ("Send event to %lx failed",
+			   GDK_WINDOW_XWINDOW (context->dest_window)));
+      gdk_window_unref (context->dest_window);
+      context->dest_window = NULL;
+    }
+}
+
+static void
+xdnd_send_drop (GdkDragContext *context, guint32 time)
+{
+  XEvent xev;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("XdndDrop", FALSE);
+  xev.xclient.format = 32;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+  xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window);
+  xev.xclient.data.l[1] = 0;
+  xev.xclient.data.l[2] = time;
+  xev.xclient.data.l[3] = 0;
+  xev.xclient.data.l[4] = 0;
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    {
+      GDK_NOTE (DND, 
+		g_message ("Send event to %lx failed",
+			   GDK_WINDOW_XWINDOW (context->dest_window)));
+      gdk_window_unref (context->dest_window);
+      context->dest_window = NULL;
+    }
+}
+
+static void
+xdnd_send_motion (GdkDragContext *context,
+		  gint            x_root, 
+		  gint            y_root,
+		  GdkDragAction   action,
+		  guint32         time)
+{
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+  XEvent xev;
+
+  xev.xclient.type = ClientMessage;
+  xev.xclient.message_type = gdk_atom_intern ("XdndPosition", FALSE);
+  xev.xclient.format = 32;
+  xev.xclient.window = GDK_WINDOW_XWINDOW (context->dest_window);
+  xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->source_window);
+  xev.xclient.data.l[1] = 0;
+  xev.xclient.data.l[2] = (x_root << 16) | y_root;
+  xev.xclient.data.l[3] = time;
+  xev.xclient.data.l[4] = xdnd_action_to_atom (action);
+
+  if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
+			FALSE, 0, &xev))
+    {
+      GDK_NOTE (DND, 
+		g_message ("Send event to %lx failed",
+			   GDK_WINDOW_XWINDOW (context->dest_window)));
+      gdk_window_unref (context->dest_window);
+      context->dest_window = NULL;
+    }
+  private->drag_status = GDK_DRAG_STATUS_MOTION_WAIT;
+}
+
+static gboolean
+xdnd_check_dest (Window win)
+{
+  gboolean retval = FALSE;
+  Atom type = None;
+  int format;
+  unsigned long nitems, after;
+  GdkAtom *version;
+
+  if (!xdnd_aware_atom)
+    xdnd_aware_atom = gdk_atom_intern ("XdndAware", FALSE);
+
+  XGetWindowProperty (gdk_display, win, 
+		      xdnd_aware_atom, 0, 
+		      1, False, AnyPropertyType,
+		      &type, &format, &nitems, &after, 
+		      (guchar **)&version);
+  
+  if (type != None)
+    {
+      if ((format == 32) && (nitems == 1))
+	{
+	  if (*version == 3)
+	    retval = TRUE;
+	}
+      else
+	GDK_NOTE (DND, 
+		  g_warning ("Invalid XdndAware property on window %ld\n", win));
+
+      XFree (version);
+    }
+
+  return retval;
+}
+
+/* Target side */
+
+static GdkFilterReturn 
+xdnd_enter_filter (GdkXEvent *xev,
+		   GdkEvent  *event,
+		   gpointer   data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  GdkDragContext *new_context;
+  gint i;
+  
+  guint32 source_window = xevent->xclient.data.l[0];
+  gboolean get_types = ((xevent->xclient.data.l[1] & 1) != 0);
+  gint version = (xevent->xclient.data.l[1] & 0xff000000) >> 24;
+  
+  GDK_NOTE (DND, 
+	    g_message ("XdndEnter: source_window: %#x, version: %#x",
+		       source_window, version));
+
+  if (version != 3)
+    {
+      /* Old source ignore */
+      GDK_NOTE (DND, g_message ("Ignored old XdndEnter message"));
+      return GDK_FILTER_REMOVE;
+    }
+  
+  if (current_dest_drag != NULL)
+    {
+      gdk_drag_context_unref (current_dest_drag);
+      current_dest_drag = NULL;
+    }
+
+  new_context = gdk_drag_context_new ();
+  new_context->protocol = GDK_DRAG_PROTO_XDND;
+  new_context->is_source = FALSE;
+
+  new_context->source_window = gdk_window_lookup (source_window);
+  if (new_context->source_window)
+    gdk_window_ref (new_context->source_window);
+  else
+    {
+      new_context->source_window = gdk_window_foreign_new (source_window);
+      if (!new_context->source_window)
+	{
+	  gdk_drag_context_unref (new_context);
+	  return GDK_FILTER_REMOVE;
+	}
+    }
+  new_context->dest_window = event->any.window;
+  gdk_window_ref (new_context->dest_window);
+
+  new_context->targets = NULL;
+  if (get_types)
+    {
+      Atom type;
+      int format;
+      gulong nitems, after;
+      Atom *data;
+
+      XGetWindowProperty (GDK_WINDOW_XDISPLAY (event->any.window), 
+			  source_window, 
+			  gdk_atom_intern ("XdndTypeList", FALSE), 0, 65536,
+			  False, XA_ATOM, &type, &format, &nitems,
+			  &after, (guchar **)&data);
+
+      if ((format != 32) || (type != XA_ATOM))
+	{
+	  gdk_drag_context_unref (new_context);
+	  return GDK_FILTER_REMOVE;
+	}
+
+      for (i=0; 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 */
+
+  event->dnd.type = GDK_DRAG_ENTER;
+  event->dnd.context = new_context;
+  gdk_drag_context_ref (new_context);
+
+  current_dest_drag = new_context;
+  ((GdkDragContextPrivate *)new_context)->xdnd_selection = 
+    gdk_atom_intern ("XdndSelection", FALSE);
+
+  return GDK_FILTER_TRANSLATE;
+}
+
+static GdkFilterReturn 
+xdnd_leave_filter (GdkXEvent *xev,
+		   GdkEvent  *event,
+		   gpointer   data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  guint32 source_window = xevent->xclient.data.l[0];
+  
+  GDK_NOTE (DND, 
+	    g_message ("XdndLeave: source_window: %#x",
+		       source_window));
+
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) &&
+      (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window))
+    {
+      event->dnd.type = GDK_DRAG_LEAVE;
+      /* Pass ownership of context to the event */
+      event->dnd.context = current_dest_drag;
+
+      current_dest_drag = NULL;
+
+      return GDK_FILTER_TRANSLATE;
+    }
+  else
+    return GDK_FILTER_REMOVE;
+}
+
+static GdkFilterReturn 
+xdnd_position_filter (GdkXEvent *xev,
+		      GdkEvent  *event,
+		      gpointer   data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  guint32 source_window = xevent->xclient.data.l[0];
+  gint16 x_root = xevent->xclient.data.l[2] >> 16;
+  gint16 y_root = xevent->xclient.data.l[2] & 0xffff;
+  guint32 time = xevent->xclient.data.l[3];
+  GdkAtom action = xevent->xclient.data.l[4];
+  
+  GDK_NOTE (DND, 
+	    g_message ("XdndPosition: source_window: %#x  position: (%d, %d)  time: %d  action: %ld",
+		       source_window, x_root, y_root, time, action));
+
+  
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) &&
+      (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window))
+    {
+      event->dnd.type = GDK_DRAG_MOTION;
+      event->dnd.context = current_dest_drag;
+      gdk_drag_context_ref (current_dest_drag);
+
+      event->dnd.time = time;
+
+      current_dest_drag->suggested_action = xdnd_action_from_atom (action);
+
+      event->dnd.x_root = x_root;
+      event->dnd.y_root = y_root;
+
+      ((GdkDragContextPrivate *)current_dest_drag)->last_x = x_root;
+      ((GdkDragContextPrivate *)current_dest_drag)->last_y = y_root;
+      
+      return GDK_FILTER_TRANSLATE;
+    }
+
+  return GDK_FILTER_REMOVE;
+}
+
+static GdkFilterReturn 
+xdnd_drop_filter (GdkXEvent *xev,
+		  GdkEvent  *event,
+		  gpointer   data)
+{
+  XEvent *xevent = (XEvent *)xev;
+  guint32 source_window = xevent->xclient.data.l[0];
+  guint32 time = xevent->xclient.data.l[2];
+  
+  GDK_NOTE (DND, 
+	    g_message ("XdndDrop: source_window: %#x  time: %d",
+		       source_window, time));
+
+  if ((current_dest_drag != NULL) &&
+      (current_dest_drag->protocol == GDK_DRAG_PROTO_XDND) &&
+      (GDK_WINDOW_XWINDOW (current_dest_drag->source_window) == source_window))
+    {
+      GdkDragContextPrivate *private;
+      private = (GdkDragContextPrivate *)current_dest_drag;
+
+      event->dnd.type = GDK_DROP_START;
+
+      event->dnd.context = current_dest_drag;
+      gdk_drag_context_ref (current_dest_drag);
+
+      event->dnd.time = time;
+      event->dnd.x_root = private->last_x;
+      event->dnd.y_root = private->last_y;
+      
+      return GDK_FILTER_TRANSLATE;
+    }
+
+  return GDK_FILTER_REMOVE;
+}
+
+/*************************************************************
+ ************************** Public API ***********************
+ *************************************************************/
+
+void
+gdk_dnd_init (void)
+{
+  init_byte_order();
+
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE),
+	motif_dnd_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndEnter", FALSE),
+	xdnd_enter_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndLeave", FALSE),
+	xdnd_leave_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndPosition", FALSE),
+	xdnd_position_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndStatus", FALSE),
+	xdnd_status_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndFinished", FALSE),
+	xdnd_finished_filter, NULL);
+  gdk_add_client_message_filter (
+	gdk_atom_intern ("XdndDrop", FALSE),
+	xdnd_drop_filter, NULL);
+}		      
+
+/* Source side */
+
+static void
+gdk_drag_do_leave (GdkDragContext *context, guint32 time)
+{
+  if (context->dest_window)
+    {
+      switch (context->protocol)
+	{
+	case GDK_DRAG_PROTO_MOTIF:
+	  motif_send_leave (context, time);
+	  break;
+	case GDK_DRAG_PROTO_XDND:
+	  xdnd_send_leave (context);
+	  break;
+	case GDK_DRAG_PROTO_ROOTWIN:
+	  break;
+	}
+
+      gdk_window_unref (context->dest_window);
+      context->dest_window = NULL;
+    }
+}
+
+GdkDragContext * 
+gdk_drag_begin (GdkWindow     *window,
+		GList         *targets,
+		GdkDragAction  actions)
+{
+  GList *tmp_list;
+  GdkDragContext *new_context;
+  
+  g_return_val_if_fail (window != NULL, NULL);
+
+  new_context = gdk_drag_context_new ();
+  new_context->is_source = TRUE;
+  new_context->source_window = window;
+  gdk_window_ref (window);
+
+  tmp_list = g_list_last (targets);
+  new_context->targets = NULL;
+  while (tmp_list)
+    {
+      new_context->targets = g_list_prepend (new_context->targets,
+					     tmp_list->data);
+      tmp_list = tmp_list->prev;
+    }
+
+  new_context->actions = actions;
+
+  return new_context;
+}
+
+gboolean         
+gdk_drag_get_protocol (guint32          xid,
+		       GdkDragProtocol *protocol)
+{
+  if (xdnd_check_dest (xid))
+    {
+      *protocol = GDK_DRAG_PROTO_XDND;
+      GDK_NOTE (DND, g_message ("Entering dnd window %#x\n", xid));
+      return TRUE;
+    }
+  else if (motif_check_dest (xid))
+    {
+      *protocol = GDK_DRAG_PROTO_MOTIF;
+      GDK_NOTE (DND, g_message ("Entering motif window %#x\n", xid));
+      return TRUE;
+    }
+  else
+    {
+      /* Check if this is a root window */
+
+      gboolean rootwin = FALSE;
+      gint old_warnings = gdk_error_warnings;
+      Atom type = None;
+      int format;
+      unsigned long nitems, after;
+      unsigned char *data;
+
+      if (xid == gdk_root_window)
+	rootwin = TRUE;
+
+      if (!rootwin)
+	{
+	  gdk_error_code = 0;
+	  
+	  XGetWindowProperty (gdk_display, xid,
+			      gdk_atom_intern ("ENLIGHTENMENT_DESKTOP", FALSE),
+			      0, 0, False, AnyPropertyType,
+			      &type, &format, &nitems, &after, &data);
+	  if ((gdk_error_code == 0) && type != None)
+	    {
+	      XFree (data);
+	      rootwin = TRUE;
+	    }
+	}
+
+      /* Until I find out what window manager the next one is for,
+       * I'm leaving it commented out. It's supported in the
+       * xscreensaver sources, though.
+       */
+#if 0
+      if (!rootwin)
 	{
-	  GDK_NOTE(DND, g_message("Cursors switched, hide & show\n"));
-	  gdk_window_hide(opix);
+	  gdk_error_code = 0;
+	  
+	  XGetWindowProperty (gdk_display, win,
+			      gdk_atom_intern ("__SWM_VROOT", FALSE),
+			      0, 0, False, AnyPropertyType,
+			      &type, &format, &nitems, &data);
+	  if ((gdk_error_code == 0) && type != None)
+	    rootwin = TRUE;
+	}
+#endif      
+
+      gdk_error_warnings = old_warnings;
+
+      if (rootwin)
+	{
+	  *protocol = GDK_DRAG_PROTO_ROOTWIN;
+	  return TRUE;
 	}
-      gdk_window_move(mypix, x - myhotspot->x, y - myhotspot->y);
-      if (change_made)
-        {
-	  gdk_window_show(mypix); /* There ought to be a way to know if
-				     a window is already mapped etc. */
-	}      
     }
-  else if(change_made)
+
+  return FALSE;
+}
+
+void
+gdk_drag_find_window (GdkDragContext  *context,
+		      GdkWindow       *drag_window,
+		      gint             x_root,
+		      gint             y_root,
+		      GdkWindow      **dest_window,
+		      GdkDragProtocol *protocol)
+{
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+  Window dest;
+
+  if (!private->window_cache)
+    private->window_cache = gdk_window_cache_new();
+
+  dest = get_client_window_at_coords (private->window_cache,
+				      drag_window ? 
+				      GDK_WINDOW_XWINDOW (drag_window) : GDK_NONE,
+				      x_root, y_root);
+
+  if (private->dest_xid != dest)
     {
-      Cursor c;
-      /* Move cursors around */
-      if(drag_ok)
-	c = gdk_dnd.c->gdk_cursor_dragok;
+      private->dest_xid = dest;
+
+      /* Check if new destination accepts drags, and which protocol */
+
+      if (gdk_drag_get_protocol (dest, protocol))
+	{
+	  *dest_window = gdk_window_lookup (dest);
+	  if (*dest_window)
+	    gdk_window_ref (*dest_window);
+	  else
+	    *dest_window = gdk_window_foreign_new (dest);
+	}
       else
-	c = gdk_dnd.c->gdk_cursor_dragdefault;
-      XChangeActivePointerGrab (gdk_display,
-				ButtonMotionMask |
-				ButtonPressMask |
-				ButtonReleaseMask |
-				EnterWindowMask | LeaveWindowMask,
-				c,
-				CurrentTime);
+	*dest_window = NULL;
+    }
+  else
+    {
+      *dest_window = context->dest_window;
+      if (*dest_window)
+	gdk_window_ref (*dest_window);
+      *protocol = context->protocol;
     }
 }
+
+gboolean        
+gdk_drag_motion (GdkDragContext *context,
+		 GdkWindow      *dest_window,
+		 GdkDragProtocol protocol,
+		 gint            x_root, 
+		 gint            y_root,
+		 GdkDragAction   action,
+		 guint32         time)
+{
+  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
+
+  if (context->dest_window != dest_window)
+    {
+      GdkEvent temp_event;
+
+      /* Send a leave to the last destination */
+      gdk_drag_do_leave (context, time);
+      private->drag_status = GDK_DRAG_STATUS_DRAG;
+
+      /* Check if new destination accepts drags, and which protocol */
+
+      if (dest_window)
+	{
+	  context->dest_window = dest_window;
+	  gdk_window_ref (context->dest_window);
+	  context->protocol = protocol;
+
+	  switch (protocol)
+	    {
+	    case GDK_DRAG_PROTO_MOTIF:
+	      motif_send_enter (context, time);
+	      break;
+
+	    case GDK_DRAG_PROTO_XDND:
+	      xdnd_send_enter (context);
+	      break;
+
+	    case GDK_DRAG_PROTO_ROOTWIN:
+	      break;
+	    }
+	  private->old_action = action;
+	  context->suggested_action = action;
+	}
+      else
+	{
+	  context->dest_window = NULL;
+	  context->action = 0;
+	}
+
+      /* Push a status event, to let the client know that
+       * the drag changed 
+       */
+
+      temp_event.dnd.type = GDK_DRAG_STATUS;
+      temp_event.dnd.window = context->source_window;
+      /* We use this to signal a synthetic status. Perhaps
+       * we should use an extra field...
+       */
+      temp_event.dnd.send_event = TRUE;
+
+      temp_event.dnd.context = context;
+      temp_event.dnd.time = time;
+
+      gdk_event_put (&temp_event);
+    }
+  else
+    {
+      private->old_action = context->suggested_action;
+      context->suggested_action = action;
+    }
+
+  /* Send a drag-motion event */
+
+  private->last_x = x_root;
+  private->last_y = y_root;
+      
+  if (context->dest_window)
+    {
+      if (private->drag_status == GDK_DRAG_STATUS_DRAG)
+	{
+	  switch (context->protocol)
+	    {
+	    case GDK_DRAG_PROTO_MOTIF:
+	      motif_send_motion (context, x_root, y_root, action, time);
+	      break;
+	      
+	    case GDK_DRAG_PROTO_XDND:
+	      xdnd_send_motion (context, x_root, y_root, action, time);
+	      break;
+
+	    case GDK_DRAG_PROTO_ROOTWIN:
+	      {
+		GdkEvent temp_event;
+
+		if (g_list_find (context->targets,
+				 GUINT_TO_POINTER (gdk_atom_intern ("application/x-rootwin-drop", FALSE))))
+		  context->action = context->suggested_action;
+		else
+		  context->action = 0;
+
+		temp_event.dnd.type = GDK_DRAG_STATUS;
+		temp_event.dnd.window = context->source_window;
+		temp_event.dnd.send_event = FALSE;
+		temp_event.dnd.context = context;
+		temp_event.dnd.time = time;
+
+		gdk_event_put (&temp_event);
+	      }
+	      break;
+	    }
+	}
+      else
+	return TRUE;
+    }
+
+  return FALSE;
+}
+
+void
+gdk_drag_drop (GdkDragContext *context,
+	       guint32         time)
+{
+  if (context->dest_window)
+    {
+      switch (context->protocol)
+	{
+	case GDK_DRAG_PROTO_MOTIF:
+	  motif_send_leave (context, time);
+	  motif_send_drop (context, time);
+	  break;
+	  
+	case GDK_DRAG_PROTO_XDND:
+	  xdnd_send_drop (context, time);
+	  break;
+
+	case GDK_DRAG_PROTO_ROOTWIN:
+	  g_warning ("Drops for GDK_DRAG_PROTO_ROOTWIN must be handled internally");
+	  break;
+	}
+    }
+}
+
+void
+gdk_drag_abort (GdkDragContext *context,
+		guint32         time)
+{
+  gdk_drag_do_leave (context, time);
+}
+
+/* Destination side */
+
+void             
+gdk_drag_status (GdkDragContext   *context,
+		 GdkDragAction     action,
+		 guint32           time)
+{
+  GdkDragContextPrivate *private;
+  XEvent xev;
+
+  g_return_if_fail (context != 0);
+
+  private = (GdkDragContextPrivate *)context;
+
+  context->action = action;
+  
+  if (context->protocol == GDK_DRAG_PROTO_MOTIF)
+    {
+      xev.xclient.type = ClientMessage;
+      xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+      xev.xclient.format = 8;
+      xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window);
+
+      if (private->drag_status == GDK_DRAG_STATUS_ACTION_WAIT)
+	{
+	  xev.xclient.data.b[0] = XmOPERATION_CHANGED | 0x80;
+	}
+      else
+	{
+	  if ((action != 0) != (private->old_action != 0))
+	    {
+	      if (action != 0)
+		xev.xclient.data.b[0] = XmDROP_SITE_ENTER | 0x80;
+	      else
+		xev.xclient.data.b[0] = XmDROP_SITE_LEAVE | 0x80;
+	    }
+	  else
+	    xev.xclient.data.b[0] = XmDRAG_MOTION | 0x80;
+	}
+
+      xev.xclient.data.b[1] = local_byte_order;
+
+      switch (action)
+	{
+	case GDK_ACTION_MOVE:
+	  xev.xclient.data.s[1] = XmDROP_MOVE;
+	  break;
+	case GDK_ACTION_COPY:
+	  xev.xclient.data.s[1] = XmDROP_COPY;
+	  break;
+	case GDK_ACTION_LINK:
+	  xev.xclient.data.s[1] = XmDROP_LINK;
+	  break;
+	default:
+	  xev.xclient.data.s[1] = XmDROP_NOOP;
+	  break;
+	}
+
+      if (action)
+	xev.xclient.data.s[1] |= (XmDROP_SITE_VALID << 4);
+      else
+	xev.xclient.data.s[1] |= (XmNO_DROP_SITE << 4);
+
+      xev.xclient.data.l[1] = time;
+      xev.xclient.data.s[4] = private->last_x;
+      xev.xclient.data.s[5] = private->last_y;
+
+      if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
+		       FALSE, 0, &xev))
+	GDK_NOTE (DND, 
+		  g_message ("Send event to %lx failed",
+			     GDK_WINDOW_XWINDOW (context->source_window)));
+    }
+  else if (context->protocol == GDK_DRAG_PROTO_XDND)
+    {
+      xev.xclient.type = ClientMessage;
+      xev.xclient.message_type = gdk_atom_intern ("XdndStatus", FALSE);
+      xev.xclient.format = 32;
+      xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window);
+
+      xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->dest_window);
+      xev.xclient.data.l[1] = (action != 0) ? (2 | 1) : 0;
+      xev.xclient.data.l[2] = 0;
+      xev.xclient.data.l[3] = 0;
+      xev.xclient.data.l[4] = xdnd_action_to_atom (action);
+
+      if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
+		       FALSE, 0, &xev))
+	GDK_NOTE (DND, 
+		  g_message ("Send event to %lx failed",
+			     GDK_WINDOW_XWINDOW (context->source_window)));
+    }
+
+  private->old_action = action;
+}
+
+void 
+gdk_drop_reply (GdkDragContext   *context,
+		gboolean          ok,
+		guint32           time)
+{
+  GdkDragContextPrivate *private;
+
+  g_return_if_fail (context != 0);
+
+  private = (GdkDragContextPrivate *)context;
+  
+  if (context->protocol == GDK_DRAG_PROTO_MOTIF)
+    {
+      XEvent xev;
+
+      xev.xclient.type = ClientMessage;
+      xev.xclient.message_type = gdk_atom_intern ("_MOTIF_DRAG_AND_DROP_MESSAGE", FALSE);
+      xev.xclient.format = 8;
+
+      xev.xclient.data.b[0] = XmDROP_START | 0x80;
+      xev.xclient.data.b[1] = local_byte_order;
+      if (ok)
+	xev.xclient.data.s[2] = XmDROP_COPY | 
+	                        (XmDROP_SITE_VALID << 4) |
+	                        (XmDROP_NOOP << 8) |
+	                        (XmDROP << 12);
+      else
+	xev.xclient.data.s[2] = XmDROP_NOOP | 
+	                        (XmNO_DROP_SITE << 4) |
+	                        (XmDROP_NOOP << 8) |
+	                        (XmDROP_CANCEL << 12);
+      xev.xclient.data.s[2] = private->last_x;
+      xev.xclient.data.s[3] = private->last_y;
+      
+      gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
+		       FALSE, 0, &xev);
+    }
+}
+
+void             
+gdk_drop_finish (GdkDragContext   *context,
+		 gboolean          success,
+		 guint32           time)
+{
+  if (context->protocol == GDK_DRAG_PROTO_XDND)
+    {
+      XEvent xev;
+
+      xev.xclient.type = ClientMessage;
+      xev.xclient.message_type = gdk_atom_intern ("XdndFinished", FALSE);
+      xev.xclient.format = 32;
+      xev.xclient.window = GDK_WINDOW_XWINDOW (context->source_window);
+
+      xev.xclient.data.l[0] = GDK_WINDOW_XWINDOW (context->dest_window);
+      xev.xclient.data.l[1] = 0;
+      xev.xclient.data.l[2] = 0;
+      xev.xclient.data.l[3] = 0;
+      xev.xclient.data.l[4] = 0;
+
+      if (!gdk_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
+		       FALSE, 0, &xev))
+	GDK_NOTE (DND, 
+		  g_message ("Send event to %lx failed",
+			     GDK_WINDOW_XWINDOW (context->source_window)));
+    }
+}
+
+
+void            
+gdk_window_register_dnd (GdkWindow      *window)
+{
+  static guint32 xdnd_version = 3;
+  
+  MotifDragReceiverInfo info;
+
+  /* Set Motif drag receiver information property */
+
+  if (!motif_drag_receiver_info_atom)
+    motif_drag_receiver_info_atom = gdk_atom_intern ("_MOTIF_DRAG_RECEIVER_INFO", FALSE);
+
+  info.byte_order = local_byte_order;
+  info.protocol_version = 0;
+  info.protocol_style = XmDRAG_DYNAMIC;
+  info.proxy_window = GDK_NONE;
+  info.num_drop_sites = 0;
+  info.total_size = sizeof(info);
+
+  XChangeProperty (gdk_display, GDK_WINDOW_XWINDOW (window),
+		   motif_drag_receiver_info_atom,
+		   motif_drag_receiver_info_atom,
+		   8, PropModeReplace,
+		   (guchar *)&info,
+		   sizeof (info));
+
+  /* Set XdndAware */
+
+  if (!xdnd_aware_atom)
+    xdnd_aware_atom = gdk_atom_intern ("XdndAware", FALSE);
+
+  /* The property needs to be of type XA_ATOM, not XA_INTEGER. Blech */
+  XChangeProperty (GDK_WINDOW_XDISPLAY (window), 
+		   GDK_WINDOW_XWINDOW (window),
+		   xdnd_aware_atom, XA_ATOM,
+		   32, PropModeReplace,
+		   (guchar *)&xdnd_version,
+		   sizeof (xdnd_version));
+}
+
+/*************************************************************
+ * gdk_drag_get_selection:
+ *     Returns the selection atom for the current source window
+ *   arguments:
+ *     
+ *   results:
+ *************************************************************/
+
+GdkAtom       
+gdk_drag_get_selection (GdkDragContext *context)
+{
+  g_return_val_if_fail (context != NULL, GDK_NONE);
+
+  if (context->protocol == GDK_DRAG_PROTO_MOTIF)
+    return ((GdkDragContextPrivate *)context)->motif_selection;
+  else if (context->protocol == GDK_DRAG_PROTO_XDND)
+    return ((GdkDragContextPrivate *)context)->xdnd_selection;
+  else 
+    return GDK_NONE;
+}
+