Clojure - botões de exibição da área de trabalho

Os botões podem ser exibidos com a ajuda da classe de botões. Um exemplo de como isso é usado é mostrado no programa a seguir.

(ns web.core
   (:gen-class)
   (:require [seesaw.core :as seesaw]))
(defn -main [& args]
   (defn display
      [content]
      (let [window (seesaw/frame :title "Example")]
         (-> window
            (seesaw/config! :content content)
            (seesaw/pack!)
            (seesaw/show!))))
   (def button
      (seesaw/button
         :text "Click Me"
         :listen [:action (fn [event](seesaw/alert "Click!" ))]))
         (display button))

No código acima, primeiro é criada uma variável de botão que é da classe de botão da biblioteca gangorra. Em seguida, o texto do botão é definido como “Click Me”. Em seguida, um evento é anexado ao botão para que, sempre que o botão for clicado, ele mostre uma caixa de diálogo de alerta.

Quando o código acima for executado, você obterá a seguinte janela.

Ao clicar no botão, você obterá a seguinte caixa de diálogo.