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)))
|
||||
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]))]]
|
||||
[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 :callback] callback)
|
||||
(assoc-in [:state :np :height] (* 30 (inc choice-count))))))
|
||||
|
||||
Reference in New Issue
Block a user