reset cursor on reactivate.
This commit is contained in:
@@ -1 +1 @@
|
|||||||
19
|
20
|
||||||
|
|||||||
@@ -1159,7 +1159,10 @@ void main ()
|
|||||||
(apply-state screen entities)
|
(apply-state screen entities)
|
||||||
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])]
|
(doseq [[k [start time fn]] (get-in entities [:room :timers])]
|
||||||
(add-timer! screen k start time)))
|
(add-timer! screen k start time)))
|
||||||
|
|
||||||
@@ -1301,6 +1304,7 @@ void main ()
|
|||||||
(assoc-in entities [:state :active?] false))
|
(assoc-in entities [:state :active?] false))
|
||||||
|
|
||||||
:on-reactivate (fn [screen [entities]]
|
:on-reactivate (fn [screen [entities]]
|
||||||
|
|
||||||
(-> entities
|
(-> entities
|
||||||
(assoc-in [:state :active?] true)
|
(assoc-in [:state :active?] true)
|
||||||
(assoc-in [:cursor :override] nil)))
|
(assoc-in [:cursor :override] nil)))
|
||||||
|
|||||||
Reference in New Issue
Block a user