racket/gui Win32: fix use-before-definition problem for choice%

Closes PR 14475 original commit: 9cb652dd0e211c531d9d3febda7a45a8e2d29bfb
2014-04-27 20:51:35 -06:00 · 2014-04-27 20:51:35 -06:00 · 43c8233308
commit 43c8233308
parent 7e42de33ec
1 changed files with 2 additions and 2 deletions
--- a/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/choice.rkt
+++ b/pkgs/gui-pkgs/gui-lib/mred/private/wx/win32/choice.rkt
@ -46,6 +46,8 @@

    (SendMessageW hwnd CB_SETCURSEL 0 0)

+    (define choice-dropped? #f)
+
    (super-new [callback cb]
               [parent parent]
               [hwnd hwnd]
@ -61,8 +63,6 @@
                 (set-size #f #f w (* h 8))))


-    (define choice-dropped? #f)
-
    (define/override (ctlproc w msg wParam lParam default)
      (cond
       [(and choice-dropped?