2

试图在跷跷板上制作菜单。我不知道“项目”新动作开放动作等应该在下面的代码中主要是什么。我认为它可能是菜单项文本，或者可能是函数回调。最终，如果有一个示例来说明如何控制菜单项文本，然后能够在我的代码中提供回调，那就太好了。不知道该怎么做。

修改：此代码现在可以正常工作。

(ns hello-seesaw.core
  (:gen-class)
  (:use seesaw.core))

(defn handler
  [event]
  (alert event
    (str "<html>Hello from <b>Clojure</b>. Button "
      (.getActionCommand event) " clicked.")))

(defn menu-handler
  [event]
  ()
)

(def new-action   (menu-item :text "New"   :listen [:action menu-handler]))
(def open-action  (menu-item :text "Open"  :listen [:action menu-handler]))
(def save-action  (menu-item :text "Save"  :listen [:action menu-handler]))
(def exit-action  (menu-item :text "Exit"  :listen [:action menu-handler]))
(def copy-action  (menu-item :text "Copy"  :listen [:action menu-handler]))
(def paste-action (menu-item :text "Paste" :listen [:action menu-handler]))


(defn -main [& args]
  (invoke-later
        (->
                (frame :title "Hello Swing" :on-close :exit
                :content (button :text "Click Me" :listen [:action handler])
                :menubar
                        (menubar :items
                        [
                                (menu :text "File" :items [new-action open-action save-action exit-action])
                                (menu :text "Edit" :items [copy-action paste-action])
                        ]
                        )
                )
        pack!
        show!))
)
4

1 回答 1

3

每个*-action项目都指一种菜单项（menu-item、checkbox-menu-item或radio-menu-item）。其中每一个都具有与相同的选项，button因此您可以像在第一帧中配置按钮一样配置每个选项。

您对新按钮的定义可能如下所示：

(def new-action (menu-item :text "New" :listen [:action handler]))

顺便说一句，如果您尝试在定义两个帧的情况下运行程序，您将得到一个IllegalArgumentException（因为您将第一个帧调用的结果传递给第二个）。一个简单的解决方案是将两者结合起来。

(frame :title "Hello Swing" :on-close :exit
           :content (button :text "Click Me" :listen [:action handler])
           :menubar
           (menubar :items
                    [(menu :text "File" :items [new-action open-action save-action exit-action])
                     (menu :text "Edit" :items [copy-action paste-action])]))
于 2014-02-09T03:51:47.443 回答