From de2e01268e387a2496e5ca92aa0702446a11dde5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 16 Aug 2016 14:28:28 +0200
Subject: [PATCH] ui.backend.x11.keys: typo on F12
---
basis/ui/backend/x11/keys/keys-tests.factor | 6 ++++++
basis/ui/backend/x11/keys/keys.factor | 2 +-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/basis/ui/backend/x11/keys/keys-tests.factor b/basis/ui/backend/x11/keys/keys-tests.factor
index 87c1491018..7b63571dcb 100644
--- a/basis/ui/backend/x11/keys/keys-tests.factor
+++ b/basis/ui/backend/x11/keys/keys-tests.factor
@@ -5,8 +5,14 @@ IN: ui.backend.x11.keys.tests
65 f
"RET" t
f f
+ "F10" t
+ "F11" t
+ "F12" t
} [
65 code>sym
XK_Return code>sym
XK_Hyper_R code>sym
+ XK_F10 code>sym
+ XK_F11 code>sym
+ XK_F12 code>sym
] unit-test
diff --git a/basis/ui/backend/x11/keys/keys.factor b/basis/ui/backend/x11/keys/keys.factor
index 5184a32384..51572431b3 100644
--- a/basis/ui/backend/x11/keys/keys.factor
+++ b/basis/ui/backend/x11/keys/keys.factor
@@ -40,7 +40,7 @@ CONSTANT: codes
{ $ XK_F9 "F9" }
{ $ XK_F10 "F10" }
{ $ XK_F11 "F11" }
- { $ XK_F11 "F12" }
+ { $ XK_F12 "F12" }
{ $ XK_Shift_L f }
{ $ XK_Shift_R f }