miglayout: add support for retrieving components by id

1 files changed, 10 insertions, 9 deletions

diff --git a/src/clojure/contrib/miglayout/test.clj b/src/clojure/contrib/miglayout/test.clj
index abdc89c4..dec12ba8 100644
--- a/src/clojure/contrib/miglayout/test.clj
+++ b/src/clojure/contrib/miglayout/test.clj
@@ -22,10 +22,12 @@
 
 (defn run-test
   [index]
-  (doto (JFrame. (format "MigLayout Test %d" index))
-    (.add ((tests index) (JPanel.)))
-    (.pack)
-    (.setVisible true)))
+  (let [panel ((tests index) (JPanel.))]
+    (println index (components panel))
+    (doto (JFrame. (format "MigLayout Test %d" index))
+      (.add panel)
+      (.pack)
+      (.setVisible true))))
 
 (defn label
   "Returns a swing label"
@@ -134,11 +136,10 @@
   (fn test4
     [panel]
     (miglayout panel
-      (label "First Name")
-      (text-field)
+      (label "First Name") 
+      (text-field)        {:id :firstname}
       (label "Surname")   [:gap :unrelated]
-      (text-field)        :wrap
+      (text-field)        {:id :surname} :wrap
       (label "Address")
-      (text-field)        :span :grow))
-
+      (text-field)        {:id :address} :span :grow))
 ])