   "Returns an entity based on [SelectBox](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/ui/SelectBox.html).
 
     (select-box (style :select-box font color back scroll-style list-style)
+                :set-items (into-array [\"Item 1\" \"Item 2\" \"Item 3\"]))
+    (select-box (style :select-box (bitmap-font) (color :white) nil
+                       (style :scroll-pane nil nil nil nil nil)
+                       (style :list (bitmap-font) (color :white) (color :black) nil))
                 :set-items (into-array [\"Item 1\" \"Item 2\" \"Item 3\"]))
     (select-box (skin \"uiskin.json\")
                 :set-items (into-array [\"Item 1\" \"Item 2\" \"Item 3\"]))"

  "Returns an entity based on [ImageButton](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/ui/ImageButton.html).

    (image-button (style :image-button up dn check img-up img-dn img-check))
    (image-button (skin \"uiskin.json\"))"
  [arg & options]
  `(let [entity# (image-button* ~arg)]

  "Returns an entity based on [Slider](http://libgdx.badlogicgames.com/nightlies/docs/api/com/badlogic/gdx/scenes/scene2d/ui/Slider.html).

    (slider {:min 0 :max 10 :step 1 :vertical? false} (style :slider back knob))
    (slider {:min 0 :max 10 :step 1 :vertical? false} (style :slider nil nil))
    (slider {:min 0 :max 10 :step 1 :vertical? false} (skin \"uiskin.json\"))"
  [attrs arg & options]
  `(let [entity# (slider* ~attrs ~arg)]
