X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FFlag.scl;fp=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FFlag.scl;h=61eb7bd645ebe68cd6bc9b71e7ab0202d554fc6e;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=97189a14f07db4a3fc91b426329396668441bdd9;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Flag.scl b/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
index 97189a14f..61eb7bd64 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/Flag.scl
@@ -1,59 +1,59 @@
-include "Simantics/DB"
-include "Simantics/Model"
-import "Simantics/Diagram"
-
-type Flag = Resource
-
-// FLAGS ---------------------------
-
-toFlag :: Resource -> Flag
-toFlag flag = (fromResource flag)
-
-importJava "org.simantics.modeling.flags.MergeFlags" where
-    @JavaName mergeFlags
-    mergeAllFlagsInDiagram :: Resource -> <WriteGraph> String
-    
-    @JavaName expandFlags
-    expandAllFlagsInDiagram :: Resource -> <WriteGraph> ()
-    
-    @JavaName mergeWithoutMetadata
-    mergeFlags :: [Resource] -> <WriteGraph> String
-
-importJava "org.simantics.modeling.flags.ExpandFlags" where
-    @JavaName expandFlagWithoutMetadata
-    expandFlag :: Resource -> <WriteGraph> Vector Resource
-    
-
-importJava "org.simantics.diagram.flag.FlagUtil" where    
-    setFlagExternal :: [Flag] -> Boolean -> <WriteGraph> [Resource]
-
-"""Joins two flags."""
-joinFlags :: Flag -> Flag -> <WriteGraph> ()
-joinFlags flag1 flag2 = do
-    j = newEntity [
-        hasType STR.ConnectionJoin,
-        hasStatement 
-            DIA.JoinsFlag
-            (toResource flag1),
-        hasStatement
-            DIA.JoinsFlag
-            (toResource flag2)
-    ]
-    ()
-
-flagToElement :: Flag -> Element
-flagToElement flag = do
-    flagResource = toResource flag
-    fromResource flagResource
-
-getFlags :: Diagram -> <ReadGraph> [Resource]
-getFlags dia = do
-    children = collectionToList (objects_ (singleObject (toResource dia) MOD.CompositeToDiagram) L0.ConsistsOf)
-    flags = filter (\x -> isInstanceOf x DIA.Flag) children
-    flags
-   
-getFlagByName :: Diagram -> String -> <ReadGraph> [Resource]
-getFlagByName dia name = do
-    flags = getFlags dia
-    flags_with_name = filter (\x -> relatedValue2 x L0.HasName == name) flags
-    flags_with_name
+include "Simantics/DB"
+include "Simantics/Model"
+import "Simantics/Diagram"
+
+type Flag = Resource
+
+// FLAGS ---------------------------
+
+toFlag :: Resource -> Flag
+toFlag flag = (fromResource flag)
+
+importJava "org.simantics.modeling.flags.MergeFlags" where
+    @JavaName mergeFlags
+    mergeAllFlagsInDiagram :: Resource -> <WriteGraph> String
+    
+    @JavaName expandFlags
+    expandAllFlagsInDiagram :: Resource -> <WriteGraph> ()
+    
+    @JavaName mergeWithoutMetadata
+    mergeFlags :: [Resource] -> <WriteGraph> String
+
+importJava "org.simantics.modeling.flags.ExpandFlags" where
+    @JavaName expandFlagWithoutMetadata
+    expandFlag :: Resource -> <WriteGraph> Vector Resource
+    
+
+importJava "org.simantics.diagram.flag.FlagUtil" where    
+    setFlagExternal :: [Flag] -> Boolean -> <WriteGraph> [Resource]
+
+"""Joins two flags."""
+joinFlags :: Flag -> Flag -> <WriteGraph> ()
+joinFlags flag1 flag2 = do
+    j = newEntity [
+        hasType STR.ConnectionJoin,
+        hasStatement 
+            DIA.JoinsFlag
+            (toResource flag1),
+        hasStatement
+            DIA.JoinsFlag
+            (toResource flag2)
+    ]
+    ()
+
+flagToElement :: Flag -> Element
+flagToElement flag = do
+    flagResource = toResource flag
+    fromResource flagResource
+
+getFlags :: Diagram -> <ReadGraph> [Resource]
+getFlags dia = do
+    children = collectionToList (objects_ (singleObject (toResource dia) MOD.CompositeToDiagram) L0.ConsistsOf)
+    flags = filter (\x -> isInstanceOf x DIA.Flag) children
+    flags
+   
+getFlagByName :: Diagram -> String -> <ReadGraph> [Resource]
+getFlagByName dia name = do
+    flags = getFlags dia
+    flags_with_name = filter (\x -> relatedValue2 x L0.HasName == name) flags
+    flags_with_name