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

Remove deprecated stuff

Browse Source
This commit is contained in:
oakes
2014-01-14 01:56:25 -05:00
parent 80d17783f2
commit 646d8e0fa1
2 changed files with 0 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/play_clj/core.clj
View File

@@ -21,7 +21,6 @@
[com.badlogic.gdx.scenes.scene2d Actor Stage])) [com.badlogic.gdx.scenes.scene2d Actor Stage]))
(load "core_2d") (load "core_2d")
(load "core_deprecated")
(load "core_global") (load "core_global")
(load "core_render") (load "core_render")
@@ -50,14 +49,12 @@
listeners [(input-processor options execute-fn!) listeners [(input-processor options execute-fn!)
(gesture-detector options execute-fn!)] (gesture-detector options execute-fn!)]
ui-listeners (ui/create-listeners options execute-fn!) ui-listeners (ui/create-listeners options execute-fn!)
create-renderer-fn! #(swap! screen assoc :renderer (renderer %))
update-fn! #(swap! screen merge %)] update-fn! #(swap! screen merge %)]
{:screen screen {:screen screen
:entities entities :entities entities
:show (fn [] :show (fn []
(swap! screen assoc (swap! screen assoc
:total-time 0 :total-time 0
:create-renderer-fn! create-renderer-fn!
:update-fn! update-fn! :update-fn! update-fn!
:ui-listeners ui-listeners) :ui-listeners ui-listeners)
(execute-fn! on-show)) (execute-fn! on-show))

16
src/play_clj/core_deprecated.clj
View File

@@ -1,16 +0,0 @@
(in-ns 'play-clj.core)
(defn create-renderer!
[{:keys [create-renderer-fn!]} & {:keys [] :as args}]
(:renderer (create-renderer-fn! args)))
(defmulti renderer :type :default nil)
(defmethod renderer nil [opts])
(defmethod renderer :stage [_]
(Stage.))
(defmacro label
[& args]
`(ui/label ~@args))