make the dialog non-modal

svn: r2810
2006-04-27 05:54:55 +00:00 · 2006-04-27 05:54:55 +00:00 · 31b9658fb8
commit 31b9658fb8
parent 33bea30acc
1 changed files with 3 additions and 0 deletions
--- 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