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

just adding a button instead.

Browse Source
This commit is contained in:
Bryce Covert
2015-11-10 08:42:00 -08:00
parent 2fd5ce988e
commit 16b59813de
1 changed files with 15 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -260,19 +260,23 @@
(scroll-pane! :set-fade-scroll-bars false))] (scroll-pane! :set-fade-scroll-bars false))]
(.setScrollFocus stage (:object scroll-pane)) (.setScrollFocus stage (:object scroll-pane))
[scroll-pane [scroll-pane
:colspan 2 :height 224 :width 476])) :colspan 3 :height 224 :width 476]))
(defn saves-menu [entities stage] (defn saves-menu [entities stage]
(let [save-label (make-label "") (let [save-label (make-label "")
continue-button (doto (make-button "Continue" :key :continue) continue-button (doto (make-button "Continue" :key :continue)
(text-button! :set-disabled true))] (text-button! :set-disabled true))
(assoc (make-table [[save-label :colspan 2 :height 32] delete-button (doto (make-button "Delete" :key :delete)
(text-button! :set-disabled true))]
(assoc (make-table [[save-label :colspan 3 :height 32]
:row :row
(saves-table entities stage) (saves-table entities stage)
:row :row
[(make-button "Back" :key :back) :width 150] [delete-button :width 100]
[continue-button :width 150]]) [(make-button "Back" :key :back) :width 100]
[continue-button :width 100]])
:save-label save-label :save-label save-label
:delete-button delete-button
:continue-button continue-button))) :continue-button continue-button)))
@@ -419,9 +423,9 @@
(= :continue actor-key) (= :continue actor-key)
(start-playing screen entities (:selected-save entities)) (start-playing screen entities (:selected-save entities))
(:save-to-remove e) (= :delete actor-key)
(do (do
(utils/remove-save (:save-to-remove e)) (utils/remove-save (:id (:selected-save entities)))
(as-> entities entities (as-> entities entities
(dissoc entities :save-menu) (dissoc entities :save-menu)
(assoc entities :saves-list (doto (utils/snapshot-screenshots) (assoc entities :saves-list (doto (utils/snapshot-screenshots)
@@ -434,14 +438,13 @@
(do (do
(label! (-> entities :save-menu :save-label) :set-text (:name (:save e))) (label! (-> entities :save-menu :save-label) :set-text (:name (:save e)))
(text-button! (-> entities :save-menu :continue-button) :set-disabled false) (text-button! (-> entities :save-menu :continue-button) :set-disabled false)
(.addActor (:object e) (:object (doto (make-button "X" :save-to-remove (:id (:save e))) (text-button! (-> entities :save-menu :delete-button) :set-disabled false)
(text-button! :set-x 180)
(text-button! :set-y 120))))
(assoc entities :selected-save (:save e))) (assoc entities :selected-save (:save e)))
(do (do
(label! (-> entities :save-menu :save-label) :set-text "") (label! (-> entities :save-menu :save-label) :set-text "")
(.removeActor (:object e) (last (.getChildren (:object e)))) (text-button! (-> entities :save-menu :continue-button) :set-disabled true)
(text-button! (-> entities :save-menu :continue-button) :set-disabled true)))) (text-button! (-> entities :save-menu :delete-button) :set-disabled true))))
(:chapter e) (:chapter e)
(start-playing screen entities (:chapter e)) (start-playing screen entities (:chapter e))