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))))
|
||||
|
||||
(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")
|
||||
|
|
Loading…
Reference in a new issue