06/08: installer: Allow for arbitrary long passphrases and passwords.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ef250707d3303d58ae00fe8f461701e7fa788d8a
Author: Ludovic Courtès <address@hidden>
Date:   Tue May 14 11:57:55 2019 +0200

    installer: Allow for arbitrary long passphrases and passwords.
    
    Fixes <https://bugs.gnu.org/35716>.
    Reported by sirmacik <address@hidden>.
    
    * gnu/installer/newt/page.scm (run-input-page): Add FLAG-SCROLL to
    INPUT-FLAGS*.
    * gnu/installer/newt/user.scm (run-user-add-page): Add FLAG-SCROLL to
    ENTRY-PASSWORD.
---
 gnu/installer/newt/page.scm | 3 ++-
 gnu/installer/newt/user.scm | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 07779b1..6291549 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -90,7 +90,8 @@ input box, such as FLAG-PASSWORD."
          (input-visible-cb
           (make-checkbox -1 -1 (G_ "Hide") #\x "x "))
          (input-flags* (if input-hide-checkbox?
-                           (logior FLAG-PASSWORD input-flags)
+                           (logior FLAG-PASSWORD FLAG-SCROLL
+                                   input-flags)
                            input-flags))
          (input-entry (make-entry -1 -1 20
                                   #:flags input-flags*))
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index 13c20cd..dab8051 100644
--- a/gnu/installer/newt/user.scm
+++ b/gnu/installer/newt/user.scm
@@ -57,7 +57,8 @@ REAL-NAME, and HOME-DIRECTORY as the initial values in the 
form."
          (password-visible-cb
           (make-checkbox -1 -1 (G_ "Hide") #\x "x "))
          (entry-password (make-entry -1 -1 entry-width
-                                     #:flags FLAG-PASSWORD))
+                                     #:flags (logior FLAG-PASSWORD
+                                                     FLAG-SCROLL)))
          (entry-grid (make-grid 3 5))
          (button-grid (make-grid 1 1))
          (ok-button (make-button -1 -1 (G_ "OK")))