fix problem related to cursor tracking

original commit: b3f1cc4b41ddde52f6ee898028aa3d9989d22ea2
This commit is contained in:
Matthew Flatt 2010-08-24 09:12:28 -06:00
parent 7eecbf2f30
commit 33d4417d45

View File

@ -295,7 +295,8 @@
(define waiting-cursor? #f)
(define/public (set-wait-cursor-mode on?)
(set! waiting-cursor? on?)
(send in-window enter-window))
(when in-window
(send in-window enter-window)))
(define current-cursor-handle #f)
(define in-window #f)
@ -314,7 +315,8 @@
(define/override (leave-window) (void))
(define/override (check-window-cursor win)
(send in-window enter-window))
(when in-window
(send in-window enter-window)))
(define maximized? #f)