[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/10: installer: 'run-input-page' has a new #:input-flags parameter.
From: |
guix-commits |
Subject: |
06/10: installer: 'run-input-page' has a new #:input-flags parameter. |
Date: |
Wed, 24 Apr 2019 18:46:15 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit 399c31d40a918343c5513c3c4a0351f60ec5797b
Author: Ludovic Courtès <address@hidden>
Date: Wed Apr 24 20:03:57 2019 +0200
installer: 'run-input-page' has a new #:input-flags parameter.
* gnu/installer/newt/page.scm (run-input-page): Add #:input-flags and
honor it.
---
gnu/installer/newt/page.scm | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 5c65065..e9514e1 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -75,17 +75,20 @@ this page to TITLE."
#:key
(allow-empty-input? #f)
(default-text #f)
- (input-field-width 40))
+ (input-field-width 40)
+ (input-flags 0))
"Run a page to prompt user for an input. The given TEXT will be displayed
above the input field. The page title is set to TITLE. Unless
allow-empty-input? is set to #t, an error page will be displayed if the user
-enters an empty input."
+enters an empty input. INPUT-FLAGS is a bitwise-or'd set of flags for the
+input box, such as FLAG-PASSWORD."
(let* ((text-box
(make-reflowed-textbox -1 -1 text
input-field-width
#:flags FLAG-BORDER))
(grid (make-grid 1 3))
- (input-entry (make-entry -1 -1 20))
+ (input-entry (make-entry -1 -1 20
+ #:flags input-flags))
(ok-button (make-button -1 -1 (G_ "OK")))
(form (make-form)))
- branch master updated (9374cbd -> ecb33b8), guix-commits, 2019/04/24
- 10/10: vm: Adjust FAT serial number code to 32-bit Guile., guix-commits, 2019/04/24
- 05/10: installer: Ask for user password and initialize /etc/shadow., guix-commits, 2019/04/24
- 08/10: vm: 'system-disk-image' no longer requires the OS to define the "/" file system., guix-commits, 2019/04/24
- 09/10: installer: Preserve order of user accounts., guix-commits, 2019/04/24
- 07/10: installer: Ask for the root account password., guix-commits, 2019/04/24
- 03/10: self: Install 'guix.zh_CN.info'., guix-commits, 2019/04/24
- 06/10: installer: 'run-input-page' has a new #:input-flags parameter.,
guix-commits <=
- 04/10: installer: Add missing 'G_' for networking message., guix-commits, 2019/04/24
- 01/10: install: Add node name in Castellano., guix-commits, 2019/04/24
- 02/10: system: Add guile-readline and guile-colorized to %BASE-PACKAGES., guix-commits, 2019/04/24