From fadb1fcdcf779e7bebe737113d8560861ce5d935 Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Wed, 4 Nov 2015 07:48:25 -0800 Subject: [PATCH] progress on new save menu. --- desktop/src-common/advent/screens/title.clj | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/desktop/src-common/advent/screens/title.clj b/desktop/src-common/advent/screens/title.clj index 039a014b..373be626 100644 --- a/desktop/src-common/advent/screens/title.clj +++ b/desktop/src-common/advent/screens/title.clj @@ -198,10 +198,11 @@ (every-pred :save #(utils/intersects? % [x y])) (vals entities)))) -(defn saves-menu [] +(defn saves-menu [entities] (make-table (concat [[(make-label "Save Title") :colspan 3 :height 32] :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] :row @@ -344,7 +345,7 @@ (= :chapters actor-key) (-> entities (dissoc :main-menu) - (assoc :save-menu (saves-menu))) + (assoc :save-menu (saves-menu entities))) (= :toggle-fullscreen actor-key) (utils/toggle-fullscreen!)