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

Add window

Browse Source
This commit is contained in:
oakes
2014-01-12 18:35:29 -05:00
parent a45e929740
commit 97a34fe0e8
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/play_clj/ui.clj
View File

@@ -7,7 +7,7 @@
[com.badlogic.gdx.scenes.scene2d.ui ButtonGroup CheckBox Dialog [com.badlogic.gdx.scenes.scene2d.ui ButtonGroup CheckBox Dialog
HorizontalGroup Image ImageButton ImageTextButton Label ScrollPane HorizontalGroup Image ImageButton ImageTextButton Label ScrollPane
SelectBox Skin Slider Table TextButton TextField VerticalGroup SelectBox Skin Slider Table TextButton TextField VerticalGroup
WidgetGroup] WidgetGroup Window]
[com.badlogic.gdx.scenes.scene2d.utils ActorGestureListener Align [com.badlogic.gdx.scenes.scene2d.utils ActorGestureListener Align
ChangeListener ClickListener DragListener FocusListener ChangeListener ClickListener DragListener FocusListener
NinePatchDrawable SpriteDrawable TextureRegionDrawable NinePatchDrawable SpriteDrawable TextureRegionDrawable
@@ -325,6 +325,20 @@
[entity k & options] [entity k & options]
`(u/call! ^VerticalGroup (:object ~entity) ~k ~@options)) `(u/call! ^VerticalGroup (:object ~entity) ~k ~@options))
(defn window*
[^String title arg children]
(create-group (Window. title arg) children))
(defmacro window
[title arg children & options]
`(let [entity# (window* ~title ~arg ~children)]
(u/calls! ^Window (:object entity#) ~@options)
entity#))
(defmacro window!
[entity k & options]
`(u/call! ^Window (:object ~entity) ~k ~@options))
; listeners ; listeners
(defn ^:private gesture-listener (defn ^:private gesture-listener