suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: fix `focus' return value

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-28 05:30:43 -07:00
parent 68e477fd52
commit 7b5d948d33
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/win32/frame.rkt
View File

@ -290,7 +290,7 @@
(define/override (set-top-focus win win-path child-hwnd) (define/override (set-top-focus win win-path child-hwnd)
(set! focus-window-path win-path) (set! focus-window-path win-path)
(when (ptr-equal? hwnd (GetActiveWindow)) (when (ptr-equal? hwnd (GetActiveWindow))
(SetFocus child-hwnd))) (void (SetFocus child-hwnd))))
(define/private (set-frame-focus) (define/private (set-frame-focus)
(when (pair? focus-window-path) (when (pair? focus-window-path)