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

fix problem with the application-file handler when all windows are minized (PR 8640)

Browse Source 
svn: r6175
This commit is contained in:
Matthew Flatt 2007-05-08 06:57:32 +00:00
parent 4377dbdb64
commit d1c4d0e269
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/mrtop.ss
View File

@ -239,7 +239,9 @@
label parent))))))
(define root-menu-frame #f)
(define (set-root-menu-frame! f) (set! root-menu-frame f))
(define (set-root-menu-frame! f)
(set! root-menu-frame f)
(set-root-menu-wx-frame! (mred->wx f)))
(define (get-top-level-windows)
(remq root-menu-frame (map wx->mred (wx:get-top-level-windows))))

10
collects/mred/private/wxtop.ss
View File

@ -13,7 +13,8 @@
"wxwindow.ss"
"wxcontainer.ss")
(provide (protect active-main-frame)
(provide (protect active-main-frame
set-root-menu-wx-frame!)
get-display-size
get-display-left-top-inset
(protect make-top-container%
@ -23,6 +24,10 @@
;; Weak boxed:
(define active-main-frame (make-weak-box #f))
(define root-menu-wx-frame #f)
(define (set-root-menu-wx-frame! f)
(set! root-menu-wx-frame f))
(define get-display-size
(opt-lambda ([full-screen? #f])
@ -583,7 +588,8 @@
(when on?
(set! act-date/seconds (current-seconds))
(set! act-date/milliseconds (current-milliseconds))
(when (wx:main-eventspace? (get-eventspace))
(when (and (wx:main-eventspace? (get-eventspace))
(not (eq? this root-menu-wx-frame)))
(set! active-main-frame (make-weak-box this))))
;; Send refresh to subwindows that need it
(set! activate-refresh-wins (filter weak-box-value activate-refresh-wins))