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))))
(defn- graph-node-has-children? [node]
{:pre [(s/valid? ::node node)]
:post [boolean?]}
;{:pre [(s/valid? ::node node)]
; :post [boolean?]}
(or (has-method? node "getChildren")
(has-method? node "getGraphic")
(has-method? node "getMenus")