From a26eb340c86383a4dd0f387ab423de9a20a81ca0 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 27 Jul 2011 07:39:03 -0500
Subject: [PATCH] fix the parent of the 'can close this window?' messages for
 tabs that aren't the frontmost tab

---
 collects/drracket/private/unit.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt
index 87b6d0f6fc..ef9ff03eda 100644
--- a/collects/drracket/private/unit.rkt
+++ b/collects/drracket/private/unit.rkt
@@ -653,6 +653,9 @@ module browser threading seems wrong.
                          (is-a? f -frame<%>))
                 (send f set-color-status! valid?))))
           
+          (define/override (get-can-close-parent)
+            (and tab (send tab get-frame)))
+          
           (inherit is-modified? run-after-edit-sequence)
           (define/override (set-modified mod?)
             (super set-modified mod?)