From 081ec9504380aad2116fd67702fd2ca7a55d4b19 Mon Sep 17 00:00:00 2001 From: Slava Pestov <slava@slava-pestovs-macbook-pro.local> Date: Wed, 28 Jan 2009 19:18:35 -0600 Subject: [PATCH] Make actions into singletons --- basis/ui/gestures/gestures.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor index 77809efafd..4e4fc1d035 100644 --- a/basis/ui/gestures/gestures.factor +++ b/basis/ui/gestures/gestures.factor @@ -70,14 +70,14 @@ TUPLE: drag # ; C: <drag> drag TUPLE: button-up mods # ; C: <button-up> button-up TUPLE: button-down mods # ; C: <button-down> button-down -SYMBOLS: +SINGLETONS: motion mouse-scroll mouse-enter mouse-leave lose-focus gain-focus ; ! Higher-level actions -SYMBOLS: +SINGLETONS: undo-action redo-action cut-action copy-action paste-action delete-action select-all-action