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

Add select-box

Browse Source
This commit is contained in:
oakes
2014-01-12 17:16:49 -05:00
parent bbf85396ad
commit 26ce368256
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/play_clj/ui.clj
View File

@@ -5,8 +5,8 @@
[com.badlogic.gdx.graphics.g2d BitmapFont TextureRegion]
[com.badlogic.gdx.scenes.scene2d Actor Stage]
[com.badlogic.gdx.scenes.scene2d.ui ButtonGroup CheckBox Dialog
HorizontalGroup Image ImageButton ImageTextButton Label Skin Slider
Table TextButton TextField VerticalGroup WidgetGroup]
HorizontalGroup Image ImageButton ImageTextButton Label SelectBox
Skin Slider Table TextButton TextField VerticalGroup WidgetGroup]
[com.badlogic.gdx.scenes.scene2d.utils ActorGestureListener Align
ChangeListener ClickListener DragListener FocusListener
NinePatchDrawable SpriteDrawable TextureRegionDrawable
@@ -223,6 +223,20 @@
[entity k & options]
`(u/call! ^Label (:object ~entity) ~k ~@options))
(defn select-box*
[items arg]
(u/create-entity (SelectBox. (into-array items) arg)))
(defmacro select-box
[items arg & options]
`(let [entity# (select-box* ~items ~arg)]
(u/calls! ^SelectBox (:object entity#) ~@options)
entity#))
(defmacro select-box!
[entity k & options]
`(u/call! ^SelectBox (:object ~entity) ~k ~@options))
(defn slider*
[{:keys [min max step vertical?]
:or {min 0 max 10 step 1 vertical? false}}