changeset 57:c598c55c89e7

Avoid reflection.
author Mikhail Kryshen <mikhail@kryshen.net>
date Fri, 20 Aug 2010 03:19:37 +0400
parents 87400ec6d433
children 64b67aa224f4
files src/net/kryshen/indyvon/core.clj
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/net/kryshen/indyvon/core.clj	Fri Aug 20 03:08:02 2010 +0400
+++ b/src/net/kryshen/indyvon/core.clj	Fri Aug 20 03:19:37 2010 +0400
@@ -273,7 +273,7 @@
 (defn- under-cursor
   "Returns a vector of child nodes under cursor."
   [x y tree node]
-  (some #(if (.contains (:clip %) x y)
+  (some #(if (.contains ^Shape (:clip %) x y)
            (conj (vec (under-cursor x y tree %)) %))
         (get tree node)))