X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FScenegraph.scl;h=3d1170682a606f0db33b8cdbad6cc8575c3fb3f7;hb=0f7642b3bd653687a880733e4673b450e3612c6c;hp=3c9c5579969cb61b1015f0d461cc5e9c50431d1a;hpb=2e21c89c81d449bcc2301b3cf3cce4f2cd403a60;p=simantics%2Fplatform.git diff --git a/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl b/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl index 3c9c55799..3d1170682 100644 --- a/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl +++ b/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl @@ -44,9 +44,17 @@ importJava "org.simantics.modeling.SCLScenegraph" where @JavaName getNodeTransform getTransform :: ICanvasContext -> String -> String - getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider + getBackgroundColor :: ICanvasContext -> Maybe [Integer] - disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> () + @Deprecated + getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider + + @Deprecated + disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> () + + doWithICanvasSceneGraphProvider :: Resource -> (ICanvasSceneGraphProvider -> a) -> a + + doWithCanvasContext :: Resource -> (ICanvasContext -> a) -> a editNodeText :: ICanvasContext -> String -> String -> String -> String @@ -54,6 +62,10 @@ importJava "org.simantics.modeling.SCLScenegraph" where renderSVG :: ICanvasContext -> String + "Render an SVG with known width and height in pixels: `renderScaledSVG context width height`" + @JavaName renderSVG + renderScaledSVG :: ICanvasContext -> Double -> Double -> String + getSceneGraphProvider :: Diagram -> ICanvasSceneGraphProvider getSceneGraphProvider diagram = do diagramName = syncRead(\() -> getSafeName diagram)