1 import "JavaBuiltin" as Java
3 importJava "org.simantics.plant3d.scenegraph.IP3DVisualNode" where
7 getName' :: P3DNode -> <Proc> Maybe String
9 setName' :: P3DNode -> String -> <Proc> ()
11 class P3DNodeClass a where
12 asP3DNode :: a -> P3DNode
13 asP3DNode = Java.unsafeCoerce
15 getName :: a -> <Proc> Maybe String
16 getName c = getName' (asP3DNode c)
17 setName :: a -> String -> <Proc> ()
18 setName c = setName' (asP3DNode c)
20 instance P3DNodeClass P3DNode where