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

Fix bug preventing some interop calls from working

Browse Source
This commit is contained in:
oakes
2014-01-08 03:53:12 -05:00
parent b693578c83
commit a534d49a90
3 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
src/play_clj/core_interop.clj
View File

@@ -26,3 +26,30 @@
; ui
(defmacro check-box!
[entity k & options]
`(utils/call! ^Checkbox (:object ~entity) ~k ~@options))
(defmacro image-button!
[entity k & options]
`(utils/call! ^ImageButton (:object ~entity) ~k ~@options))
(defmacro image-text-button!
[entity k & options]
`(utils/call! ^ImageTextButton (:object ~entity) ~k ~@options))
(defmacro label!
[entity k & options]
`(utils/call! ^Label (:object ~entity) ~k ~@options))
(defmacro text-button!
[entity k & options]
`(utils/call! ^TextButton (:object ~entity) ~k ~@options))
(defmacro text-field!
[entity k & options]
`(utils/call! ^TextField (:object ~entity) ~k ~@options))
(defmacro dialog!
[entity k & options]
`(utils/call! ^Dialog (:object ~entity) ~k ~@options))