1 import "JavaBuiltin" as Java
3 importJava "org.simantics.g3d.scenegraph.base.ParentNode" where
7 addNode' :: ParentNode -> String -> Node -> <Proc> ()
9 removeNode' :: ParentNode -> String -> Node -> <Proc> Boolean
10 @JavaName deattachNode
11 deattachNode' :: ParentNode -> String -> Node -> <Proc> Boolean
14 removeNodes' :: ParentNode -> String -> <Proc>()
16 getNodes' :: ParentNode -> String -> <Proc> [Node]
18 getAllNodes' :: ParentNode -> <Proc> [Node]
20 remove' :: ParentNode -> <Proc> ()
22 class ParentNodeClass a where
23 asParentNode :: a -> ParentNode
24 asParentNode = Java.unsafeCoerce
26 addNode :: a -> String -> Node -> <Proc> ()
27 addNode c = addNode' (asParentNode c)
28 removeNode :: a -> String -> Node -> <Proc> Boolean
29 removeNode c = removeNode' (asParentNode c)
30 deattachNode :: a -> String -> Node -> <Proc> Boolean
31 deattachNode c = deattachNode' (asParentNode c)
32 removeNodes :: a -> String -> <Proc> ()
33 removeNodes c = removeNodes' (asParentNode c)
34 getNodes :: a -> String -> <Proc> [Node]
35 getNodes c = getNodes' (asParentNode c)
36 remove :: a -> <Proc> ()
37 remove c = remove' (asParentNode c)
39 instance NodeClass ParentNode
40 instance ParentNodeClass ParentNode where
43 importJava "org.simantics.g3d.scenegraph.base.INode" where
47 getParent' :: Node -> <Proc> Maybe ParentNode
49 getRootNode' :: Node -> <Proc> Maybe ParentNode
51 deattach' :: Node -> <Proc> ()
53 class NodeClass a where
55 asNode = Java.unsafeCoerce
57 getParent :: a -> <Proc> Maybe ParentNode
58 getParent c = getParent' (asNode c)
59 getRootNode :: a -> <Proc> Maybe ParentNode
60 getRootNode c = getRootNode' (asNode c)
61 deattach :: a -> <Proc> ()
62 deattach c = deattach' (asNode c)
64 instance NodeClass Node where