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

Rename function

Browse Source
This commit is contained in:
oakes
2014-01-11 23:21:56 -05:00
parent ca20e341d8
commit 7ea91ad262
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/play_clj/ui.clj
View File

@@ -161,7 +161,7 @@
(add-to-group! [group children]) (add-to-group! [group children])
group) group)
(defn ^:private init-group (defn ^:private create-group
[^WidgetGroup group children] [^WidgetGroup group children]
(-> (doto group (-> (doto group
(.setFillParent true)) (.setFillParent true))
@@ -170,15 +170,15 @@
(defn horizontal* (defn horizontal*
[children] [children]
(init-group (HorizontalGroup.) children)) (create-group (HorizontalGroup.) children))
(defn vertical* (defn vertical*
[children] [children]
(init-group (VerticalGroup.) children)) (create-group (VerticalGroup.) children))
(defn table* (defn table*
[children] [children]
(init-group (Table.) children)) (create-group (Table.) children))
(defmacro horizontal (defmacro horizontal
[children & options] [children & options]