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

handles quick clicks.

Browse Source
This commit is contained in:
Bryce Covert
2016-10-13 19:25:39 -07:00
parent 3dd4b4298e
commit 4e4334e5aa
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -32,7 +32,8 @@
(defn mouse-down [screen entities options] (defn mouse-down [screen entities options]
(let [[x y] (utils/unproject screen options) (let [[x y] (utils/unproject screen options)
selected-entity (first (filter #((:box %) x y) (vals (:items entities))))] selected-entity (first (filter #((:box %) x y) (vals (:items entities))))]
(assoc entities :selected-item (:item selected-entity)))) (assoc entities :selected-item (:item selected-entity)
:down-time (:total-time screen))))
(defn mouse-outside-inventory? [[x y]] (defn mouse-outside-inventory? [[x y]]
(or (< x 80) (or (< x 80)
@@ -73,11 +74,13 @@
(cond (not selected-item) (cond (not selected-item)
(close screen entities false false) (close screen entities false false)
(and (= selected-item hovered-item) (and
(> (- (:total-time screen) (:down-time entities)) 0.5)
(= selected-item hovered-item)
dragged?) dragged?)
(dissoc entities :selected-item :dragged?) (dissoc entities :selected-item :dragged?)
(or (not hovered-item) (= selected-item hovered-item)) (and (or (not hovered-item) (= selected-item hovered-item)))
(do (screen! @(resolve 'advent.screens.scene/scene) :on-chose-item { :item selected-item}) (do (screen! @(resolve 'advent.screens.scene/scene) :on-chose-item { :item selected-item})
(close screen entities false false)) (close screen entities false false))
:else :else