[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Handle Enter key in forms.
From: |
Danny Milosavljevic |
Subject: |
01/01: installer: Handle Enter key in forms. |
Date: |
Fri, 7 Jul 2017 11:28:55 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit b3ce07050a54e9259090454678beeb2e78bbfcf7
Author: Danny Milosavljevic <address@hidden>
Date: Fri Jul 7 17:27:36 2017 +0200
installer: Handle Enter key in forms.
* gnu/system/installer/page.scm (page-default-key-handler): Handle Enter key
in forms.
---
gnu/system/installer/page.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/gnu/system/installer/page.scm b/gnu/system/installer/page.scm
index d435455..879c924 100644
--- a/gnu/system/installer/page.scm
+++ b/gnu/system/installer/page.scm
@@ -144,9 +144,11 @@ If a form is used it's assumed that the menu is not used
and vice versa."
(if (and menu (menu-active menu))
(list 'menu-item-activated
(menu-get-current-item menu))
- (if nav
- (buttons-selected-symbol nav)
- 'default))))
+ (if (and form (form-enabled? form))
+ 'default
+ (if nav
+ (buttons-selected-symbol nav)
+ 'default)))))
((and menu (menu-active menu) (std-menu-key-handler menu ch))
'handled)