suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cocoa: avoid atomic-mode problems in clipboard

Browse Source 
Get data from a clipboard client before going into atomic mode. This
correction can avoid an "about to suspend in atomic mode" failure,
particularly if a snip fails to copy correctly.
This commit is contained in:
Matthew Flatt 2015-02-05 10:33:47 +01:00
parent 7a3c102d1c
commit ff6b409f28
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
gui-lib/mred/private/wx/cocoa/clipboard.rkt
View File

@ -52,6 +52,9 @@
#f)))))
(define/public (set-client c types)
(define bstrs
(for/list ([type (in-list types)])
(send c get-data type)))
(atomically
(with-autorelease
(let ([pb (tell NSPasteboard generalPasteboard)]
@ -62,18 +65,18 @@
declareTypes: a
owner: #f))
(set! client c)
(for ([type (in-list types)])
(let ([bstr (send c get-data type)])
(when bstr
(let* ([bstr (if (string? bstr)
(string->bytes/utf-8 bstr)
bstr)]
[data (tell NSData
dataWithBytes: #:type _bytes bstr
length: #:type _NSUInteger (bytes-length bstr))])
(tellv (tell NSPasteboard generalPasteboard)
setData: data
forType: #:type _NSString (map-type type))))))))))
(for ([type (in-list types)]
[bstr (in-list bstrs)])
(when bstr
(let* ([bstr (if (string? bstr)
(string->bytes/utf-8 bstr)
bstr)]
[data (tell NSData
dataWithBytes: #:type _bytes bstr
length: #:type _NSUInteger (bytes-length bstr))])
(tellv (tell NSPasteboard generalPasteboard)
setData: data
forType: #:type _NSString (map-type type)))))))))
(define/public (get-data-for-type type)
(log-error "didn't expect clipboard data request"))