gtk clipboard repair

This commit is contained in:
Matthew Flatt 2010-09-19 18:19:42 -06:00
parent 24b016c8d5
commit abf1805d42

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