fix the parent of the 'can close this window?' messages for tabs that aren't the frontmost tab

2011-07-27 07:39:03 -05:00 · 2011-07-27 07:39:03 -05:00 · a26eb340c8
commit a26eb340c8
parent b78a1a8355
1 changed files with 3 additions and 0 deletions
--- 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?)