aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-06 21:45:41 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-06 23:21:32 +0200
commit04f4bdcd70345f96da68d04ac6467f0080b73318 (patch)
tree015e0b21159ca99d0e85c1f068c651312e3fa06c
parent3bb293b6f3b58ed3bc6317b10464f17e6c97a78e (diff)
downloadguix-04f4bdcd70345f96da68d04ac6467f0080b73318.tar.gz
guix-04f4bdcd70345f96da68d04ac6467f0080b73318.zip
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.
-rw-r--r--gnu/installer/newt/user.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index deab056e0c..ac07d26c8b 100644
--- a/gnu/installer/newt/user.scm
+++ b/gnu/installer/newt/user.scm
@@ -34,7 +34,7 @@
"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."
(define (pad-label label)
- (string-pad-right label 20))
+ (string-pad-right label 25))
(let* ((label-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"))))
(label-password
(make-label -1 -1 (pad-label (G_ "Password"))))
- (entry-width 30)
+ (entry-width 35)
(entry-name (make-entry -1 -1 entry-width
#:initial-value name))
(entry-real-name (make-entry -1 -1 entry-width