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

    :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))

(def server-address  (text ""))


(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]))

(defn upload-results []
  ())

(def upload-button (button :text "Upload"
                     :listen [:action upload-results]))
 
(def about-window
  (frame
