importJava "org.simantics.g2d.canvas.ICanvasContext" where
data ICanvasContext
+ @JavaName dispose
+ disposeCanvasContext :: ICanvasContext -> <Proc> ()
+
importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
data ICanvasSceneGraphProvider
@JavaName getNodeTransform
getTransform :: ICanvasContext -> String -> String
- getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider
+ getBackgroundColor :: ICanvasContext -> Maybe [Integer]
+
+ @Deprecated
+ getICanvasSceneGraphProvider :: Model -> Resource -> String -> <Proc> ICanvasSceneGraphProvider
+
+ @Deprecated
+ disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> <Proc> ()
- disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()
+ doWithICanvasSceneGraphProvider :: Resource -> (ICanvasSceneGraphProvider -> <e> a) -> <Proc, Exception> a
+
+ doWithCanvasContext :: Resource -> (ICanvasContext -> <e> a) -> <Proc, Exception> a
editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
renderSVG :: ICanvasContext -> <Proc> String
+ "Render an SVG with known width and height in pixels: `renderScaledSVG context width height`"
+ @JavaName renderSVG
+ renderScaledSVG :: ICanvasContext -> Double -> Double -> <Proc> String
+
+ @JavaName renderSVG
+ renderScaledAndAlignedSVG :: ICanvasContext -> Double -> Double -> Integer -> Integer -> <Proc> String
+
+importJava "org.eclipse.swt.SWT" where
+
+ @JavaName LEFT
+ ALIGN_LEFT :: Integer
+
+ @JavaName RIGHT
+ ALIGN_RIGHT :: Integer
+
+ @JavaName CENTER
+ ALIGN_CENTER :: Integer
+
+ @JavaName TOP
+ ALIGN_TOP :: Integer
+
+ @JavaName BOTTOM
+ ALIGN_BOTTOM :: Integer
+
getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
getSceneGraphProvider diagram = do
diagramName = syncRead(\() -> getSafeName diagram)