X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.dnd.lisp;fp=gtk%2Fgtk.dnd.lisp;h=baf433ffabb26a0d4083befcfdf976891b02d96a;hb=207b051df4c87006f5adedabba3dbfab26859b04;hp=c52cb3ec55aa2c548c92b9d3ccbd0bb530ec52f5;hpb=a96dde2b8a0d1c9fed57faf6a828eeef4d2b8218;p=cl-gtk2.git

diff --git a/gtk/gtk.dnd.lisp b/gtk/gtk.dnd.lisp
index c52cb3e..baf433f 100644
--- 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)