win32: fix `focus' return value

original commit: 7b5d948d33dfda714a6fb45d2111a5e906f6dc7d
2010-12-28 05:30:43 -07:00 · 2010-12-28 05:30:43 -07:00 · 7e6d945a73
commit 7e6d945a73
parent 1a4cac221e
1 changed files with 1 additions and 1 deletions
--- 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)