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

win32: clipboard fix

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-27 11:21:28 -06:00
parent d77c92d087
commit 4e72817688
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wx/win32/clipboard.rkt
View File

@ -148,11 +148,12 @@
;; no conversion:
d])))]
[all-handles (for/list ([d (in-list all-data)])
(let ([h (GlobalAlloc GHND (bytes-length d))])
(let ([p (GlobalLock h)])
(memcpy p d (bytes-length d)))
(GlobalUnlock h)
h))])
(and d
(let ([h (GlobalAlloc GHND (bytes-length d))])
(let ([p (GlobalLock h)])
(memcpy p d (bytes-length d)))
(GlobalUnlock h)
h)))])
(if (null? types)
(drop-client c)
(atomically
@ -161,7 +162,8 @@
(EmptyClipboard)
(for ([t (in-list type-ids)]
[h (in-list all-handles)])
(SetClipboardData t h))
(when h
(SetClipboardData t h)))
(if (CloseClipboard)
(set! client c)
(drop-client c)))