[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Also allow using keyboard shortcut on the non-first bu
|
From: |
Danny Milosavljevic |
|
Subject: |
01/01: installer: Also allow using keyboard shortcut on the non-first button. |
|
Date: |
Wed, 5 Jul 2017 06:54:55 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit b515703bc84252bffc418ce2508968d9ba35483f
Author: Danny Milosavljevic <address@hidden>
Date: Wed Jul 5 12:53:37 2017 +0200
installer: Also allow using keyboard shortcut on the non-first button.
* gurses/buttons.scm (buttons-select-by-symbol): Modify.
---
gurses/buttons.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index ed69b8d..51e18cf 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -185,8 +185,8 @@
(match (array-ref arry i)
((ch win xsym)
(if (eq? xsym sym)
- (buttons-set-selected! buttons i))))
- (loop (1+ i))))))
+ (buttons-set-selected! buttons i)
+ (loop (1+ i)))))))))
(define (buttons-mouse-handler buttons device-id g-x g-y z button-state)
(if (logtest BUTTON1_CLICKED button-state)