win32: fix window-enabling problems

Closes PR 11769 original commit: cae005a6a2e052d1867c63694dca059a39b5dd40
2011-04-14 14:50:03 -06:00 · 2011-04-14 14:50:03 -06:00 · c91f9950cc
commit c91f9950cc
parent ffaf986cdc
1 changed files with 3 additions and 2 deletions
--- a/collects/mred/private/wx/win32/window.rkt
+++ b/collects/mred/private/wx/win32/window.rkt
@ -138,6 +138,9 @@
  (init style
        [extra-hwnds null])

+  (define enabled? #t)
+  (define parent-enabled? #t)
+
  (super-new)
  
  (define eventspace (if parent
@ -271,8 +274,6 @@
  (define/public (get-handle) hwnd)
  (define/public (get-client-handle) (get-content-hwnd))

-  (define enabled? #t)
-  (define parent-enabled? #t)
  (define/public (enable on?)
    (unless (eq? enabled? (and on? #t))
      (atomically