X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FScenegraph.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FScenegraph.scl;h=401f2d8afaaaec6dc6816c38ec507930a101ca8b;hb=986ee0c8fa3d43e84036d99badfef64289eb6fac;hp=3d1170682a606f0db33b8cdbad6cc8575c3fb3f7;hpb=060e9e392bf9fd35da738061077b285ba07fce81;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 3d1170682..401f2d8af 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl
@@ -5,6 +5,9 @@ import "Simantics/Rename"
 importJava "org.simantics.g2d.canvas.ICanvasContext" where
     data ICanvasContext
     
+    @JavaName dispose
+    disposeCanvasContext :: ICanvasContext -> <Proc> ()
+    
 importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
     data ICanvasSceneGraphProvider
     
@@ -65,6 +68,26 @@ importJava "org.simantics.modeling.SCLScenegraph" where
     "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