Seesaw File Chooser

gistfile1.clj

(use 'seesaw.core)
(use 'seesaw.chooser)

(def open-action
  (action :name "Open" :key "menu O"
   :handler 
    (fn [e]
      (if-let [f (choose-file)]
        (text! (select (to-root e) [:#my-text]) f)))))

(->
  (frame 
     :size [640 :by 480]
     :menubar (menubar :items [(menu :text "File" :items [open-action])])
     :content (scrollable (text :id :my-text :multi-line? true)))
  show!)