set height for rows.

This commit is contained in:
Bryce Covert
2016-05-04 18:51:56 -07:00
parent 446436eccc
commit a25dbae624

View File

@@ -100,8 +100,8 @@
(fn [people-rows person-name]
(-> people-rows
(conj :row)
(conj (label person-name (get-person-style entities 1.0) :set-alignment Align/center :set-font-scale 0.25))))
[(label (doto role) (get-role-style entities 1.0) :set-alignment Align/center :set-font-scale 0.25)]
(conj [(label person-name (get-person-style entities 1.0) :set-alignment Align/center :set-font-scale 0.25) :height 50])))
[[(label role (get-role-style entities 1.0) :set-alignment Align/center :set-font-scale 0.25) :height 50]]
persons))
:top :width 350 :pad-right 30 :pad-left 30])))
[]