 
 (defvar --- {}
   "Separator for menu entries used in add-menus.")
+
 (defvar === (Box/createHorizontalGlue)
   "Separator between menus used in add-menus.")
 

    (.setDefaultCloseOperation frame JFrame/DISPOSE_ON_CLOSE)
    frame))

;;; Swing handmade concurrency

(defn invoke-later

  "Defines a multi function method that is surrounded by do-swing-return"
  [name dispatch-val params & body]
  `(defmethod ~name ~dispatch-val ~params (with-swing-threads* ~@body)))


;;; type checking
