win32: fix `focus' return value

2010-12-28 05:30:43 -07:00 · 2010-12-28 05:30:43 -07:00 · 7b5d948d33
commit 7b5d948d33
parent 68e477fd52
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)