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:
parent
ebb36deccc
commit
a8c4b68288
|
@ -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 ()
|
||||||
|
|
Loading…
Reference in New Issue