notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

better inventory experience.

Browse Source
This commit is contained in:
Remington Covert
2014-12-14 21:30:06 -08:00
parent 88b9774c85
commit 089f9954be
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/src-common/advent/screens/inventory.clj
View File

@@ -85,7 +85,7 @@
(assoc entities :highlighted-item nil)))) (assoc entities :highlighted-item nil))))
:on-touch-up (fn [screen [entities]] :on-touch-up (fn [screen [entities]]
(when (:shown? entities) (when (and (:shown? entities) (= (button-code :left) (:button screen)))
(let [{:keys [highlighted-item]} entities (let [{:keys [highlighted-item]} entities
room-entities (-> @(resolve 'advent.screens.scene/scene) room-entities (-> @(resolve 'advent.screens.scene/scene)
:entities :entities

8
desktop/src-common/advent/screens/scene.clj
View File

@@ -341,11 +341,11 @@
(assoc-in entities [:cursor :override] nil))))) (assoc-in entities [:cursor :override] nil)))))
:on-touch-up (fn [screen [entities]] :on-touch-up (fn [screen [entities]]
(if (= (button-code :right)
(:button screen))
(assoc-in entities [:cursor :current] :main)
(when (get-in entities [:state :active?]) (when (get-in entities [:state :active?])
(if (= (button-code :right) (left-click screen entities))))
(:button screen))
(assoc-in entities [:cursor :current] :main)
(left-click screen entities))))
:on-deactivate (fn [screen [entities]] :on-deactivate (fn [screen [entities]]
(assoc-in entities [:state :active?] false)) (assoc-in entities [:state :active?] false))