suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make the dialog non-modal

Browse Source 
svn: r2810
This commit is contained in:
Eli Barzilay 2006-04-27 05:54:55 +00:00
parent 33bea30acc
commit 31b9658fb8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/version/tool.ss
View File

@ -32,6 +32,9 @@
(begin (sleep 1) (wait-for-definitions)) (begin (sleep 1) (wait-for-definitions))
(car ws)))) (car ws))))
(define (check top) (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)]) (let ([r (check-version)])
;; do nothing if we have a good version, if there was an error, or if ;; 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 ;; there is a suggested alpha -- only show a message if there is a