From 190db3dcd6e23442cf0424d71331235199f9cefe Mon Sep 17 00:00:00 2001
From: Bryce Covert <bryce@liffft.com>
Date: Wed, 11 Nov 2015 18:30:32 -0800
Subject: [PATCH] better ui.

---
 desktop/src-common/advent/screens/dialogue.clj | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/desktop/src-common/advent/screens/dialogue.clj b/desktop/src-common/advent/screens/dialogue.clj
index 6b3ce59c..3ddfd394 100644
--- a/desktop/src-common/advent/screens/dialogue.clj
+++ b/desktop/src-common/advent/screens/dialogue.clj
@@ -15,7 +15,8 @@
            [com.badlogic.gdx.utils.viewport FitViewport]
            [com.badlogic.gdx.scenes.scene2d.utils Align]
            [com.badlogic.gdx.math Vector3 Vector2 Matrix4]
-           [com.badlogic.gdx Screen]))
+           [com.badlogic.gdx Screen]
+           [play_clj.entities NinePatchEntity]))
 
 (defn ensure-on-screen [talk]
   (let [margin-width (* 0.05 1280)
@@ -51,7 +52,7 @@
   :on-talk
   (fn [{:keys [create-talk target-id color text x y scale scene-viewport] :as screen} [entities]]
     (let [font (bitmap-font "ego/font.fnt" ) 
-          p (nine-patch {:region (:object (utils/get-texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
+          p (NinePatchEntity. (skin! (skin "ui/ui.json") :get-patch "ui-bg")) 
           _ (nine-patch! p :set-padding 25 25 5 15)
           
           bg (drawable :nine-patch (:object p))
@@ -117,13 +118,15 @@
           tr (bitmap-font! font :get-region)
           scale 1 
           tx (.getTexture tr)
+          p (NinePatchEntity. (skin! (skin "ui/ui.json") :get-patch "ui-bg")) 
+          _ (nine-patch! p :set-padding 25 25 5 15)
           _ (texture! tx :set-filter Texture$TextureFilter/Linear Texture$TextureFilter/Linear)]
       {:state {:object nil
                :callback nil
                :choices []
                :last-pos [0 0]
                :font font
-               :np (assoc (nine-patch {:region (:object (utils/get-texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})
+               :np (assoc p
                      :x 5 :y 5 :width 1270)}}))
 
   :on-render