blurbs.
This commit is contained in:
@@ -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)]
|
||||
|
||||
Reference in New Issue
Block a user