From ef250707d3303d58ae00fe8f461701e7fa788d8a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 14 May 2019 11:57:55 +0200 Subject: installer: Allow for arbitrary long passphrases and passwords. Fixes . Reported by sirmacik . * 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(-) (limited to 'gnu/installer') diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm index 07779b16fa..6291549eb0 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 13c20cd4d8..dab805198f 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"))) -- cgit 1.4.1