Move all X specific code into the x11/ directory. Aside from shuffling

Mon Nov  8 14:47:04 1999  Owen Taylor  <otaylor@redhat.com>

	Move all X specific code into the x11/ directory.
	Aside from shuffling things around, did the following:

       * gdk/gdkprivate.h gdk/gdk.h gdk/x11/gdkmain-x11.h: Add
	 gdk_arg_context_* - a simple argument parsing system
	 in the style of popt.

       * gdk/gdkdrawable.[ch] gdk/gdkprivate.h gdk/gdkwindow.[ch]
	 gdk/x11/gdkprivate-x11.h:
	 Remove X specific stuff from GdkDrawable and GdkWindowPrivate -
	 add ->klass and ->klass_data fields. The klass_data
	 field points to an auxilliary structure that is
	 windowing system dependent.

       * gdk/gdkfont.c: Make most of the measurement functions
	 simply wrappers around gdk_text_extents().

       * gdk/gdkfont.c gdk/gdkprivate.h gdk/x11/gdkfont-x11.c: Add a
	 _gdk_font_strlen() function that hides the weird
	 behavior in gtk+-1.[02] where a string is interpreted
	 differently for 8-bit and 16-bit fonts.

       * gdk/gdkevents.c: Add a new function gdk_event_button_generate()
	 to store common code for synthesizing double/triple
	 press events.

       * gdk/gdkgc.[ch]: Virtualize in the same way as gdkdrawable.h.
	 Make all the function that modify an existing GC
	 simply wrappers around gdk_gc_set_values().

       * gdk/gdkcc.[ch]: Moved into x11/ directory in preparation
	 for throwing out later.

       * gdk/gdkfont.c gdk/gdkimage.c gdk/gdkcolor.c: Change GdkFontPrivate,
	 GdkImagePrivate and GdkColormapPrivate to have a
	 windowing system dependent part (GdkFontPrivateX etc.)
	 that "derives" from the system-independent part.

       * configure.in gdk/x11/Makefile.in gdk/x11/gdkinput*.c:
	 Got rid of the included-source-files for XInput in
	 favor of automake conditionals. (Which didn't exist
	 when XInput support was originally added.)

       * gdk/gdkrgb.c: Remove the visual id from the debugging
	 statements since that is X11 specific; print out
	 type/depth info instead.

1 files changed, 0 insertions, 3285 deletions

diff --git a/gdk/gdkdnd.c b/gdk/gdkdnd.c
deleted file mode 100644
index a58da225b1..0000000000
--- a/gdk/gdkdnd.c
+++ /dev/null
@@ -1,3285 +0,0 @@
-/* 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.
- */
-
-/*
- * Modified by the GTK+ Team and others 1997-1999.  See the AUTHORS
- * file for a list of people on the GTK+ Team.  See the ChangeLog
- * files for a list of changes.  These files are distributed with
- * GTK+ at ftp://ftp.gtk.org/pub/gtk/. 
- */
-
-#include <X11/Xlib.h>
-#include <X11/Xatom.h>
-#include <string.h>
-
-#include "gdk.h"          /* For gdk_flush() */
-#include "gdkdnd.h"
-#include "gdkproperty.h"
-#include "gdkprivate.h"
-#include "gdkx.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;              /* The last window we looked up */
-  Window drop_xid;            /* The (non-proxied) window that is receiving drops */
-  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);
-  g_return_if_fail (private->ref_count > 0);
-
-  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;
-  GdkDragContextPrivate *private;
-  Window context_dest_xid;
-
-  while (tmp_list)
-    {
-      context = (GdkDragContext *)tmp_list->data;
-      private = (GdkDragContextPrivate *)context;
-
-      context_dest_xid = context->dest_window ? 
-	                   (private->drop_xid ?
-			      private->drop_xid :
-			      GDK_WINDOW_XWINDOW (context->dest_window)) :
-	                   None;
-
-      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_xid == 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)
-	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)
-    {
-      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)
-    {
-      gdk_error_code = 0;
-
-      return None;
-    }
-  
-#else
-  if (XQueryTree(gdk_display, win,
-		 &root, &tmp_parent, &children, &nchildren) == 0)
-    return 0;
-
-  if (!gdk_error_code)
-    {
-      for (i = nchildren - 1; (i >= 0) && (child == None); i--)
-	{
-	  XWindowAttributes xwa;
-	  
-	  XGetWindowAttributes (gdk_display, children[i], &xwa);
-	  
-	  if (gdk_error_code)
-	    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)
-    {
-      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)
-    {
-      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)
-	    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 (gdk_display_name);
-	  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);
-
-  g_free (atomlist);
-
-  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);
-
-  g_free (atomlist);
-
-  private->xdnd_actions_set = 1;
-  private->xdnd_actions = context->actions;
-}
-
-/*************************************************************
- * xdnd_send_xevent:
- *     Like gdk_send_event, but if the target is the root
- *     window, sets an event mask of ButtonPressMask, otherwise
- *     an event mask of 0.
- *   arguments:
- *     
- *   results:
- *************************************************************/
-
-gint
-xdnd_send_xevent (Window window, gboolean propagate, 
-		  XEvent *event_send)
-{
-  if (window == gdk_root_window)
-    return gdk_send_xevent (window, propagate, ButtonPressMask, event_send);
-  else
-    return gdk_send_xevent (window, propagate, 0, event_send);
-}
-
-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 = private->drop_xid ? 
-                           private->drop_xid : 
-                           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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
-			 FALSE, &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;
-
-  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
-
-  xev.xclient.type = ClientMessage;
-  xev.xclient.message_type = gdk_atom_intern ("XdndLeave", FALSE);
-  xev.xclient.format = 32;
-  xev.xclient.window = private->drop_xid ? 
-                           private->drop_xid : 
-                           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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
-			 FALSE, &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)
-{
-  GdkDragContextPrivate *private = (GdkDragContextPrivate *)context;
-  XEvent xev;
-
-  xev.xclient.type = ClientMessage;
-  xev.xclient.message_type = gdk_atom_intern ("XdndDrop", FALSE);
-  xev.xclient.format = 32;
-  xev.xclient.window = private->drop_xid ? 
-                           private->drop_xid : 
-                           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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
-			 FALSE, &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 = private->drop_xid ? 
-                           private->drop_xid : 
-                           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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->dest_window),
-			 FALSE, &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 */
-			       
-  gboolean is_foreign = GDK_DRAWABLE_TYPE (window);
-
-  if (is_foreign)
-    {
-      old_warnings = gdk_error_warnings;
-      gdk_error_warnings = 0;
-    }
-
-  if (!GDK_DRAWABLE_DESTROYED (window))
-    {
-      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 */
-
-      /* There is some ugliness here. We actually need to pass
-       * _three_ pieces of information to drag_motion - dest_window,
-       * protocol, and the XID of the unproxied window. The first
-       * two are passed explicitely, the third implicitly through
-       * protocol->dest_xid.
-       */
-      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;
-	  private->drop_xid = private->dest_xid;
-	  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;
-	  private->drop_xid = None;
-	  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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
-			     FALSE, &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 (!xdnd_send_xevent (GDK_WINDOW_XWINDOW (context->source_window),
-			     FALSE, &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;
-}
-