diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-24 20:03:57 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-25 00:45:35 +0200 |
| commit | 399c31d40a918343c5513c3c4a0351f60ec5797b (patch) | |
| tree | 112c0b8b5e3aa86c1b4dd072a371c94acc4bc59c /gnu/installer/newt/page.scm | |
| parent | 898677ed17672130d20434cd88575d620c97c553 (diff) | |
| download | patches-399c31d40a918343c5513c3c4a0351f60ec5797b.tar patches-399c31d40a918343c5513c3c4a0351f60ec5797b.tar.gz | |
installer: 'run-input-page' has a new #:input-flags parameter.
* gnu/installer/newt/page.scm (run-input-page): Add #:input-flags and
honor it.
Diffstat (limited to 'gnu/installer/newt/page.scm')
| -rw-r--r-- | gnu/installer/newt/page.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm index 5c650652bd..e9514e110f 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))) |