aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorscgilardi <scgilardi@gmail.com>2008-10-08 05:14:57 +0000
committerscgilardi <scgilardi@gmail.com>2008-10-08 05:14:57 +0000
commit591431e91a20c621c7e80cd4a40f4b7d2206a4c7 (patch)
tree1038ce3b32cbed5c9e538858358547e9afabd487 /src
parenta8474065a444f5b1306674df607be62d17a62b72 (diff)
miglayout.clj: a couple of type hints
Diffstat (limited to 'src')
-rw-r--r--src/clojure/contrib/miglayout/miglayout.clj7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/clojure/contrib/miglayout/miglayout.clj b/src/clojure/contrib/miglayout/miglayout.clj
index 9baf40c0..a411e32a 100644
--- a/src/clojure/contrib/miglayout/miglayout.clj
+++ b/src/clojure/contrib/miglayout/miglayout.clj
@@ -20,7 +20,8 @@
;; Created 5 October 2008
(ns clojure.contrib.miglayout
- (:import (net.miginfocom.swing MigLayout)))
+ (:import (java.awt Container Component)
+ (net.miginfocom.swing MigLayout)))
(defn miglayout
"Adds java.awt.Components to a java.awt.Container with constraints
@@ -48,7 +49,7 @@
- A vector specifies a single constraint with zero or more arguments
- A map specifiess one or more constraints as keys, each mapped to a
single argument"
- [container & args]
+ [#^Container container & args]
(let [[f & r :as a] args
[constraints args] (if (map? f) [f r] [nil a])
the-str #((if (keyword? %) name str) %)]
@@ -57,7 +58,7 @@
(str (:layout constraints))
(str (:column constraints))
(str (:row constraints))))
- (loop [component (first args)
+ (loop [#^Component component (first args)
constraints nil
[arg & args] (rest args)]
(cond (string? arg)