ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 06:36:37 -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 #:key
(allow-empty-input? #f) (allow-empty-input? #f)
(default-text #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 "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 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 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 (let* ((text-box
(make-reflowed-textbox -1 -1 text (make-reflowed-textbox -1 -1 text
input-field-width input-field-width
#:flags FLAG-BORDER)) #:flags FLAG-BORDER))
(grid (make-grid 1 3)) (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"))) (ok-button (make-button -1 -1 (G_ "OK")))
(form (make-form))) (form (make-form)))