 (def server-address  (text ""))
 
 
-(defn select-file []
+(defn select-file [event]
   (text! database-location 
          (choose-file :success-fn (fn [fc file] (.getAbsolutePath file)))))
 
 
 (def database-button (button :text "..."
-                       :listen [:action #(select-file)]))
+                       :listen [:action select-file]))
 
 (defn upload-results []
   ())
 
 (def upload-button (button :text "Upload"
-                     :listen [:action #(upload-results)]))
+                     :listen [:action upload-results]))
  
 (def about-window
   (frame

    :title "About MTG pairings"
    :size [100 :by 100]
    :content (border-panel 
               :north "This is the WER database sniffer and result uploader"
               :south (button :text "Close"))))
  

(defn about-handler [event]
  (-> (about-window)
    pack!
    show!))

(defn exit-handler [event]
  (System/exit 0))

 (invoke-later
   (-> (main-window)
     pack!
     show!)))
