Fix bug preventing some interop calls from working

src/play_clj/core_interop.clj

@@ -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))

src/play_clj/core_ui.clj

@@ -1,9 +1,5 @@
 (in-ns 'play-clj.core)
 
-(defmacro bitmap-font
-  [& options]
-  `(BitmapFont. ~@options))
-
 (defmacro style
   [type & options]
   `(~(symbol (str utils/gdx-package "scenes.scene2d.ui."

src/play_clj/utils.clj

@@ -48,7 +48,7 @@
 
 (defmacro call!
   [obj k & args]
-  `(~(key->method k) ~obj ~@(flatten args)))
+  `(~(key->method k) ~obj ~@args))
 
 (defn calls!*
   [[k v]]