aboutsummaryrefslogtreecommitdiff
path: root/src/clojure/contrib/miglayout/miglayout.clj
diff options
context:
space:
mode:
Diffstat (limited to 'src/clojure/contrib/miglayout/miglayout.clj')
-rw-r--r--src/clojure/contrib/miglayout/miglayout.clj63
1 files changed, 0 insertions, 63 deletions
diff --git a/src/clojure/contrib/miglayout/miglayout.clj b/src/clojure/contrib/miglayout/miglayout.clj
deleted file mode 100644
index 79a111b1..00000000
--- a/src/clojure/contrib/miglayout/miglayout.clj
+++ /dev/null
@@ -1,63 +0,0 @@
-;; Copyright (c) Stephen C. Gilardi. All rights reserved. The use and
-;; distribution terms for this software are covered by the Common Public
-;; License 1.0 (http://opensource.org/licenses/cpl.php) which can be found
-;; in the file CPL.TXT at the root of this distribution. By using this
-;; software in any fashion, you are agreeing to be bound by the terms of
-;; this license. You must not remove this notice, or any other, from this
-;; software.
-;;
-;; clojure.contrib.miglayout
-;;
-;; Clojure support for the MiGLayout layout manager
-;; http://www.miglayout.com/
-;;
-;; Example:
-;;
-;; (require '[clojure.contrib.miglayout.test :as mlt])
-;; (doseq i (range 3) (mlt/run-test i))
-;;
-;; scgilardi (gmail)
-;; Created 5 October 2008
-
-(ns clojure.contrib.miglayout
- (:import (java.awt Container Component)
- (net.miginfocom.swing MigLayout))
- (:use clojure.contrib.miglayout.internal))
-
-(defn miglayout
- "Adds java.awt.Components to a java.awt.Container with constraints
- formatted for the MiGLayout layout manager.
-
- Arguments: container [item constraint*]*
-
- - container: the container for the specified components, its layout
- manager will be set to a new instance of MigLayout
-
- - an inline series of items and constraints--each item may be followed
- by zero or more constraints.
-
- Item:
-
- - An item is either a Component or one of the keywords :layout
- :column or :row. Constraints for a keyword item affect the entire
- layout.
-
- Constraint: string, keyword, vector, or map
-
- - A string specifies one or more constraints each with zero or more
- arguments.
- - A keyword specifies a single constraint without arguments
- - A vector specifies a single constraint with one or more arguments
- - 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)))
- (doseq [#^Component component constraints] components
- (.add container component constraints))
- container))