notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add key-pressed?

Browse Source
This commit is contained in:
oakes
2014-04-02 00:19:52 -04:00
parent 0b0e1edffd
commit ba2f32d986
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doclet/resources/classes.edn
View File

@@ -100,7 +100,7 @@
"ImageTextButton.ImageTextButtonStyle" {"style :image-text-button" :constructors} "ImageTextButton.ImageTextButtonStyle" {"style :image-text-button" :constructors}
"Input" {"input!" :methods} "Input" {"input!" :methods}
"Input.Keys" {"key-code" :static-fields "Input.Keys" {"key-code" :static-fields
"pressed?" :static-fields} "key-pressed?" :static-fields}
"Interpolation" {"interpolation" :static-classes} "Interpolation" {"interpolation" :static-classes}
"Intersector" {"intersector!" :static-methods} "Intersector" {"intersector!" :static-methods}
"IntAttribute" {"attribute :int" :constructors "IntAttribute" {"attribute :int" :constructors

10
src/play_clj/core_basics.clj
View File

@@ -103,18 +103,18 @@
[k] [k]
`~(u/gdx-field "Input$Keys" (u/key->upper k))) `~(u/gdx-field "Input$Keys" (u/key->upper k)))
(defmacro pressed? (defmacro key-pressed?
"Returns a boolean indicating if the key cooresponding to `k` is being pressed. "Returns a boolean indicating if the key cooresponding to `k` is being pressed.
(pressed? :a) (key-pressed? :a)
(pressed? :page-down)" (key-pressed? :page-down)"
[k] [k]
`(input! :is-key-pressed (key-code ~k))) `(input! :is-key-pressed (key-code ~k)))
(defmacro is-pressed? (defmacro is-pressed?
"Deprecated. Please use `pressed?` instead." "Deprecated. Please use `key-pressed?` instead."
[k] [k]
`(pressed? ~k)) `(key-pressed? ~k))
(defn ^:private add-input! (defn ^:private add-input!
[^InputProcessor p] [^InputProcessor p]