From 31b9658fb83056b12a9536a18a97fc759203b73c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 27 Apr 2006 05:54:55 +0000
Subject: [PATCH] make the dialog non-modal

svn: r2810
---
 collects/version/tool.ss | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/collects/version/tool.ss b/collects/version/tool.ss
index 699526ea1a..a8f4415e5b 100644
--- a/collects/version/tool.ss
+++ b/collects/version/tool.ss
@@ -32,6 +32,9 @@
           (begin (sleep 1) (wait-for-definitions))
           (car ws))))
     (define (check top)
+      ;; some wants a non-modal dialog that can be pushed back as a reminder
+      ;; instead of dismiss
+      (set! top #f)
       (let ([r (check-version)])
         ;; do nothing if we have a good version, if there was an error, or if
         ;; there is a suggested alpha -- only show a message if there is a