From 1216617b01fccf83c71eae9592c3566fd0d7c450 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Tue, 11 Apr 2017 06:47:49 -0700 Subject: [PATCH] label text padding --- desktop/src-common/advent/screens/dialogue.clj | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/desktop/src-common/advent/screens/dialogue.clj b/desktop/src-common/advent/screens/dialogue.clj index 49c9c592..431d0221 100644 --- a/desktop/src-common/advent/screens/dialogue.clj +++ b/desktop/src-common/advent/screens/dialogue.clj @@ -178,12 +178,14 @@ (label text (style :label font (color 0.6 1.0 1.0 1.0)) :set-wrap true :set-alignment Align/bottomLeft :set-font-scale (* utils/ui-scale 0.25) :set-width label-width) - :index i :width label-width)) - (map (fn [l] (assoc (table [[ l :width label-width]]) - :label l - :index (:index l))))))] + (map (fn [l] (assoc + (table [[l :width label-width + :pad-bottom (* utils/ui-scale 12) + :pad-top (* utils/ui-scale 12)]]) + :label l + :index (:index l))))))] (-> entities (assoc-in [:state :choices] choices) @@ -191,7 +193,7 @@ (assoc-in [:state :labels] labels) (assoc-in [:state :table] (doto (-> labels - (vertical :align Align/bottomLeft :pad (* utils/ui-scale 20) :space (* utils/ui-scale 24)) + (vertical :align Align/bottomLeft :pad (* utils/ui-scale 20)) (#(utils/add-actor-to-stage screen %)) (assoc :x 0 :y 0 :width 1240)