diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-12-08 10:37:56 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:26 +0100 |
| commit | df3664f1ec9a8b3c59c0e61f197798c2dda986e3 (patch) | |
| tree | 55e05e1286ddaa1bfdb7f8110ff0b3891eed54f6 | |
| parent | bf304dbceadf89c2722168be97d9673f94608aa6 (diff) | |
| download | guix-df3664f1ec9a8b3c59c0e61f197798c2dda986e3.tar.gz | |
installer: Clear screen upon exit.
* gnu/installer/newt.scm (exit): Call clear-screen after newt-finish, (exit-error): ditto.
| -rw-r--r-- | gnu/installer/newt.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/installer/newt.scm b/gnu/installer/newt.scm index 31329b5c0f..6c44b4acf6 100644 --- a/gnu/installer/newt.scm +++ b/gnu/installer/newt.scm @@ -47,7 +47,8 @@ (set-screen-size!)) (define (exit) - (newt-finish)) + (newt-finish) + (clear-screen)) (define (exit-error file key args) (newt-set-color COLORSET-ROOT "white" "red") @@ -66,7 +67,8 @@ problem. The backtrace is displayed below. Please report it by email to \ #:file-textbox-width width #:file-textbox-height height)) (newt-set-color COLORSET-ROOT "white" "blue") - (newt-finish)) + (newt-finish) + (clear-screen)) (define (final-page result prev-steps) (run-final-page result prev-steps)) |