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)))