installer: welcome: Put "Graphical installer" ahead.

* gnu/installer/newt/welcome.scm (run-welcome-page): Propose "Graphical
  install" before shell based install.
This commit is contained in:
Mathieu Othacehe 2019-01-06 11:06:51 +01:00 committed by Ludovic Courtès
parent ebb36deccc
commit a8c4b68288
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 4 deletions

View File

@ -100,16 +100,16 @@ development, so you might want to prefer using the shell based process. \
The documentation is accessible at any time by pressing CTRL-ALT-F2.") The documentation is accessible at any time by pressing CTRL-ALT-F2.")
logo logo
#:listbox-items #:listbox-items
`((,(G_ "Install using the shell based process") `((,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Install using the shell based process")
. .
,(lambda () ,(lambda ()
;; Switch to TTY3, where a root shell is available for shell based ;; Switch to TTY3, where a root shell is available for shell based
;; install. The other root TTY's would have been ok too. ;; install. The other root TTY's would have been ok too.
(system* "chvt" "3") (system* "chvt" "3")
(run-welcome-page logo))) (run-welcome-page logo)))
(,(G_ "Graphical install using a terminal based interface")
.
,(const #t))
(,(G_ "Reboot") (,(G_ "Reboot")
. .
,(lambda () ,(lambda ()