Make add! nicer to use directly

2014-01-12 16:58:34 -05:00
parent f6afda794b
commit bbf85396ad
1 changed files with 2 additions and 4 deletions
--- a/src/play_clj/ui.clj
+++ b/src/play_clj/ui.clj
@@ -104,16 +104,14 @@
      nil)))

 (defn add!
-  [group children]
+  [group & children]
  (doseq [child children]
    (add-to-group! [group child]))
  group)

 (defn ^:private create-group
  [^WidgetGroup group children]
-  (-> group
-      u/create-entity
-      (add! children)))
+  (apply add! (u/create-entity group) children))

 ; widgets