suzanne.soy/gui
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

original commit: d1c4d0e2690ac5d5bcee20900d2167ff6c0b629c
This commit is contained in:
Matthew Flatt 2007-05-08 06:57:32 +00:00
parent 208e9fb006
commit 6991f53281
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)))))) label parent))))))
(define root-menu-frame #f) (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) (define (get-top-level-windows)
(remq root-menu-frame (map wx->mred (wx: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" "wxwindow.ss"
"wxcontainer.ss") "wxcontainer.ss")
(provide (protect active-main-frame) (provide (protect active-main-frame
set-root-menu-wx-frame!)
get-display-size get-display-size
get-display-left-top-inset get-display-left-top-inset
(protect make-top-container% (protect make-top-container%
@ -23,6 +24,10 @@
;; Weak boxed: ;; Weak boxed:
(define active-main-frame (make-weak-box #f)) (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 (define get-display-size
(opt-lambda ([full-screen? #f]) (opt-lambda ([full-screen? #f])
@ -583,7 +588,8 @@
(when on? (when on?
(set! act-date/seconds (current-seconds)) (set! act-date/seconds (current-seconds))
(set! act-date/milliseconds (current-milliseconds)) (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)))) (set! active-main-frame (make-weak-box this))))
;; Send refresh to subwindows that need it ;; Send refresh to subwindows that need it
(set! activate-refresh-wins (filter weak-box-value activate-refresh-wins)) (set! activate-refresh-wins (filter weak-box-value activate-refresh-wins))