Add input processors backwards

2014-10-12 18:33:59 -04:00
parent 00fced3317
commit e50bf569d1
1 changed files with 1 additions and 1 deletions
--- a/src/play_clj/core_basics.clj
+++ b/src/play_clj/core_basics.clj
@@ -140,7 +140,7 @@
 (defn ^:private add-input!
  [^InputProcessor p]
  (when-let [^InputMultiplexer multi (input! :get-input-processor)]
-    (.addProcessor multi p)))
+    (.setProcessors multi (doto (.getProcessors multi) (.insert 0 p)))))

 (defn ^:private remove-input!
  [^InputProcessor p]