Menu item example in Clojure seesaw

StackOverflow https://stackoverflow.com/questions/21654329

  •  08-10-2022
  •  | 
  •  

Вопрос

Trying to make menus in seesaw. I can't figure out what the "items" new-action open-action etc is supposed to be in the code below inside main. I thought it could be the menu item texts, or perhaps function callbacks. Ultimately it would be nice to have an example that shows how to control the menu item text, and then to be able to give the callback in my code. Don't know how to do this.

MODIFIED: This code now works correctly.

(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!))
)
Это было полезно?

Решение

Each of the *-action items refer to a kind of menu item (menu-item, checkbox-menu-item, or radio-menu-item). Each of these has the same options as button, so you configure each one like you do the button in your first frame.

Your definition for the new button might look like:

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

As an aside, if you try to run the program as written with both frames defined, you will get an IllegalArgumentException (because you are passing the result of the first frame call to the second). An easy solution is to combine the two.

(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])]))
Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top