         :uniform-x (.uniformX cell)
         :uniform-y (.uniformY cell)
         :row (.row cell)
-        nil)
+        (throw (Exception. (str "The keyword " method " is not supported."))))
       (apply cell! cell rest-args))
     cell))
 

    (keyword? child)
    (case child
      :row (.row ^Table (:object parent))
      nil)))

(defn ^:private create-tree-node
  [child]


(defn cell!
  [^Cell cell & args]
  (let [method (first args)
        [[a1 a2 a3 a4] rest-args] (split-with #(not (keyword? %)) (rest args))]
    (when method
      (case method
        :width (.width cell ^double a1)
        :height (.height cell ^double a1)
        :size (.size cell ^double a1 ^double a2)
