From faf152a9314014df0a46e5bc4c268a97834777d2 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 22 Jan 2011 16:21:20 -0600 Subject: [PATCH] added a status dialog for the module language's create stand-alone executable case closes PR 11660 --- collects/drracket/private/module-language.rkt | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 1db4463aac..e7801396c5 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -455,7 +455,24 @@ gui? call-create-embedding-executable)] [(stand-alone) - (call-create-embedding-executable executable-filename)]))))))) + (define c (make-custodian)) + (define d (new dialog% [parent parent] [label (string-constant create-executable-title)])) + (new message% [parent d] [label (string-constant creating-executable-progress-status)]) + (new button% + [parent d] + [label (string-constant abort)] + [callback (lambda (_1 _2) + (custodian-shutdown-all c))]) + (define thd + (parameterize ([current-custodian c]) + (thread + (λ () + (call-create-embedding-executable executable-filename))))) + (thread + (λ () + (thread-wait thd) + (queue-callback (λ () (send d show #f))))) + (send d show #t)]))))))) (super-new [module #f]