nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

installer: Clear screen upon exit. 

* gnu/installer/newt.scm (exit): Call clear-screen after newt-finish,
(exit-error): ditto.
This commit is contained in:
Mathieu Othacehe 2018-12-08 10:37:56 +09:00 committed by Ludovic Courtès
parent bf304dbcea
commit df3664f1ec
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/installer/newt.scm
View File

@ -47,7 +47,8 @@
(set-screen-size!)) (set-screen-size!))
(define (exit) (define (exit)
(newt-finish)) (newt-finish)
(clear-screen))
(define (exit-error file key args) (define (exit-error file key args)
(newt-set-color COLORSET-ROOT "white" "red") (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-width width
#:file-textbox-height height)) #:file-textbox-height height))
(newt-set-color COLORSET-ROOT "white" "blue") (newt-set-color COLORSET-ROOT "white" "blue")
(newt-finish)) (newt-finish)
(clear-screen))
(define (final-page result prev-steps) (define (final-page result prev-steps)
(run-final-page result prev-steps)) (run-final-page result prev-steps))