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”。 然后事件附加到按钮,以便每当该按钮被点击时,它将显示一个警告对话框。
当上面的代码运行时,你会得到以下窗口。
当您单击按钮时,您将获得以下对话框。
以上内容是否对您有帮助:
更多建议: