This commit is contained in:
Bryce Covert
2015-11-04 21:43:47 -08:00
parent 4c1e91a6fb
commit 66b446c16c
18 changed files with 27 additions and 7 deletions

View File

@@ -229,7 +229,7 @@
(.setUncheckLast true))
[cell-w cell-h] [218 161]
make-cell (fn [image] [image :width cell-w :pad 4 4 4 4 :height cell-h])
make-save-screenshot (fn [{:keys [screenshot name id state] :as save}]
make-save-screenshot (fn [{:keys [screenshot name id state blurb] :as save}]
(let [btn (doto (assoc (image-button (skin "ui/ui.json"))
:save save
:name name)
@@ -239,7 +239,7 @@
(.setOrigin (/ (- cell-w 16) 2) (/ (- cell-h 16) 2))
(.addActor (:object (doto (image (texture screenshot))
(image! :set-size (- cell-w 16) (- cell-h 16)))))
(.addActor (:object (make-label (str " " (subs name 0 (min (.length name) 10))))))
(.addActor (:object (make-label (str " " (or blurb name)))))
))
save-object)]