From d2c27b505b46aee94d7b23d9acf299aaefc9ea6b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 16 May 2012 07:34:44 -0600 Subject: [PATCH] racket/gui cocoa: fix 'no-sheet style for `dialog%' original commit: d5b17210e36db4da605773c9609e91a1aba801b9 --- collects/mred/private/wx/cocoa/frame.rkt | 3 +++ 1 file changed, 3 insertions(+) diff --git a/collects/mred/private/wx/cocoa/frame.rkt b/collects/mred/private/wx/cocoa/frame.rkt index aecae012..24692717 100644 --- a/collects/mred/private/wx/cocoa/frame.rkt +++ b/collects/mred/private/wx/cocoa/frame.rkt @@ -267,6 +267,8 @@ (define is-a-dialog? is-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/override (get-dialog-level) 0) @@ -301,6 +303,7 @@ (hide-children)) (if on? (if (and is-a-dialog? + (not not-sheet?) (let ([p (get-parent)]) (and p (send p can-have-sheet?)