org.simantics.plant3d/scl/Plant3d/Scenegraph/P3DNode.scl

   1 import "JavaBuiltin" as Java
   2
   3 importJava "org.simantics.plant3d.scenegraph.IP3DVisualNode" where
   4   data P3DNode
   5
   6   @JavaName getName
   7   getName' :: P3DNode -> Maybe String
   8   @JavaName setName
   9   setName' :: P3DNode -> String -> ()
  10
  11 class P3DNodeClass a where
  12   asP3DNode :: a -> P3DNode
  13   asP3DNode = Java.unsafeCoerce
  14
  15   getName :: a -> Maybe String
  16   getName c = getName' (asP3DNode c)
  17   setName :: a -> String -> ()
  18   setName c = setName' (asP3DNode c)
  19
  20 instance P3DNodeClass P3DNode where
  21   asP3DNode = id