not flashing incorrect position.
This commit is contained in:
@@ -139,7 +139,10 @@
|
|||||||
:let [e (label text (style :label font (color 0.6 1.0 1.0 1.0)))
|
:let [e (label text (style :label font (color 0.6 1.0 1.0 1.0)))
|
||||||
e (assoc e :height 30 :x 30 :y (+ 30 (* choice-height (- choice-count i 1))) :index i)
|
e (assoc e :height 30 :x 30 :y (+ 30 (* choice-height (- choice-count i 1))) :index i)
|
||||||
e (style-label e font (get-in entities [:state :last-pos]))]]
|
e (style-label e font (get-in entities [:state :last-pos]))]]
|
||||||
[i e]))
|
[i (doto e
|
||||||
|
(label! :set-x (:x e))
|
||||||
|
(label! :set-y (:y e))
|
||||||
|
(label! :set-height (:height e)))]))
|
||||||
(assoc-in [:state :choices] choices)
|
(assoc-in [:state :choices] choices)
|
||||||
(assoc-in [:state :callback] callback)
|
(assoc-in [:state :callback] callback)
|
||||||
(assoc-in [:state :np :height] (* 30 (inc choice-count))))))
|
(assoc-in [:state :np :height] (* 30 (inc choice-count))))))
|
||||||
|
|||||||
Reference in New Issue
Block a user