me
/
guix
Archived
1
0
Fork 0
Code

installer: Widen user dialog. 

* gnu/installer/newt/user.scm (run-user-add-page)[pad-label]: Increase
2nd argument to 25.
[entry-width]: Increase to 35.
master
Ludovic Courtès 2019-05-06 21:45:41 +02:00
parent 3bb293b6f3
commit 04f4bdcd70
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/installer/newt/user.scm
View File

@ -34,7 +34,7 @@
"Run a form to enter the user name, home directory, and password. Use NAME, "Run a form to enter the user name, home directory, and password. Use NAME,
REAL-NAME, and HOME-DIRECTORY as the initial values in the form." REAL-NAME, and HOME-DIRECTORY as the initial values in the form."
(define (pad-label label) (define (pad-label label)
(string-pad-right label 20)) (string-pad-right label 25))
(let* ((label-name (let* ((label-name
(make-label -1 -1 (pad-label (G_ "Name")))) (make-label -1 -1 (pad-label (G_ "Name"))))
@ -44,7 +44,7 @@ REAL-NAME, and HOME-DIRECTORY as the initial values in the form."
(make-label -1 -1 (pad-label (G_ "Home directory")))) (make-label -1 -1 (pad-label (G_ "Home directory"))))
(label-password (label-password
(make-label -1 -1 (pad-label (G_ "Password")))) (make-label -1 -1 (pad-label (G_ "Password"))))
(entry-width 30) (entry-width 35)
(entry-name (make-entry -1 -1 entry-width (entry-name (make-entry -1 -1 entry-width
#:initial-value name)) #:initial-value name))
(entry-real-name (make-entry -1 -1 entry-width (entry-real-name (make-entry -1 -1 entry-width