From df3664f1ec9a8b3c59c0e61f197798c2dda986e3 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sat, 8 Dec 2018 10:37:56 +0900 Subject: installer: Clear screen upon exit. * gnu/installer/newt.scm (exit): Call clear-screen after newt-finish, (exit-error): ditto. --- gnu/installer/newt.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gnu') 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)) -- cgit v1.2.3