From 4c17e006b81459f22399f16cdff5fff5c1f95151 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 19 Oct 2010 20:44:40 -0600 Subject: [PATCH] cocoa: avoid 10.6-only clipboard method original commit: be5920618d2dc52a2e00d95bdfb3569733cfc732 --- collects/mred/private/wx/cocoa/clipboard.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/clipboard.rkt b/collects/mred/private/wx/cocoa/clipboard.rkt index c1c2dd73..e1e7ebf8 100644 --- 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)]