installer: welcome: Put "Graphical installer" ahead.

* gnu/installer/newt/welcome.scm (run-welcome-page): Propose "Graphical
  install" before shell based install.

diff --git a/gnu/installer/newt/welcome.scm b/gnu/installer/newt/welcome.scm
index 658f7ba..eec98e2 100644 (file)
--- a/gnu/installer/newt/welcome.scm
+++ b/gnu/installer/newt/welcome.scm
@@ -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.")
    logo
    #: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 ()
          ;; Switch to TTY3, where a root shell is available for shell based
          ;; install. The other root TTY's would have been ok too.
          (system* "chvt" "3")
          (run-welcome-page logo)))
-     (,(G_ "Graphical install using a terminal based interface")
-      .
-      ,(const #t))
      (,(G_ "Reboot")
       .
       ,(lambda ()