guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/07: installer: Widen user dialog.


From: guix-commits
Subject: 02/07: installer: Widen user dialog.
Date: Mon, 6 May 2019 17:23:20 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit 04f4bdcd70345f96da68d04ac6467f0080b73318
Author: Ludovic Court├Ęs <address@hidden>
Date:   Mon May 6 21:45:41 2019 +0200

    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.
---
 gnu/installer/newt/user.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index deab056..ac07d26 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]