Clojure Desktop Displaying Buttons

2018-12-29 17:51 更新

按钮可以在按钮类的帮助下显示。 下面的程序显示了如何使用它的示例。

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

在上面的代码中,首先创建一个来自跷跷板库的按钮类的按钮变量。 接下来,按钮的文本被设置为“Click Me”。 然后事件附加到按钮,以便每当该按钮被点击时,它将显示一个警告对话框。

当上面的代码运行时,你会得到以下窗口。

Click Me

当您单击按钮时,您将获得以下对话框。

Click Button

以上内容是否对您有帮助:
在线笔记
App下载
App下载

扫描二维码

下载编程狮App

公众号
微信公众号

编程狮公众号