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

win32: fix window-enabling problems

Browse Source 
Closes PR 11769
This commit is contained in:
Matthew Flatt 2011-04-14 14:50:03 -06:00
parent 2bceaec03a
commit cae005a6a2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/win32/window.rkt
View File

@ -138,6 +138,9 @@
(init style (init style
[extra-hwnds null]) [extra-hwnds null])
(define enabled? #t)
(define parent-enabled? #t)
(super-new) (super-new)
(define eventspace (if parent (define eventspace (if parent
@ -271,8 +274,6 @@
(define/public (get-handle) hwnd) (define/public (get-handle) hwnd)
(define/public (get-client-handle) (get-content-hwnd)) (define/public (get-client-handle) (get-content-hwnd))
(define enabled? #t)
(define parent-enabled? #t)
(define/public (enable on?) (define/public (enable on?)
(unless (eq? enabled? (and on? #t)) (unless (eq? enabled? (and on? #t))
(atomically (atomically