more mobile tweaks.

This commit is contained in:
Bryce Covert
2017-05-02 19:46:46 -07:00
parent 1216617b01
commit 8695a8e408
3 changed files with 12 additions and 5 deletions

View File

@@ -175,6 +175,7 @@
([msg col]
(make-label msg col utils/title-label-scale))
([msg col scale]
(println msg scale)
(let [font (utils/get-font "ego/font.fnt")
p (NinePatchEntity. (skin! (skin "ui/ui.json") :get-patch "ui-bg"))
@@ -182,9 +183,9 @@
bg (drawable :nine-patch ^NinePatch (:object p))
style (style :label font (or col (color 1.0 0.3 0.3 1.0)))
#_#__ (set! (.background style) bg)]
(-> style .font .getData (.setScale scale))
(-> style .font .getData (.setScale scale scale))
(-> msg
(label style)
(label style :set-font-scale scale)
(assoc :x 0 :y 0 :height 40 :origin-x 0 :origin-y 0 :z 8)
(doto (label! :set-alignment Align/bottom)