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

gtk clipboard repair

Browse Source 
original commit: abf1805d4257c05c7c7d40535414a0dcfd901a94
This commit is contained in:
Matthew Flatt 2010-09-19 18:19:42 -06:00
parent b3267c7dba
commit b92d693343
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -127,7 +127,7 @@
(define/public (replaced s-box) (define/public (replaced s-box)
;; Called in Gtk event-dispatch thread --- atomically with respect ;; Called in Gtk event-dispatch thread --- atomically with respect
;; to any other thread ;; to any other thread
(when (eq? s-box self-box) (when (ptr-equal? s-box self-box)
(set! self-box #f) (set! self-box #f)
(let ([c client]) (let ([c client])
(when c (when c