Clojure/Seesaw busy cursor example

busy-cursor.clj

(ns busy-cursor.core
  (:use seesaw.core))

(defn long-running-task
  []
  (Thread/sleep 5000)
  "The result")

(defn run-task-with-busy-cursor
  [c]
  (config! c :cursor :wait)
  (future
    (let [result (long-running-task)]
      (invoke-later
        (text! (select c [:#result]) result)
        (config! c :cursor :default)))))

(defn -main
  [& args]
  (invoke-later
    (let [c (border-panel :north (label :id :result :text "Nothing Yet")
                          :center (button :id :click-me :text "Click Me"))
          f (frame :title "Busy busy busy" :content c :on-close :exit)]
      (listen (select f [:#click-me])
              :action
              (fn [_]
                (run-task-with-busy-cursor c)))
      (pack! f)
      (show! f))))