adjust the installer dialog so that it prints a "completed"
message at the end of the transcript and so that it shuts down the installation custodian (which means that any threads or anything like that that the .plt file's code may have created will die, plus that the "abort installation" button will now be greyed out) closes PR 13122
This commit is contained in:
parent
51d41c6cfe
commit
f1dd6be88b
|
@ -38,9 +38,9 @@
|
|||
(stretchable-height #f)
|
||||
(alignment '(center center)))]
|
||||
[kill-button (make-object button%
|
||||
(string-constant plt-installer-abort-installation)
|
||||
button-panel
|
||||
(lambda (b e) (kill)))]
|
||||
(string-constant plt-installer-abort-installation)
|
||||
button-panel
|
||||
(lambda (b e) (kill)))]
|
||||
[done (make-object button% (string-constant close) button-panel (lambda (b e) (done-callback)))]
|
||||
[output (make-output-port
|
||||
#f
|
||||
|
@ -102,9 +102,11 @@
|
|||
(parameterize ([current-eventspace orig-eventspace])
|
||||
(queue-callback
|
||||
(lambda ()
|
||||
(fprintf output "\nInstallation complete.\n")
|
||||
(set! completed-successfully? #t)
|
||||
((on-installer-run))
|
||||
(cleanup-thunk))))
|
||||
(cleanup-thunk)
|
||||
(custodian-shutdown-all installer-cust))))
|
||||
|
||||
(send done enable #t)))))))))
|
||||
|
||||
|
|
|
@ -13,6 +13,11 @@
|
|||
word-wrapping (this avoids some performance problems when very
|
||||
large values are rendered there)
|
||||
|
||||
. Adjust the Install .plt File dialog so that it cleans up after the
|
||||
end of an installation (specifically, it shuts down the custodian
|
||||
that was running the installation process), which also causes the
|
||||
Abort button to be disabled.
|
||||
|
||||
------------------------------
|
||||
Version 5.3
|
||||
------------------------------
|
||||
|
|
Loading…
Reference in New Issue
Block a user