From 2e2ed7a322736784741216699c48df751c4c935a Mon Sep 17 00:00:00 2001 From: oakes Date: Tue, 21 Jan 2014 15:11:09 -0500 Subject: [PATCH] Add docstring and make contact! work with the screen map --- src/play_clj/core_listeners.clj | 1 + src/play_clj/g2d_physics.clj | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/play_clj/core_listeners.clj b/src/play_clj/core_listeners.clj index 44df2a4..49d90aa 100644 --- a/src/play_clj/core_listeners.clj +++ b/src/play_clj/core_listeners.clj @@ -34,6 +34,7 @@ false))) (defn ^:private gesture-listener + "Internal use only" [{:keys [on-fling on-long-press on-pan on-pan-stop on-pinch on-tap on-zoom]} execute-fn!] (reify GestureDetector$GestureListener diff --git a/src/play_clj/g2d_physics.clj b/src/play_clj/g2d_physics.clj index 72178e7..5c04058 100644 --- a/src/play_clj/g2d_physics.clj +++ b/src/play_clj/g2d_physics.clj @@ -216,8 +216,8 @@ (defmacro contact! "Calls a single method on a [Contact](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/physics/box2d/Contact.html)" - [object k & options] - `(u/call! ^Contact ~object ~k ~@options)) + [screen k & options] + `(u/call! ^Contact (u/get-obj ~screen :contact) ~k ~@options)) (defn find-body "Returns the first entity in `entities` whose body matches `body`"