notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui tweaks

Browse Source
This commit is contained in:
Bryce Covert
2015-11-11 18:24:53 -08:00
parent f123ce1c81
commit e3ea8413e4
4 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
desktop/src-common/advent/screens/title.clj
View File

@@ -169,11 +169,10 @@
(defn make-table [children]
(-> children
(table)
(doto (table! :background (NinePatchDrawable.
(:object (nine-patch {:region (:object (utils/get-texture "talk-bg-2.png")) :left 9 :top 9 :right 9 :bottom 9})))))
(doto (table! :set-background (NinePatchDrawable. (skin! (skin "ui/ui.json") :get-patch "ui-bg" ))))
(assoc
:y 32 :width 500 :height 335
:x (- (/ 1280 2) (/ 500 2))
:y 32 :width 504 :height 335
:x (- (/ 1280 2) (/ 504 2))
:z 8
:opacity 1.0)))
@@ -212,7 +211,7 @@
(make-table [[(doto (scroll-pane chapter-table
(skin "ui/ui.json"))
(scroll-pane! :set-fade-scroll-bars false)) :height 240 :width 476]
(scroll-pane! :set-fade-scroll-bars false)) :height 240 :width 472]
:row
[ (make-button "Back" :key :back) :height 56]])))
@@ -254,7 +253,7 @@
(.setMinCheckCount 0)
(.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-cell (fn [image] [image :width cell-w :pad 4 4 0 0 :height cell-h])
make-save-screenshot (fn [{:keys [screenshot name id state blurb] :as save}]
(let [btn (doto (assoc (image-button (skin "ui/ui.json"))
:save save
@@ -281,7 +280,7 @@
(scroll-pane! :set-fade-scroll-bars false))]
(.setScrollFocus stage (:object scroll-pane))
[scroll-pane
:colspan 3 :height 212 :pad-bottom 4 :width 476]))
:colspan 3 :height 212 :pad-bottom 4 :width 472]))
(defn saves-menu [entities stage]
(let [save-label (make-label "" label-color)