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/dialogue.clj
+++ b/desktop/src-common/advent/screens/dialogue.clj
@@ -79,7 +79,7 @@
                  [i (assoc (label text (style :label font (color :white))) :x 30 :y (* 30 i))]))
          (assoc :state {:object nil :callback callback :choices choices}))))

-  :on-touch-down (fn [screen [entities]]
+  :on-touch-up (fn [screen [entities]]
                   (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
                     (when (seq entities)
                       (when (< y (* 30 (dec (count entities))))