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

fix clipboard eventspace problem

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-12 18:10:01 -06:00
parent 1d09202412
commit 85ce22d4f7
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/common/clipboard.rkt
View File

@ -14,6 +14,7 @@
(define types null) (define types null)
(define es (current-eventspace)) (define es (current-eventspace))
(define/public (get-client-eventspace) es) (define/public (get-client-eventspace) es)
(define/public (set-client-eventspace e) (set! es e))
(def/public (same-eventspace? [eventspace? e]) (def/public (same-eventspace? [eventspace? e])
(eq? e es)) (eq? e es))
(def/public (get-types) (def/public (get-types)
@ -47,6 +48,7 @@
(def/public (set-clipboard-client [clipboard-client% c] (def/public (set-clipboard-client [clipboard-client% c]
[exact-integer? timestamp]) [exact-integer? timestamp])
(send c set-client-eventspace (current-eventspace))
(send driver set-client c (send c get-types))) (send driver set-client c (send c get-types)))
(super-new)) (super-new))

1
collects/mred/private/wx/common/local.rkt
View File

@ -6,6 +6,7 @@
(define-local-member-name (define-local-member-name
;; clipboard-client%: ;; clipboard-client%:
get-client-eventspace get-client-eventspace
set-client-eventspace
;; cursor% ;; cursor%
get-driver) get-driver)