From 7d632980d8106c7e7183ec3374da9c6a3dd7b56f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 31 Jan 2009 02:39:27 -0600
Subject: [PATCH] Add key-gesture superclass for key-down and key-up

---
 basis/ui/gestures/gestures.factor | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index 4e4fc1d035..6ebe77623b 100644
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -87,18 +87,20 @@ zoom-in-action zoom-out-action ;
 ! Modifiers
 SYMBOLS: C+ A+ M+ S+ ;
 
-TUPLE: key-down mods sym ;
+TUPLE: key-gesture mods sym ;
 
-: <key-gesture> ( mods sym action? class -- mods' sym' )
+TUPLE: key-down < key-gesture ;
+
+: new-key-gesture ( mods sym action? class -- mods' sym' )
     [ [ [ S+ swap remove f like ] dip ] unless ] dip boa ; inline
 
 : <key-down> ( mods sym action? -- key-down )
-    key-down <key-gesture> ;
+    key-down new-key-gesture ;
 
-TUPLE: key-up mods sym ;
+TUPLE: key-up < key-gesture ;
 
 : <key-up> ( mods sym action? -- key-up )
-    key-up <key-gesture> ;
+    key-up new-key-gesture ;
 
 ! Hand state