From 7e6d945a73c130716b2aa42e4a8aa528eab7d1e5 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Dec 2010 05:30:43 -0700 Subject: [PATCH] win32: fix `focus' return value original commit: 7b5d948d33dfda714a6fb45d2111a5e906f6dc7d --- collects/mred/private/wx/win32/frame.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/frame.rkt b/collects/mred/private/wx/win32/frame.rkt index ef423fa3..4b216740 100644 --- a/collects/mred/private/wx/win32/frame.rkt +++ b/collects/mred/private/wx/win32/frame.rkt @@ -290,7 +290,7 @@ (define/override (set-top-focus win win-path child-hwnd) (set! focus-window-path win-path) (when (ptr-equal? hwnd (GetActiveWindow)) - (SetFocus child-hwnd))) + (void (SetFocus child-hwnd)))) (define/private (set-frame-focus) (when (pair? focus-window-path)