Fixup for selection-data where format=32. X specification is odd.

[cl-gtk2.git] / gtk / gtk.dnd.lisp

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index c52cb3e..baf433f 100644 (file)
--- a/gtk/gtk.dnd.lisp
+++ b/gtk/gtk.dnd.lisp
@@ -32,8 +32,10 @@
   (actions gdk-drag-action))
 
 (defun drag-dest-set (widget flags targets actions)
-  (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
-    (gtk-drag-dest-set widget flags targets-ptr n-targets actions)))
+  (if (eq targets nil)
+      (gtk-drag-dest-set widget flags (null-pointer) 0 actions)
+      (with-foreign-boxed-array (n-targets targets-ptr target-entry targets)
+        (gtk-drag-dest-set widget flags targets-ptr n-targets actions))))
 
 (export 'drag-dest-set)