ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Clear screen upon exit.

Browse source 
* 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 @@ (define (init)
(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 @@ (define (exit-error file key args)
#: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))