               (nil? v)
               (.setValue prop-desc bean nil)
 
-              ;; TODO String[]
+              (string-array? v)
+              (.setValue prop-desc bean (if (> (.-length v) 0) (aget v 0) nil))
 
               :else
               (.setValue prop-desc bean v))))))))

    (^void set [this ^String name ^String key value]
      (throw (UnsupportedOperationException. "set")))))

(defn set-map-property [bean k v])
(defn set-simple-property [bean k v]
  (if (instance? Map bean)
    (set-map-property bean k v)

      (getDynaProperties [this]
        (into-array DynaProperty (vals prop-map)))
      (getDynaProperty [this name]
        (get prop-map name))
      (getName [this]
        (.getName bean-class))
