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

probably bugs, but faster.

Browse Source
This commit is contained in:
Bryce Covert
2016-08-05 17:07:21 -07:00
parent 8dd00098ad
commit 5296ff3c74
8 changed files with 108 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
desktop/src-common/advent/screens/splash.clj
View File

@@ -94,7 +94,7 @@
(defscreen splash-screen
:on-show
(fn [screen entities]
(fn [screen entities options]
(println screen)
(utils/setup-viewport screen 1280 960)
(log/info "Starting splash screen.")
@@ -125,7 +125,7 @@
:on-render
(fn [{:keys [^FitViewport viewport] :as screen} entities]
(fn [{:keys [^FitViewport viewport] :as screen} entities options]
(steam/update)
(.apply viewport)
(clear!)
@@ -141,17 +141,17 @@
:show-screen (fn [entities]
entities)
:on-touch-up (fn [screen entities]
:on-touch-up (fn [screen entities options]
(if (get-in entities [:current-step :can-skip])
(assoc entities :current-step nil :queued-skip? false)
(assoc entities :queued-skip? true)))
:on-key-up
(fn [screen entities]
(fn [screen entities options]
(when (= (key-code :escape) (:key screen))
(utils/toggle-fullscreen!))
nil)
:on-resize (fn [{:keys [^FitViewport viewport width height]} entities]
:on-resize (fn [{:keys [^FitViewport viewport]} entities {:keys [width height]} ]
(.update viewport width height false)
nil))