gtk: clipboard fix

Closes PR 11552
2010-12-22 19:36:55 -07:00 · 2010-12-22 19:36:55 -07:00 · 94e6d8f399
commit 94e6d8f399
parent 4a6af2a81e
1 changed files with 8 additions and 7 deletions
--- a/collects/mred/private/wx/gtk/clipboard.rkt
+++ b/collects/mred/private/wx/gtk/clipboard.rkt
@ -229,13 +229,14 @@
 					   (lambda () 
 					     (send client get-data 
 						   (list-ref client-orig-types i)))
-					   #""))
-                    #"")])
-      (gtk_selection_data_set sel-data
-                              (gdk_atom_intern (list-ref client-types i) #t)
-                              8
-                              bstr
-                              (bytes-length bstr))))
+					   #f))
+                    #f)])
+      (when bstr
+        (gtk_selection_data_set sel-data
+				(gdk_atom_intern (list-ref client-types i) #t)
+				8
+				bstr
+				(bytes-length bstr)))))

  (define/public (get-data data-format)
    (let* ([data-format (if (equal? data-format "TEXT")