Create a menubar containing the given sequence of menu items. The menu
items are described by a map as is detailed in the docstring of the
add-menu-item function.
(defn make-menubar
"Create a menubar containing the given sequence of menu items. The menu
items are described by a map as is detailed in the docstring of the
add-menu-item function."
[menubar-items]
(let [menubar (JMenuBar.)]
(doseq [item menubar-items]
(add-menu-item menubar item))
menubar))
Comments top
No comments for make-menubar. Log in to add a comment.