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
					
				
					 1 changed files with 4 additions and 4 deletions
				
			
		|  | @ -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 () | ||||||
|  |  | ||||||
		Reference in a new issue