diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-06 21:45:41 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-06 23:21:32 +0200 |
| commit | 04f4bdcd70345f96da68d04ac6467f0080b73318 (patch) | |
| tree | 015e0b21159ca99d0e85c1f068c651312e3fa06c | |
| parent | 3bb293b6f3b58ed3bc6317b10464f17e6c97a78e (diff) | |
| download | guix-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.scm | 4 |
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 |