Move contents of SCLMain in PlatformUI from pgraph to scl-file

[simantics/platform.git] / bundles / org.simantics.platform.ui.ontology / graph / scl / SCLMain.scl

diff --git a/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl b/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl
deleted file mode 100644 (file)
index 44c53d8..0000000
--- a/bundles/org.simantics.platform.ui.ontology/graph/scl/SCLMain.scl
+++ /dev/null
@@ -1,87 +0,0 @@
-include "Simantics/All"
-include "SWT/All"
-
-useSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
-useSelectedHandler input parameters = do
-  model = represents input
-  resources = map wseResource $ decodeWSES $ parameters "selection"
-  for resources $ linkSharedOntology model
-  ""
-
-unlinkSelectedHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
-unlinkSelectedHandler input parameters = do
-  model = represents input
-  resources = map wseResource $ decodeWSES $ parameters "selection"
-  unlinkSharedOntologyWithUI input resources
-  ""
-
-createNewHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
-createNewHandler input parameters = do
-  createSharedOntologyWithUI L0.SharedOntology
-  ""
-
-importHandler :: Variable -> (String -> Maybe String) -> <WriteGraph> String
-importHandler input parameters = do
-  importSharedOntologyWithUI input
-  ""
-
-fooHandler :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
-fooHandler self ctx = do
-  val = fromJust $ possibleString ctx "selected"
-  setProjectComponentState self "currentSelection" val
-  Nothing
-  
-availableRanges :: Variable -> <ReadGraph> [String]
-availableRanges input = do
-  u = uri input
-  res = represents input
-  ranges = objectsWithType res L0.ConsistsOf SHEET.Range
-  map nameOf ranges
-  
-defaultRange :: Variable -> <ReadGraph> String
-defaultRange input = do
-  ranges = availableRanges input
-  if (length ranges) == 0 then "" else ranges!0
-
-currentRangeName :: Variable -> Variable -> <ReadGraph> String
-currentRangeName self input = 
-  projectComponentState self "#currentSelection" (defaultRange input)
-
-currentRangeExpressionVariable :: Variable -> Variable -> <ReadGraph> Variable
-currentRangeExpressionVariable self input = do
-  name = projectComponentState self "./Combo#currentSelection" (defaultRange input)
-  browse input ("/" + name + "#cells")
-
-currentRangeExpression :: Variable -> Variable -> <ReadGraph> String
-currentRangeExpression self input = do
-  variable = currentRangeExpressionVariable self input
-  value $ browse variable "#expression"
-
-currentRangeTextAndErrors :: Variable -> Variable -> <ReadGraph> TextAndErrors
-currentRangeTextAndErrors self input = do
-  expression = currentRangeExpression self input
-  createTextAndErrors expression []
-
-fooHandler2 :: Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
-fooHandler2 self ctx = do
-  val = fromJust $ possibleString ctx "text"
-  setExpression self val
-  Nothing
-
-modifyCodeHandler :: Variable -> Variable -> CommandContext -> <WriteGraph> Maybe CommandResult
-modifyCodeHandler self input ctx = do
-  val = fromJust $ possibleString ctx "text"
-  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