gtk clipboard repair
This commit is contained in:
parent
24b016c8d5
commit
abf1805d42
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user