X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.platform.ui.ontology%2Fgraph%2Fscl%2FSCLMain.scl;h=44c53d80e4cfa35e9320f51ae3b93227eac94dbe;hb=cd343042b5518b7a45fffb35ccb91cb4d810a6e7;hp=83bb80ea893ab44f8c906e10df0d51ad0d9c6cb4;hpb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl b/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl
index 83bb80ea8..44c53d80e 100644
--- a/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl
+++ b/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl
@@ -1,12 +1,6 @@
 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
@@ -80,4 +74,14 @@ modifyCodeHandler self input ctx = do
   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