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 (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-font-scale (* utils/ui-scale 0.25)
:set-width label-width) :set-width label-width)
:index i :index i
:width label-width)) :width label-width))
(map (fn [l] (assoc (table [[ l :width label-width]]) (map (fn [l] (assoc
:label l (table [[l :width label-width
:index (:index l))))))] :pad-bottom (* utils/ui-scale 12)
:pad-top (* utils/ui-scale 12)]])
:label l
:index (:index l))))))]
(-> entities (-> entities
(assoc-in [:state :choices] choices) (assoc-in [:state :choices] choices)
@@ -191,7 +193,7 @@
(assoc-in [:state :labels] labels) (assoc-in [:state :labels] labels)
(assoc-in [:state :table] (assoc-in [:state :table]
(doto (-> labels (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 %)) (#(utils/add-actor-to-stage screen %))
(assoc :x 0 :y 0 :width 1240) (assoc :x 0 :y 0 :width 1240)