X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=org.simantics.plant3d%2Fscl%2FPlant3d%2FScenegraph%2FP3DNode.scl;h=4d01b51972735d9c8cb57430dd13ce45ec51697b;hb=73e47b999925af2858e8589b618f16bc160708f3;hp=227c551ed89336e6fe723a3af13e125daa3b4267;hpb=d3f535e82944e98845638c0e56b23077c1e7c104;p=simantics%2F3d.git

diff --git a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
index 227c551e..4d01b519 100644
--- a/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
+++ b/org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl
@@ -4,17 +4,17 @@ importJava "org.simantics.plant3d.scenegraph.IP3DVisualNode" where
   data P3DNode
   
   @JavaName getName
-  getName' :: P3DNode -> Maybe String
+  getName' :: P3DNode -> <Proc> Maybe String
   @JavaName setName
-  setName' :: P3DNode -> String -> ()
+  setName' :: P3DNode -> String -> <Proc> ()
   
 class P3DNodeClass a where
   asP3DNode :: a -> P3DNode
   asP3DNode = Java.unsafeCoerce
 
-  getName :: a -> Maybe String
+  getName :: a -> <Proc> Maybe String
   getName c = getName' (asP3DNode c)
-  setName :: a -> String -> ()
+  setName :: a -> String -> <Proc> ()
   setName c = setName' (asP3DNode c)
 
 instance P3DNodeClass P3DNode where