Added <Proc> side effects

[simantics/3d.git] / org.simantics.g3d / scl / G3D / Scenegraph / Node.scl

diff --git a/org.simantics.g3d/scl/G3D/Scenegraph/Node.scl b/org.simantics.g3d/scl/G3D/Scenegraph/Node.scl
index b21bf4a2848d3073c0d428c04fefb8471baba37e..b232dde1883060eab52ae14fae5ae47c2e515209 100644 (file)
--- a/org.simantics.g3d/scl/G3D/Scenegraph/Node.scl
+++ b/org.simantics.g3d/scl/G3D/Scenegraph/Node.scl
@@ -4,36 +4,36 @@ importJava "org.simantics.g3d.scenegraph.base.ParentNode" where
   data ParentNode
   
   @JavaName addNode
-  addNode' :: ParentNode -> String -> Node -> ()
+  addNode' :: ParentNode -> String -> Node -> <Proc> ()
   @JavaName removeNode
-  removeNode' :: ParentNode -> String -> Node -> Boolean
+  removeNode' :: ParentNode -> String -> Node -> <Proc> Boolean
   @JavaName deattachNode
-  deattachNode' :: ParentNode -> String -> Node -> Boolean
+  deattachNode' :: ParentNode -> String -> Node -> <Proc> Boolean
   
   @JavaName removeNodes
-  removeNodes' :: ParentNode -> String ->()
+  removeNodes' :: ParentNode -> String -> <Proc>()
   @JavaName getNodes
-  getNodes' :: ParentNode -> String -> [Node]
+  getNodes' :: ParentNode -> String -> <Proc> [Node]
   @JavaName getNodes
-  getAllNodes' :: ParentNode -> [Node]
+  getAllNodes' :: ParentNode -> <Proc> [Node]
   @JavaName remove
-  remove' :: ParentNode -> ()
+  remove' :: ParentNode -> <Proc> ()
 
 class ParentNodeClass a where
   asParentNode :: a -> ParentNode
   asParentNode = Java.unsafeCoerce
 
-  addNode :: a -> String -> Node -> ()
+  addNode :: a -> String -> Node -> <Proc> ()
   addNode c = addNode' (asParentNode c)
-  removeNode :: a -> String -> Node -> Boolean
+  removeNode :: a -> String -> Node -> <Proc> Boolean
   removeNode c = removeNode' (asParentNode c)
-  deattachNode :: a -> String -> Node -> Boolean
+  deattachNode :: a -> String -> Node -> <Proc> Boolean
   deattachNode c = deattachNode' (asParentNode c)
-  removeNodes :: a -> String ->()
+  removeNodes :: a -> String -> <Proc> ()
   removeNodes c = removeNodes' (asParentNode c)
-  getNodes :: a -> String -> [Node]
+  getNodes :: a -> String -> <Proc> [Node]
   getNodes c = getNodes' (asParentNode c)
-  remove :: a -> ()
+  remove :: a -> <Proc> ()
   remove c = remove' (asParentNode c)
 
 instance NodeClass ParentNode
@@ -44,21 +44,21 @@ importJava "org.simantics.g3d.scenegraph.base.INode" where
   data Node
   
   @JavaName getParent
-  getParent' :: Node -> Maybe ParentNode
+  getParent' :: Node -> <Proc> Maybe ParentNode
   @JavaName getRootNode
-  getRootNode' :: Node -> Maybe ParentNode
+  getRootNode' :: Node -> <Proc> Maybe ParentNode
   @JavaName deattach
-  deattach' :: Node -> ()
+  deattach' :: Node -> <Proc> ()
 
 class NodeClass a where
   asNode :: a -> Node
   asNode = Java.unsafeCoerce
 
-  getParent :: a -> Maybe ParentNode
+  getParent :: a -> <Proc> Maybe ParentNode
   getParent c = getParent' (asNode c)
-  getRootNode :: a -> Maybe ParentNode
+  getRootNode :: a -> <Proc> Maybe ParentNode
   getRootNode c = getRootNode' (asNode c)
-  deattach :: a -> ()
+  deattach :: a -> <Proc> ()
   deattach c = deattach' (asNode c)
 
 instance NodeClass Node where