Added <Proc> side effects

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

diff --git a/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl b/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl
index 658eb9c5f4e7e7d60a3ef91ebbb2cc5ff3f1271b..6c82813038b3664f2c9d03f3c9980f2d13803348 100644 (file)
--- a/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl
+++ b/org.simantics.g3d/scl/G3D/Scenegraph/G3DNode.scl
@@ -9,47 +9,47 @@ importJava "org.simantics.g3d.scenegraph.IG3DNode" where
   data G3DNode
   
   @JavaName getOrientation
-  getOrientation' :: G3DNode -> Quat4d
+  getOrientation' :: G3DNode -> <Proc> Quat4d
   @JavaName getPosition
-  getPosition' :: G3DNode -> Vector3d
+  getPosition' :: G3DNode -> <Proc> Vector3d
   
   @JavaName setOrientation
-  setOrientation' :: G3DNode -> Quat4d -> ()
+  setOrientation' :: G3DNode -> Quat4d -> <Proc> ()
   @JavaName setPosition
-  setPosition' :: G3DNode -> Vector3d -> ()
+  setPosition' :: G3DNode -> Vector3d -> <Proc> ()
   
   @JavaName getWorldOrientation
-  getWorldOrientation' :: G3DNode -> Quat4d
+  getWorldOrientation' :: G3DNode -> <Proc> Quat4d
   @JavaName getWorldPosition
-  getWorldPosition' :: G3DNode -> Vector3d
+  getWorldPosition' :: G3DNode -> <Proc> Vector3d
   
   @JavaName setWorldOrientation
-  setWorldOrientation' :: G3DNode -> Quat4d -> ()
+  setWorldOrientation' :: G3DNode -> Quat4d -> <Proc> ()
   @JavaName setWorldPosition
-  setWorldPosition' :: G3DNode -> Vector3d -> ()
+  setWorldPosition' :: G3DNode -> Vector3d -> <Proc> ()
 
 class G3DNodeClass a where
   asG3DNode :: a -> G3DNode
   asG3DNode = Java.unsafeCoerce
 
-  getOrientation :: a -> Quat4d
+  getOrientation :: a -> <Proc> Quat4d
   getOrientation c = getOrientation' (asG3DNode c)
-  getPosition :: a -> Vector3d
+  getPosition :: a -> <Proc> Vector3d
   getPosition c = getPosition' (asG3DNode c)
   
-  setOrientation :: a -> Quat4d -> ()
+  setOrientation :: a -> Quat4d -> <Proc> ()
   setOrientation c = setOrientation' (asG3DNode c)
-  setPosition :: a -> Vector3d -> ()
+  setPosition :: a -> Vector3d -> <Proc> ()
   setPosition c = setPosition' (asG3DNode c)
   
-  getWorldOrientation :: a -> Quat4d
+  getWorldOrientation :: a -> <Proc> Quat4d
   getWorldOrientation c = getWorldOrientation' (asG3DNode c)
-  getWorldPosition :: a -> Vector3d
+  getWorldPosition :: a -> <Proc> Vector3d
   getWorldPosition c = getWorldPosition' (asG3DNode c)
   
-  setWorldOrientation :: a -> Quat4d -> ()
+  setWorldOrientation :: a -> Quat4d -> <Proc> ()
   setWorldOrientation c = setWorldOrientation' (asG3DNode c)
-  setWorldPosition :: a -> Vector3d -> ()
+  setWorldPosition :: a -> Vector3d -> <Proc> ()
   setWorldPosition c = setWorldPosition' (asG3DNode c)
 
 instance NodeClass G3DNode