me
/
guix
Archived
1
0
Fork 0
Code

installer: Adapt to Guile-newt revision 2. 

* gnu/installer/newt/page.scm (run-input-page): Remove component argument that
  is not longer passed to the procedure passed to 'add-component-callback',
 (run-listbox-selection-page): ditto.
 * gnu/installer/newt/user.scm (run-user-add-page): Ditto,
 (run-user-add-page): ditto.
master
Mathieu Othacehe 2020-03-30 12:32:52 +02:00
parent 786c9c39bc
commit d52111450a
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/installer/newt/page.scm
View File

@ -231,7 +231,7 @@ input box, such as FLAG-PASSWORD."
(add-component-callback (add-component-callback
input-visible-cb input-visible-cb
(lambda (component) (lambda ()
(set-entry-flags input-entry (set-entry-flags input-entry
FLAG-PASSWORD FLAG-PASSWORD
FLAG-ROLE-TOGGLE))) FLAG-ROLE-TOGGLE)))
@ -486,7 +486,7 @@ the current listbox item has to be selected by key."
;; do nothing. ;; do nothing.
(add-component-callback (add-component-callback
listbox listbox
(lambda (component) (lambda ()
(let* ((current-key (current-listbox-entry listbox)) (let* ((current-key (current-listbox-entry listbox))
(listbox-keys (map car keys)) (listbox-keys (map car keys))
(last-key (last-listbox-key)) (last-key (last-listbox-key))

4
gnu/installer/newt/user.scm
View File

@ -89,7 +89,7 @@ REAL-NAME, and HOME-DIRECTORY as the initial values in the form."
(add-component-callback (add-component-callback
entry-name entry-name
(lambda (component) (lambda ()
(set-entry-text entry-home-directory (set-entry-text entry-home-directory
(string-append "/home/" (entry-value entry-name))) (string-append "/home/" (entry-value entry-name)))
@ -99,7 +99,7 @@ REAL-NAME, and HOME-DIRECTORY as the initial values in the form."
(add-component-callback (add-component-callback
password-visible-cb password-visible-cb
(lambda (component) (lambda ()
(set-entry-flags entry-password (set-entry-flags entry-password
FLAG-PASSWORD FLAG-PASSWORD
FLAG-ROLE-TOGGLE))) FLAG-ROLE-TOGGLE)))