no close on fade in.

2015-10-28 18:37:27 -07:00
parent c86478f14b
commit 379c74230c
1 changed files with 2 additions and 1 deletions
--- a/desktop/src-common/advent/screens/scene.clj
+++ b/desktop/src-common/advent/screens/scene.clj
@@ -1238,7 +1238,8 @@ void main ()
  :on-show-inventory (fn [screen [entities]]
                       (click-inventory screen entities))
  :on-menu (fn [screen [entities]]
-             (when-not (get-in entities [:tweens :fade-out])
+             (when-not (or (get-in entities [:tweens :fade-out])
+                           (get-in entities [:tweens :fade-in]))
               (input! :set-cursor-image (utils/cursor "cursor.png" :hourglass) 0 0)
               (-> entities
                   (assoc-in [:closing? :value] true)