minor tweak.

desktop/src-common/advent/screens/title.clj

@@ -335,11 +335,7 @@
       (render! screen (sort-by :z (filter :object (vals entities))) )
       entities))
 
-  :show-screen (fn [entities]
-                 entities)
-
-  
-
+  :show-screen (fn [entities] entities)
   
   :on-key-up
   (fn [screen entities]
@@ -349,6 +345,8 @@
 
   :on-ui-changed
   (fn [{:keys [actor] :as screen} [entities]]
+    (when-not (get-in entities [:tweens :fade-out])
+      
       (let [e (-> actor .getUserObject)
             actor-key (:key e)]
         
@@ -395,22 +393,7 @@
            (assoc entities :selected-save (:save e)))
 
          :else
-       entities)))
-
-  :on-touch-up (fn [screen [{:keys [prev next saves-list save-index] :as entities}]]
-                 (when-not (get-in entities [:tweens :fade-out])
-                   (let [[x y] (utils/unproject screen)
-                         selected-save (get-selected-save entities [x y])]
-                     (cond
-
-                      
-
-                      selected-save
-                      (start-playing screen entities (:save selected-save))
-
-                      :else
-                      nil))))
-   
+         entities))))
 
   :on-resize (fn [{:keys [viewport width height]} [entities]]
                (.update viewport width height false)