aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer/newt
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/newt')
-rw-r--r--gnu/installer/newt/page.scm3
-rw-r--r--gnu/installer/newt/user.scm3
2 files changed, 4 insertions, 2 deletions
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")))