item interactions are beginning to form.

2014-10-16 20:51:05 -07:00
parent b0a669be69
commit 5dbf134a43
5 changed files with 36 additions and 16 deletions
--- a/desktop/src-common/advent/screens/scene.clj
+++ b/desktop/src-common/advent/screens/scene.clj
@@ -187,7 +187,7 @@
          (assoc-in entities [:cursor :override] (:cursor mouse-override))
          (assoc-in entities [:cursor :override] nil)))))

-  :on-touch-down (fn [screen [entities]]
+  :on-touch-up (fn [screen [entities]]
                   (when (get-in entities [:state :active?])
                     (if (= (button-code :right)
                            (:button screen))