include "Simantics/All"
include "SWT/All"
-usedSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
-usedSharedOntologies2 model = usedSharedOntologies $ represents model
-
-availableSharedOntologies2 :: Variable -> <ReadGraph> [Resource]
-availableSharedOntologies2 model = availableSharedOntologies $ represents model
-
useSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
useSelectedHandler input parameters = do
model = represents input
variable = currentRangeExpressionVariable self input
setExpression variable val
Nothing
+
+standardPropertiesElementTransformation :: Variable -> <ReadGraph> Variable
+standardPropertiesElementTransformation var = do
+ match getPossibleType var with
+ Nothing -> var
+ Just resourceType -> if isInheritedFrom resourceType DIA.Element then do
+ match possibleObject (represents var) MOD.ElementToComponent with
+ Nothing -> var
+ Just component -> resourceVariable component
+ else var
\ No newline at end of file