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

mouseover on mouse down.

Browse Source
This commit is contained in:
Bryce Covert
2016-10-15 18:27:48 -07:00
parent 85945b7fa6
commit 7347fdbfbf
1 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
desktop/src-common/advent/screens/dialogue.clj
View File

@@ -116,8 +116,19 @@
(defn style-label [e font mouse-pos]
(table! (:label e) :set-style (style :label font (get-color e mouse-pos)))
e)
(defn mouse-moved [screen entities options]
(let [[x y] (utils/unproject screen options)
entities (assoc-in entities [:state :last-pos] [x y])
choice-count (dec (count entities))]
(when-let [table (get-in entities [:state :table])]
(doseq [e (get-in entities [:state :labels])]
(style-label e (get-in entities [:state :font]) [x y])))
entities))
(defscreen choice-screen
:on-show
(fn [screen entities options]
@@ -191,15 +202,9 @@
(assoc-in [:state :table] nil)
(select-keys [:state]))))))
:on-mouse-moved (fn [screen entities options]
(let [[x y] (utils/unproject screen options)
entities (assoc-in entities [:state :last-pos] [x y])
choice-count (dec (count entities))]
(when-let [table (get-in entities [:state :table])]
(doseq [e (get-in entities [:state :labels])]
(style-label e (get-in entities [:state :font]) [x y])))
entities))
:on-mouse-moved mouse-moved
:on-touch-dragged mouse-moved
:on-touch-down mouse-moved
:on-resize (fn [{:keys [^FitViewport viewport]} entities {:keys [width height]}]
(.update viewport width height)))