Compare commits
3 Commits
master
...
upgrade/li
| Author | SHA1 | Date | |
|---|---|---|---|
| f747ef7214 | |||
| 1d361821f7 | |||
| 49def84f5a |
10
project.clj
10
project.clj
@@ -3,12 +3,12 @@
|
|||||||
:url "https://github.com/oakes/play-clj"
|
:url "https://github.com/oakes/play-clj"
|
||||||
:license {:name "Public Domain"
|
:license {:name "Public Domain"
|
||||||
:url "http://unlicense.org/UNLICENSE"}
|
:url "http://unlicense.org/UNLICENSE"}
|
||||||
:dependencies [[com.badlogicgames.gdx/gdx "1.9.5"]
|
:dependencies [[com.badlogicgames.gdx/gdx "1.14.0"]
|
||||||
[com.badlogicgames.gdx/gdx-box2d "1.9.5"]
|
[com.badlogicgames.gdx/gdx-box2d "1.14.0"]
|
||||||
[com.badlogicgames.gdx/gdx-bullet "1.9.5"]
|
[com.badlogicgames.gdx/gdx-bullet "1.14.0"]
|
||||||
[org.clojure/clojure "1.6.0"]]
|
[org.clojure/clojure "1.11.3"]]
|
||||||
:repositories [["sonatype"
|
:repositories [["sonatype"
|
||||||
"https://oss.sonatype.org/content/repositories/releases/"]]
|
"https://oss.sonatype.org/content/repositories/releases/"]]
|
||||||
:source-paths ["src"]
|
:source-paths ["src"]
|
||||||
:java-source-paths ["src-java"]
|
:java-source-paths ["src-java"]
|
||||||
:javac-options ["-target" "1.6" "-source" "1.6" "-Xlint:-options"])
|
:javac-options ["-target" "11" "-source" "11" "-Xlint:-options"])
|
||||||
|
|||||||
@@ -19,8 +19,8 @@
|
|||||||
(mouseMoved [this sx sy]
|
(mouseMoved [this sx sy]
|
||||||
(execute-fn! on-mouse-moved {:input-x sx :input-y sy})
|
(execute-fn! on-mouse-moved {:input-x sx :input-y sy})
|
||||||
false)
|
false)
|
||||||
(scrolled [this a]
|
(scrolled [this amountX amountY]
|
||||||
(execute-fn! on-scrolled {:amount a})
|
(execute-fn! on-scrolled {:amount-x amountX :amount-y amountY})
|
||||||
false)
|
false)
|
||||||
(touchDown [this sx sy p b]
|
(touchDown [this sx sy p b]
|
||||||
(execute-fn! on-touch-down {:input-x sx :input-y sy :pointer p :button b})
|
(execute-fn! on-touch-down {:input-x sx :input-y sy :pointer p :button b})
|
||||||
@@ -30,6 +30,8 @@
|
|||||||
false)
|
false)
|
||||||
(touchUp [this sx sy p b]
|
(touchUp [this sx sy p b]
|
||||||
(execute-fn! on-touch-up {:input-x sx :input-y sy :pointer p :button b})
|
(execute-fn! on-touch-up {:input-x sx :input-y sy :pointer p :button b})
|
||||||
|
false)
|
||||||
|
(touchCancelled [this sx sy p b]
|
||||||
false)))
|
false)))
|
||||||
|
|
||||||
(defmacro input-processor!
|
(defmacro input-processor!
|
||||||
|
|||||||
Reference in New Issue
Block a user