From e520fe07925e67129ba4e109ba20172ed75ceab0 Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Wed, 22 Apr 2015 17:32:15 -0700 Subject: [PATCH] not flashing incorrect position. --- desktop/src-common/advent/screens/dialogue.clj | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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))))))