guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/02: installer: Handle buttons better.


From: Danny Milosavljevic
Subject: 02/02: installer: Handle buttons better.
Date: Fri, 7 Jul 2017 11:12:57 -0400 (EDT)

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 313f635064fdfcf3244863f677a8128f5fc2366a
Author: Danny Milosavljevic <address@hidden>
Date:   Fri Jul 7 17:11:16 2017 +0200

    installer: Handle buttons better.
    
    * gnu/system/installer/page.scm (page-default-key-handler): Handle buttons
    better.
    * gnu/system/installer/wireless.scm (wireless-page-activate-item): Revert.
---
 gnu/system/installer/page.scm     | 4 +++-
 gnu/system/installer/wireless.scm | 3 ---
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/gnu/system/installer/page.scm b/gnu/system/installer/page.scm
index 2572591..d435455 100644
--- a/gnu/system/installer/page.scm
+++ b/gnu/system/installer/page.scm
@@ -144,7 +144,9 @@ 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))
-                            'default)))
+                            (if nav
+                              (buttons-selected-symbol nav)
+                              'default))))
 
      ((and menu (menu-active menu) (std-menu-key-handler menu ch))
       'handled)
diff --git a/gnu/system/installer/wireless.scm 
b/gnu/system/installer/wireless.scm
index 113b89c..c9fa53c 100644
--- a/gnu/system/installer/wireless.scm
+++ b/gnu/system/installer/wireless.scm
@@ -70,9 +70,6 @@
    ('cancel
     (page-leave)
     'handled)
-   ('default
-    (page-leave)
-    'handled)
    (_
     'ignored)))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]