Almost-working find-by-class
This commit is contained in:
parent
49202d1d45
commit
465ef8c3d3
1 changed files with 2 additions and 2 deletions
|
@ -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")
|
||||||
|
|
Loading…
Reference in a new issue