Add gesture>operation word

2009-01-31 02:39:38 -06:00 · 2009-01-31 02:39:38 -06:00 · c253a81c99
parent 7d632980d8
commit c253a81c99
1 changed files with 3 additions and 0 deletions
--- a/basis/ui/operations/operations.factor
+++ b/basis/ui/operations/operations.factor
@ -36,6 +36,9 @@ SYMBOL: operations
 : object-operations ( obj -- operations )
    operations get [ predicate>> call ] with filter ;

+: gesture>operation ( gesture object -- operation/f )
+    object-operations [ operation-gesture = ] with find nip ;
+
 : find-operation ( obj quot -- command )
    [ object-operations ] dip find-last nip ; inline