cocoa: avoid 10.6-only clipboard method

original commit: be5920618d2dc52a2e00d95bdfb3569733cfc732
2010-10-19 20:44:40 -06:00 · 2010-10-19 20:44:40 -06:00 · 4c17e006b8
commit 4c17e006b8
parent ad2e66afb3
1 changed files with 3 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/clipboard.rkt
+++ b/collects/mred/private/wx/cocoa/clipboard.rkt
@ -56,7 +56,9 @@
            [a (tell NSArray arrayWithObjects:
                     #:type (_list i _NSString) (map map-type types)
                     count: #:type _NSUInteger (length types))])
-        (set! counter (tell #:type _NSInteger pb clearContents))
+        (set! counter (tell #:type _NSInteger pb 
+                            declareTypes: a 
+                            owner: #f))
        (set! client c)
        (for ([type (in-list types)])
          (let* ([bstr (send c get-data type)]