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

Revert "Add breaking changes"

Browse Source 
This reverts commit f60d65e124.
This commit is contained in:
oakes
2014-09-17 14:06:17 -04:00
parent f60d65e124
commit 83b980b30d
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/play_clj/core.clj
View File

@@ -563,3 +563,8 @@ of key-value pairs, which will be given to the function via its screen map.
screen-fn (-> screen-object :options (get fn-name))] screen-fn (-> screen-object :options (get fn-name))]
(apply execute-fn! screen-fn options) (apply execute-fn! screen-fn options)
nil)) nil))
(defn run!
"Deprecated. Please use `screen!` instead."
[& args]
(apply screen! args))

2
src/play_clj/core_basics.clj
View File

@@ -101,6 +101,8 @@
:fps (graphics! :get-frames-per-second) :fps (graphics! :get-frames-per-second)
:fullscreen? (graphics! :is-fullscreen) :fullscreen? (graphics! :is-fullscreen)
:touched? (input! :is-touched) :touched? (input! :is-touched)
:x (input! :get-x) ; deprecated, use :point-x instead
:y (input! :get-y) ; deprecated, use :point-y instead (it is flipped)
:point-x (input! :get-x (or arg 0)) :point-x (input! :get-x (or arg 0))
:point-y (- (graphics! :get-height) (input! :get-y (or arg 0))) :point-y (- (graphics! :get-height) (input! :get-y (or arg 0)))
(u/throw-key-not-found k))) (u/throw-key-not-found k)))