From f8e781ee179165f33c28b184bc0024a94c47e569 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Wed, 17 Aug 2016 04:04:06 +0200
Subject: [PATCH] ui.backend.x11.keys: symbolic constants can be used

---
 basis/ui/backend/x11/keys/keys.factor | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/basis/ui/backend/x11/keys/keys.factor b/basis/ui/backend/x11/keys/keys.factor
index 28d9ce1492..e2b5c25c97 100644
--- a/basis/ui/backend/x11/keys/keys.factor
+++ b/basis/ui/backend/x11/keys/keys.factor
@@ -1,14 +1,15 @@
 ! Copyright (C) 2016 Björn Lindqvist
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs kernel literals ui.gestures x11.keysymdef ;
+USING: accessors assocs kernel literals ui.gestures x11.X
+x11.keysymdef ;
 IN: ui.backend.x11.keys
 
 CONSTANT: modifiers
     {
-        { S+ 0x1 }
-        { C+ 0x4 }
-        { A+ 0x8 }
-        { M+ 0x40 }
+        ${ S+ ShiftMask }
+        ${ C+ ControlMask }
+        ${ A+ Mod1Mask }
+        ${ M+ Mod4Mask }
     }
 
 CONSTANT: codes