   [frame]
   (get-component frame #(= (class %) JToolBar)))
 
-(defvar *default-icon* (get-resource "images/default.jpg")
+(defvar *default-icon-image* (get-resource "images/default.jpg")
   "Default icon image used when no other image is found.")
 (defvar *icon-size* 17
   "Default icon size.")

    our-menus))

(defn remove-menus
  "Removes given menus from menu-bar of frame."
  [frame menus]
  (do-swing-and-wait
   (let [menu-bar (get-menubar frame),

      menu)))

(defn add-menus
  "Adds the menus (specified as hash-maps) to the frame in front of
  the first Box.Filler found in the menu-bar of frame. Returns the
  menus added."
  [frame menus]
  (let [our-menus (map #(hash-map->menu frame %) menus)]
    (do-swing-and-wait
