reset cursor on reactivate.

This commit is contained in:
Bryce Covert
2015-11-27 18:36:52 -08:00
parent cbcbc0c893
commit f174ff6837
2 changed files with 6 additions and 2 deletions

View File

@@ -1 +1 @@
19
20

View File

@@ -1159,7 +1159,10 @@ void main ()
(apply-state screen entities)
entities)))))
:on-resume (fn [screen [entities]]
:on-resume (fn [screen [{{:keys [current override last active was-active]} :cursor :as entities}]]
(let [current (or override current)
image-path (if active "cursor_light.png" "cursor.png")]
(input! :set-cursor-image (utils/cursor image-path (or (:cursor current) current)) 0 0))
(doseq [[k [start time fn]] (get-in entities [:room :timers])]
(add-timer! screen k start time)))
@@ -1301,6 +1304,7 @@ void main ()
(assoc-in entities [:state :active?] false))
:on-reactivate (fn [screen [entities]]
(-> entities
(assoc-in [:state :active?] true)
(assoc-in [:cursor :override] nil)))