   :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))]

			      ;; TODO: Show current zoom factor
			      (.setText zoom-info "??"))))))

;;

(defn- export-as-file
  "Installs a file exporter."
  [frame scn buttons]
  nil)

;; technical helpers

(defmacro install-changers
  "Installs given methods to scene with buttons."

			 (make-padding buttons))
		       methods))))


;;; Constructor

(defn make-lattice-editor
  "Creates a lattice editor for lattice with initial layout."
