notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

label text padding

Browse Source
This commit is contained in:
Bryce Covert
2017-04-11 06:47:49 -07:00
parent 2837f9ed4b
commit 1216617b01
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
desktop/src-common/advent/screens/dialogue.clj
View File

@@ -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)