diff --git a/desktop/src-common/advent/screens/dialogue.clj b/desktop/src-common/advent/screens/dialogue.clj index 909d73c1..7a357cc9 100644 --- a/desktop/src-common/advent/screens/dialogue.clj +++ b/desktop/src-common/advent/screens/dialogue.clj @@ -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))))))