X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FScenegraph.scl;h=dae67434e9d2a64a1463f384378812e8b8e73c6f;hp=27ffc5dfc793770bd7beb57993c65ba063dfe112;hb=refs%2Fchanges%2F38%2F238%2F2;hpb=24e2b34260f219f0d1644ca7a138894980e25b14

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl b/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl
index 27ffc5dfc..dae67434e 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl
@@ -1,95 +1,95 @@
-import "Simantics/DB"
-import "Simantics/Diagram"
-import "Simantics/Rename"
-
-importJava "org.simantics.g2d.canvas.ICanvasContext" where
-    data ICanvasContext
-    
-importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
-    data ICanvasSceneGraphProvider
-    
-    getCanvasContext :: ICanvasSceneGraphProvider -> ICanvasContext 
-
-importJava "org.simantics.modeling.SCLScenegraph" where
-    sceneGraphTest :: ICanvasContext -> String -> String -> <Proc> String
-
-    getAllNodes :: ICanvasContext -> String
-    
-    getBoundsNodes :: ICanvasContext -> String
-    
-    getBackgroundNodes :: ICanvasContext -> String
-    
-    getDataNodes :: ICanvasContext -> String
-    
-    getNavigationNodes :: ICanvasContext -> String
-    
-    getParentNodes :: ICanvasContext -> String
-    
-    getDecorationNodes :: ICanvasContext -> String
-
-    getSingleElementNodes :: ICanvasContext -> String
-    
-    getConnectionNodes :: ICanvasContext -> String
-    
-    getTextNodes :: ICanvasContext -> String
-    
-    getItemNodes :: ICanvasContext -> String
-    
-    @JavaName getNodeText
-    getText :: ICanvasContext -> String -> String 
-    
-    @JavaName getNodeCount
-    getCount :: ICanvasContext -> String
-    
-    @JavaName getNodeTransform
-    getTransform :: ICanvasContext -> String -> String
-    
-    getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider
-    
-    disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()
-    
-    editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
-    
-    copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean
-
-getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
-getSceneGraphProvider diagram = do
-    diagramName = syncRead(\() -> getSafeName (toResource diagram))
-    diagramRVI = "/" + diagramName
-    model = syncRead(\() -> getPossibleModel (toResource diagram))
-    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
-    getICanvasSceneGraphProvider model composite diagramRVI
-
-getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext
-getDiagramContext provider = do
-    getCanvasContext provider
-    
-getNodeTransform :: Diagram -> String -> <Proc> String
-getNodeTransform diagram nodeName = do
-    diagramName = syncRead(\() -> getSafeName (toResource diagram))
-    diagramRVI = "/" + diagramName
-    model = syncRead(\() -> getPossibleModel (toResource diagram))
-    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
-    provider = getICanvasSceneGraphProvider model composite diagramRVI
-    context = getCanvasContext provider
-    getTransform context nodeName
-    
-getNodeText :: Diagram -> String -> <Proc> String
-getNodeText diagram nodeName = do
-    diagramName = syncRead(\() -> getSafeName (toResource diagram))
-    diagramRVI = "/" + diagramName
-    model = syncRead(\() -> getPossibleModel (toResource diagram))
-    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
-    provider = getICanvasSceneGraphProvider model composite diagramRVI
-    context = getCanvasContext provider
-    getText context nodeName
-
-getNodeCount :: Diagram -> <Proc> String
-getNodeCount diagram = do
-    diagramName = syncRead(\() -> getSafeName (toResource diagram))
-    diagramRVI = "/" + diagramName
-    model = syncRead(\() -> getPossibleModel (toResource diagram))
-    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
-    provider = getICanvasSceneGraphProvider model composite diagramRVI
-    context = getCanvasContext provider 
-    getCount context
+import "Simantics/DB"
+import "Simantics/Diagram"
+import "Simantics/Rename"
+
+importJava "org.simantics.g2d.canvas.ICanvasContext" where
+    data ICanvasContext
+    
+importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
+    data ICanvasSceneGraphProvider
+    
+    getCanvasContext :: ICanvasSceneGraphProvider -> ICanvasContext 
+
+importJava "org.simantics.modeling.SCLScenegraph" where
+    sceneGraphTest :: ICanvasContext -> String -> String -> <Proc> String
+
+    getAllNodes :: ICanvasContext -> String
+    
+    getBoundsNodes :: ICanvasContext -> String
+    
+    getBackgroundNodes :: ICanvasContext -> String
+    
+    getDataNodes :: ICanvasContext -> String
+    
+    getNavigationNodes :: ICanvasContext -> String
+    
+    getParentNodes :: ICanvasContext -> String
+    
+    getDecorationNodes :: ICanvasContext -> String
+
+    getSingleElementNodes :: ICanvasContext -> String
+    
+    getConnectionNodes :: ICanvasContext -> String
+    
+    getTextNodes :: ICanvasContext -> String
+    
+    getItemNodes :: ICanvasContext -> String
+    
+    @JavaName getNodeText
+    getText :: ICanvasContext -> String -> String 
+    
+    @JavaName getNodeCount
+    getCount :: ICanvasContext -> String
+    
+    @JavaName getNodeTransform
+    getTransform :: ICanvasContext -> String -> String
+    
+    getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider
+    
+    disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()
+    
+    editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
+    
+    copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean
+
+getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
+getSceneGraphProvider diagram = do
+    diagramName = syncRead(\() -> getSafeName (toResource diagram))
+    diagramRVI = "/" + diagramName
+    model = syncRead(\() -> getPossibleModel (toResource diagram))
+    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+    getICanvasSceneGraphProvider model composite diagramRVI
+
+getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext
+getDiagramContext provider = do
+    getCanvasContext provider
+    
+getNodeTransform :: Diagram -> String -> <Proc> String
+getNodeTransform diagram nodeName = do
+    diagramName = syncRead(\() -> getSafeName (toResource diagram))
+    diagramRVI = "/" + diagramName
+    model = syncRead(\() -> getPossibleModel (toResource diagram))
+    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+    provider = getICanvasSceneGraphProvider model composite diagramRVI
+    context = getCanvasContext provider
+    getTransform context nodeName
+    
+getNodeText :: Diagram -> String -> <Proc> String
+getNodeText diagram nodeName = do
+    diagramName = syncRead(\() -> getSafeName (toResource diagram))
+    diagramRVI = "/" + diagramName
+    model = syncRead(\() -> getPossibleModel (toResource diagram))
+    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+    provider = getICanvasSceneGraphProvider model composite diagramRVI
+    context = getCanvasContext provider
+    getText context nodeName
+
+getNodeCount :: Diagram -> <Proc> String
+getNodeCount diagram = do
+    diagramName = syncRead(\() -> getSafeName (toResource diagram))
+    diagramRVI = "/" + diagramName
+    model = syncRead(\() -> getPossibleModel (toResource diagram))
+    composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+    provider = getICanvasSceneGraphProvider model composite diagramRVI
+    context = getCanvasContext provider 
+    getCount context