   :doc "This namespace provides a lattice editor and a convenience function to draw lattices.")
 
 
-;;; lattice editor -- a lot TODO
-
-(declare make-button, make-label, make-labeled-text-field, make-padding, make-separator)
+;;; Lattice Editor
+
+(declare make-button, make-label, make-labeled-text-field,
+	 make-padding, make-separator, make-combo-box)
+
 
 ;; editor features
 
 (defn- change-parameters
   "Installs parameter list which influences lattice drawing."
   [frame scn buttons]
+  ;; node radius
   (let [#^JTextField node-radius (make-labeled-text-field buttons "radius" (str *default-node-radius*))]
     (add-action-listener node-radius (fn [evt]
 				       (let [new-radius (Double/parseDouble (.getText node-radius))]

	#^JButton button          (make-button buttons "Force"),

	get-force-parameters      (fn []
				    (with-swing-error-msg frame "Invalid Parameter given."
				     (let [r (Double/parseDouble (.getText rep-field)),
					   a (Double/parseDouble (.getText attr-field)),
					   g (Double/parseDouble (.getText grav-field)),
					   i (Integer/parseInt (.getText iter-field))]
				       [r a g i])))]
    (add-action-listener button (fn [evt]
				  (with-swing-error-msg frame "An Error occured."
				   (let [[r a g i] (get-force-parameters)]
				     (improve-with-force scn i r a g)))))))

;; zoom-move


	clojure.contrib.swing-utils)
  (:import [javax.swing JFrame JPanel JButton JTextField JLabel
	                JOptionPane JSeparator SwingConstants
	                BoxLayout Box JScrollBar JComboBox]
	   [java.awt Canvas Color Dimension BorderLayout GridLayout Component Graphics]
	   [java.awt.event ActionListener]))

