Almost-working find-by-class

This commit is contained in:
zilti 2018-10-26 15:21:26 +00:00
parent 49202d1d45
commit 465ef8c3d3

View file

@ -147,8 +147,8 @@
(not (empty? (clojure.lang.Reflector/getMethods (class node) 0 method false)))) (not (empty? (clojure.lang.Reflector/getMethods (class node) 0 method false))))
(defn- graph-node-has-children? [node] (defn- graph-node-has-children? [node]
{:pre [(s/valid? ::node node)] ;{:pre [(s/valid? ::node node)]
:post [boolean?]} ; :post [boolean?]}
(or (has-method? node "getChildren") (or (has-method? node "getChildren")
(has-method? node "getGraphic") (has-method? node "getGraphic")
(has-method? node "getMenus") (has-method? node "getMenus")