From b3f1cc4b41ddde52f6ee898028aa3d9989d22ea2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 24 Aug 2010 09:12:28 -0600 Subject: [PATCH] fix problem related to cursor tracking --- collects/mred/private/wx/gtk/frame.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/gtk/frame.rkt b/collects/mred/private/wx/gtk/frame.rkt index 24cbd432c3..005dad551f 100644 --- a/collects/mred/private/wx/gtk/frame.rkt +++ b/collects/mred/private/wx/gtk/frame.rkt @@ -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)