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

installer: 'run-input-page' has a new #:input-flags parameter.

Browse source 
* gnu/installer/newt/page.scm (run-input-page): Add #:input-flags and
honor it.
This commit is contained in:
Ludovic Courtès 2019-04-24 20:03:57 +02:00
parent 898677ed17
commit 399c31d40a
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -75,17 +75,20 @@ (define* (run-input-page text 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)))