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

progress on new save menu.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-04 07:48:25 -08:00
parent a8976e079d
commit fadb1fcdcf
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -198,10 +198,11 @@
(every-pred :save #(utils/intersects? % [x y])) (every-pred :save #(utils/intersects? % [x y]))
(vals entities)))) (vals entities))))
(defn saves-menu [] (defn saves-menu [entities]
(make-table (concat [[(make-label "Save Title") :colspan 3 :height 32] (make-table (concat [[(make-label "Save Title") :colspan 3 :height 32]
:row :row
[(scroll-pane (table [[(image (utils/get-texture "title/screenshot-backdrop.png")) :width 142 :pad 4 4 4 4 :height 104] [(scroll-pane (table [[(Group. [(image (utils/get-texture "title/screenshot-backdrop.png"))
(image (utils/get-texture (second (first (:saves-list entities)))))]) :width 142 :pad 4 4 4 4 :height 104]
[(image (utils/get-texture "title/screenshot-backdrop.png")) :width 142 :pad 4 4 4 4 :height 104] [(image (utils/get-texture "title/screenshot-backdrop.png")) :width 142 :pad 4 4 4 4 :height 104]
[(image (utils/get-texture "title/screenshot-backdrop.png")) :width 142 :pad 4 4 4 4 :height 104] [(image (utils/get-texture "title/screenshot-backdrop.png")) :width 142 :pad 4 4 4 4 :height 104]
:row :row
@@ -344,7 +345,7 @@
(= :chapters actor-key) (= :chapters actor-key)
(-> entities (-> entities
(dissoc :main-menu) (dissoc :main-menu)
(assoc :save-menu (saves-menu))) (assoc :save-menu (saves-menu entities)))
(= :toggle-fullscreen actor-key) (= :toggle-fullscreen actor-key)
(utils/toggle-fullscreen!) (utils/toggle-fullscreen!)