Source
clojure/contrib/miglayout/internal.clj:94
top
(defn add-components
"Adds components with constraints to a container"
[^JComponent container components]
(loop [[[^Component component constraint] & components] components
id-map nil]
(if component
(let [cc (parse-component-constraint constraint)]
(.add container component cc)
(recur
components
(if-let [id (.getId cc)]
(assoc id-map (keyword id) component)
id-map)))
(doto container (.putClientProperty ::components id-map)))))
Comments top
No comments for add-components. Log in to add a comment.