ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Allow for arbitrary long passphrases and passwords.

Browse source 
Fixes <https://bugs.gnu.org/35716>.
Reported by sirmacik <sirmacik@wioo.waw.pl>.

* 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.
This commit is contained in:
Ludovic Courtès 2019-05-14 11:57:55 +02:00
parent 50867421f9
commit ef250707d3
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gnu/installer/newt/page.scm
View file

@ -90,7 +90,8 @@ (define* (run-input-page text title
(input-visible-cb (input-visible-cb
(make-checkbox -1 -1 (G_ "Hide") #\x "x ")) (make-checkbox -1 -1 (G_ "Hide") #\x "x "))
(input-flags* (if input-hide-checkbox? (input-flags* (if input-hide-checkbox?
(logior FLAG-PASSWORD input-flags) (logior FLAG-PASSWORD FLAG-SCROLL
input-flags)
input-flags)) input-flags))
(input-entry (make-entry -1 -1 20 (input-entry (make-entry -1 -1 20
#:flags input-flags*)) #:flags input-flags*))

3
gnu/installer/newt/user.scm
View file

@ -57,7 +57,8 @@ (define (pad-label label)
(password-visible-cb (password-visible-cb
(make-checkbox -1 -1 (G_ "Hide") #\x "x ")) (make-checkbox -1 -1 (G_ "Hide") #\x "x "))
(entry-password (make-entry -1 -1 entry-width (entry-password (make-entry -1 -1 entry-width
#:flags FLAG-PASSWORD)) #:flags (logior FLAG-PASSWORD
FLAG-SCROLL)))
(entry-grid (make-grid 3 5)) (entry-grid (make-grid 3 5))
(button-grid (make-grid 1 1)) (button-grid (make-grid 1 1))
(ok-button (make-button -1 -1 (G_ "OK"))) (ok-button (make-button -1 -1 (G_ "OK")))