From 507e146877041aac23eff0bfdd0bcd565a66a8e3 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 10 Aug 2016 09:06:35 -0700 Subject: [PATCH] sort of works. --- desktop/src-common/advent/screens/title.clj | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj index 7b3a2e84..e3d2920b 100644 --- a/desktop/src-common/advent/screens/title.clj +++ b/desktop/src-common/advent/screens/title.clj @@ -134,6 +134,7 @@ (defn button-style [] (let [^TextButton$TextButtonStyle style (skin! (skin "ui/ui.json") :get TextButton$TextButtonStyle) tx (-> style .font .getRegion .getTexture)] + (-> style .font .getData (.setScale 0.5)) (call! ^Texture tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear) style)) @@ -160,6 +161,7 @@ (defn make-checkbox ([msg checked & rest] (let [s (skin! (skin "ui/ui.json") :get CheckBox$CheckBoxStyle)] + (-> s .font .getData (.setScale 0.25)) (doto (merge (check-box msg s) (apply hash-map rest)) (set-checkbox-state checked) @@ -176,11 +178,12 @@ 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 0.25)) (-> msg (label style) (assoc :x 0 :y 0 :height 40 :origin-x 0 :origin-y 0 :z 8) (doto (label! :set-alignment Align/bottom) - (label! :set-font-scale 0.25) + #_(#(label! % :set-width (/ (label! % :get-width) 2)))) center))))