From 83b980b30d9f0d630ef576f669c38e63f51cec37 Mon Sep 17 00:00:00 2001 From: oakes Date: Wed, 17 Sep 2014 14:06:17 -0400 Subject: [PATCH] Revert "Add breaking changes" This reverts commit f60d65e124174465a63514acc90129731a9643d7. --- src/play_clj/core.clj | 5 +++++ src/play_clj/core_basics.clj | 2 ++ 2 files changed, 7 insertions(+) diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index a19969b..681bd37 100644 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -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))] (apply execute-fn! screen-fn options) nil)) + +(defn run! + "Deprecated. Please use `screen!` instead." + [& args] + (apply screen! args)) diff --git a/src/play_clj/core_basics.clj b/src/play_clj/core_basics.clj index 40251a7..19bfbfe 100644 --- a/src/play_clj/core_basics.clj +++ b/src/play_clj/core_basics.clj @@ -101,6 +101,8 @@ :fps (graphics! :get-frames-per-second) :fullscreen? (graphics! :is-fullscreen) :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-y (- (graphics! :get-height) (input! :get-y (or arg 0))) (u/throw-key-not-found k)))