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!)