From c2565e86f27cadc06b59bc2c2bfb0c4fcd7daff8 Mon Sep 17 00:00:00 2001 From: oakes Date: Sat, 10 May 2014 12:58:32 -0400 Subject: [PATCH] Move ui listeners to bottom of file --- src/play_clj/ui.clj | 84 +++++++++++++++++++++++---------------------- 1 file changed, 43 insertions(+), 41 deletions(-) diff --git a/src/play_clj/ui.clj b/src/play_clj/ui.clj index 3037f95..3f4717d 100644 --- a/src/play_clj/ui.clj +++ b/src/play_clj/ui.clj @@ -59,47 +59,6 @@ based on the file at `path`. [k] `~(u/gdx-field :scenes :scene2d :utils :Align (u/key->camel k))) -(defmacro actor-gesture-listener! - "Calls a single method on the [ActorGestureListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ActorGestureListener.html) -in the `screen`." - [screen k & options] - `(let [listeners# (u/get-obj ~screen :ui-listeners) - ^ActorGestureListener object# - (u/get-obj listeners# :actor-gesture-listener)] - (u/call! object# ~k ~@options))) - -(defmacro change-listener! - "Calls a single method on the [ChangeListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ChangeListener.html) -in the `screen`." - [screen k & options] - `(let [listeners# (u/get-obj ~screen :ui-listeners) - ^ChangeListener object# (u/get-obj listeners# :change-listener)] - (u/call! object# ~k ~@options))) - -(defmacro click-listener! - "Calls a single method on the [ClickListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ClickListener.html) -in the `screen`." - [screen k & options] - `(let [listeners# (u/get-obj ~screen :ui-listeners) - ^ClickListener object# (u/get-obj listeners# :click-listener)] - (u/call! object# ~k ~@options))) - -(defmacro drag-listener! - "Calls a single method on the [DragListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/DragListener.html) -in the `screen`." - [screen k & options] - `(let [listeners# (u/get-obj ~screen :ui-listeners) - ^DragListener object# (u/get-obj listeners# :drag-listener)] - (u/call! object# ~k ~@options))) - -(defmacro focus-listener! - "Calls a single method on the [FocusListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/FocusListener.html) -in the `screen`." - [screen k & options] - `(let [listeners# (u/get-obj ~screen :ui-listeners) - ^FocusListener object# (u/get-obj listeners# :focus-listener)] - (u/call! object# ~k ~@options))) - (defn cell! "Calls a single method on a [Cell](https://github.com/libgdx/libgdx/blob/master/gdx/src/com/esotericsoftware/tablelayout/Cell.java)." [^Cell cell & args] @@ -687,3 +646,46 @@ in the `screen`." "Returns true if `entity` is a `window`." [entity] (isa? (type (u/get-obj entity :object)) Window)) + +; listeners + +(defmacro actor-gesture-listener! + "Calls a single method on the [ActorGestureListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ActorGestureListener.html) +in the `screen`." + [screen k & options] + `(let [listeners# (u/get-obj ~screen :ui-listeners) + ^ActorGestureListener object# + (u/get-obj listeners# :actor-gesture-listener)] + (u/call! object# ~k ~@options))) + +(defmacro change-listener! + "Calls a single method on the [ChangeListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ChangeListener.html) +in the `screen`." + [screen k & options] + `(let [listeners# (u/get-obj ~screen :ui-listeners) + ^ChangeListener object# (u/get-obj listeners# :change-listener)] + (u/call! object# ~k ~@options))) + +(defmacro click-listener! + "Calls a single method on the [ClickListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/ClickListener.html) +in the `screen`." + [screen k & options] + `(let [listeners# (u/get-obj ~screen :ui-listeners) + ^ClickListener object# (u/get-obj listeners# :click-listener)] + (u/call! object# ~k ~@options))) + +(defmacro drag-listener! + "Calls a single method on the [DragListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/DragListener.html) +in the `screen`." + [screen k & options] + `(let [listeners# (u/get-obj ~screen :ui-listeners) + ^DragListener object# (u/get-obj listeners# :drag-listener)] + (u/call! object# ~k ~@options))) + +(defmacro focus-listener! + "Calls a single method on the [FocusListener](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/utils/FocusListener.html) +in the `screen`." + [screen k & options] + `(let [listeners# (u/get-obj ~screen :ui-listeners) + ^FocusListener object# (u/get-obj listeners# :focus-listener)] + (u/call! object# ~k ~@options)))