summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-08 10:37:56 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:26 +0100
commitdf3664f1ec9a8b3c59c0e61f197798c2dda986e3 (patch)
tree55e05e1286ddaa1bfdb7f8110ff0b3891eed54f6
parentbf304dbceadf89c2722168be97d9673f94608aa6 (diff)
downloadpatches-df3664f1ec9a8b3c59c0e61f197798c2dda986e3.tar
patches-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.scm6
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))