// FLAGS ---------------------------
+@deprecated "Unnecessary function."
toFlag :: Resource -> Flag
-toFlag flag = (fromResource flag)
+toFlag flag = flag
importJava "org.simantics.modeling.flags.MergeFlags" where
@JavaName mergeFlags
hasType STR.ConnectionJoin,
hasStatement
DIA.JoinsFlag
- (toResource flag1),
+ flag1,
hasStatement
DIA.JoinsFlag
- (toResource flag2)
+ flag2
]
()
+@deprecated "Unnecessary function."
flagToElement :: Flag -> Element
-flagToElement flag = do
- flagResource = toResource flag
- fromResource flagResource
+flagToElement flag = flag
getFlags :: Diagram -> <ReadGraph> [Resource]
getFlags dia = do
- children = collectionToList (objects_ (singleObject (toResource dia) MOD.CompositeToDiagram) L0.ConsistsOf)
+ children = collectionToList (objects_ (singleObject dia MOD.CompositeToDiagram) L0.ConsistsOf)
flags = filter (\x -> isInstanceOf x DIA.Flag) children
flags