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

racket/gui cocoa: fix 'no-sheet style for `dialog%'

Browse Source
This commit is contained in:
Matthew Flatt 2012-05-16 07:34:44 -06:00
parent 985eecbed7
commit d5b17210e3
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/mred/private/wx/cocoa/frame.rkt
View File

@ -267,6 +267,8 @@
(define is-a-dialog? is-dialog?) (define is-a-dialog? is-dialog?)
(define/public (frame-is-dialog?) is-a-dialog?) (define/public (frame-is-dialog?) is-a-dialog?)
(define not-sheet? (and (memq 'no-sheet style) #t))
(define/public (frame-relative-dialog-status win) #f) (define/public (frame-relative-dialog-status win) #f)
(define/override (get-dialog-level) 0) (define/override (get-dialog-level) 0)
@ -301,6 +303,7 @@
(hide-children)) (hide-children))
(if on? (if on?
(if (and is-a-dialog? (if (and is-a-dialog?
(not not-sheet?)
(let ([p (get-parent)]) (let ([p (get-parent)])
(and p (and p
(send p can-have-sheet?) (send p can-have-sheet?)