diff options
Diffstat (limited to 'src/clojure/contrib/miglayout.clj')
| -rw-r--r-- | src/clojure/contrib/miglayout.clj | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/src/clojure/contrib/miglayout.clj b/src/clojure/contrib/miglayout.clj index 6499721e..13ed92ef 100644 --- a/src/clojure/contrib/miglayout.clj +++ b/src/clojure/contrib/miglayout.clj @@ -13,8 +13,8 @@ ;; ;; Example: ;; -;; (require '[clojure.contrib.miglayout.test :as mlt]) -;; (doseq i (range 3) (mlt/run-test i)) +;; (use '[clojure.contrib.miglayout.test :as mlt :only ()]) +;; (doseq [i (range 3)] (mlt/run-test i)) ;; ;; scgilardi (gmail) ;; Created 5 October 2008 @@ -51,13 +51,10 @@ - A map specifies one or more constraints as keys, each mapped to a single argument" [#^Container container & args] - (let [{:keys [keyword-items components]} - (apply parse-item-constraints args)] - (.setLayout container - (MigLayout. - (:layout keyword-items) - (:column keyword-items) - (:row keyword-items))) + (let [item-constraints (apply parse-item-constraints args) + {:keys [keywords components]} item-constraints + {:keys [layout column row]} keywords] + (.setLayout container (MigLayout. layout column row)) (doseq [[#^Component component constraints] components] (.add container component constraints)) container)) |