X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.modeling.ontology%2Fgraph%2FModelingViewpoint.pgraph;h=890d91a627b27867eb2528b50ce53cc7791a4b64;hb=fb89ec6bace6b3eef93a4c437171bb173fc861b6;hp=c838c0a3648850a5fbb0793844e664577cd4fc07;hpb=f6e8b2391fa7b6dfdd2cf8dd2b8bbe5750c57c70;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
index c838c0a36..890d91a62 100644
--- a/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
+++ b/bundles/org.simantics.modeling.ontology/graph/ModelingViewpoint.pgraph
@@ -20,14 +20,20 @@ MOD.Contributions : L0.Library
 MOD.SCLChildRule <T VP.ChildRule
   >-- MOD.SCLChildRule.getChildren ==> "Resource -> <ReadGraph> [Resource]" <R L0.HasProperty : L0.FunctionalRelation
 
-MOD.SCLLabelRule <T VP.ChildRule
+MOD.SCLLabelRule <T VP.VisualsRule
   >-- MOD.SCLLabelRule.getLabels ==> "Resource -> <ReadGraph> [String]" <R L0.HasProperty : L0.FunctionalRelation
 
+MOD.SCLImageRule <T VP.VisualsRule
+  >-- MOD.SCLImageRule.getImages ==> "Resource -> <ReadGraph> [(String,ImageDescriptor)]" <R L0.HasProperty : L0.FunctionalRelation
+
 MOD.SCLAction <T ACT.Action
   --> MOD.SCLAction.action ==> "Resource -> <Proc> ()" <R L0.HasProperty : L0.FunctionalRelation 
 
-MOD.SCLTest <T ACT.Action
-  --> MOD.SCLTest.test ==> "Resource -> <ReadGraph> Boolean" <R L0.HasProperty : L0.FunctionalRelation 
+MOD.SCLDropAction <T ACT.Action
+  --> MOD.SCLDropAction.action ==> "Resource -> Dynamic -> Integer -> <Proc> ()" <R L0.HasProperty : L0.FunctionalRelation 
+
+MOD.SCLTest <T VP.Test
+  --> MOD.SCLTest.test /*==> "Resource -> <ReadGraph> Boolean"*/ <R L0.HasProperty : L0.FunctionalRelation
 
 // Legacy ModelingBrowseContext
 MBC = MOD.ModelingBrowseContext : VP.BrowseContext
@@ -179,6 +185,8 @@ MBC
 
     @VP.namedRelationChildRule           MOD.Contributions.SCLModules L0.Entity   L0.ConsistsOf L0.SCLModule
     
+    @VP.namedRelationChildRule           MOD.Contributions.SCLScripts L0.Entity   L0.ConsistsOf L0.SCLScript
+    
     @VP.namedRelationChildRule           MOD.Contributions.SCLQueries L0.Library   L0.ConsistsOf MOD.SCLQuery
     
     @VP.namedRelationChildRule           MOD.Contributions.PGraphs L0.Ontology   L0.ConsistsOf L0.PGraph
@@ -339,6 +347,7 @@ MBC
         VP.VisualsContribution.HasCondition MBC.IsUserDefinedComponentTest
     @VP.namedConstantImageRule           MOD.Contributions.ImageImage            IMAGE.Image                          SILK.image
     @VP.namedConstantImageRule           MOD.Contributions.ModuleImage           L0.SCLModule                         SILK.box
+    @VP.namedConstantImageRule           MOD.Contributions.ScriptImage           L0.SCLScript                         SILK.script_go
     @VP.namedConstantImageRule           MOD.Contributions.PGraphImage           L0.PGraph                            SILK.box
     @VP.namedConstantImageRule           MOD.Contributions.QueryImage            MOD.SCLQuery                         SILK.script
     @VP.namedConstantImageRule           MOD.Contributions.CodeImage             STR.ProceduralComponentTypeCode      SILK.book_open
@@ -362,6 +371,27 @@ IMAGES.ComponentLock : IMAGE.PngImage
 MBC
     @VP.dropActionContribution MOD.Subscription MAC.Actions.SubscriptionDropAction 1.0
 
+MOD.sclChildRule : L0.Template
+    @template %action %expression
+        %action : MOD.SCLChildRule
+          MOD.SCLChildRule.getChildren _ : MOD.SCLValue
+            L0.SCLValue.expression %expression
+            L0.HasValueType "Resource -> <ReadGraph> [Resource]"
+
+MOD.sclLabelRule : L0.Template
+    @template %action %expression
+        %action : MOD.SCLLabelRule
+          MOD.SCLLabelRule.getLabels _ : MOD.SCLValue
+            L0.SCLValue.expression %expression
+            L0.HasValueType "Resource -> <ReadGraph> [String]"
+
+MOD.sclImageRule : L0.Template
+    @template %action %expression
+        %action : MOD.SCLImageRule
+          MOD.SCLImageRule.getImages _ : MOD.SCLValue
+            L0.SCLValue.expression %expression
+            L0.HasValueType "Resource -> <ReadGraph> [(String,ImageDescriptor)]"
+
 MOD.sclAction : L0.Template
     @template %action %expression
         %action : MOD.SCLAction
@@ -369,6 +399,13 @@ MOD.sclAction : L0.Template
             L0.SCLValue.expression %expression
             L0.HasValueType "Resource -> <Proc> ()"
 
+MOD.sclDropAction : L0.Template
+    @template %action %expression
+        %action : MOD.SCLDropAction
+          MOD.SCLDropAction.action _ : MOD.SCLValue
+            L0.SCLValue.expression %expression
+            L0.HasValueType "Resource -> Dynamic -> Integer -> <Proc> ()"
+
 MOD.sclTest : L0.Template
     @template %subject %expression
         %subject : MOD.SCLTest
@@ -383,6 +420,13 @@ MOD.Contributions.NewSheetBook : VP.ActionContribution
     VP.ActionContribution.HasNodeType L0.Library
     VP.ActionContribution.HasAction ACTIONS.NewSheetBook
 
+MOD.Contributions.ImportSheetBook : VP.ActionContribution
+    L0.HasLabel "Spreadsheet"
+    VP.ActionContribution.HasImage SILK.star
+    VP.ActionContribution.HasCategory VP.ImportActionCategory
+    VP.ActionContribution.HasNodeType L0.Library
+    VP.ActionContribution.HasAction ACTIONS.ImportSheetBook
+
 MOD.Contributions.ActivateModel : VP.ActionContribution
     L0.HasLabel "Activate"
     VP.ActionContribution.HasImage SILK.bullet_go
@@ -396,10 +440,23 @@ MOD.Contributions.Help : VP.ActionContribution
     VP.ActionContribution.HasCategory VP.EditActionCategory
     VP.ActionContribution.HasNodeType L0.Entity
     VP.ActionContribution.HasAction ACTIONS.Help
-              
+
+MOD.Contributions.CopyURI : VP.ActionContribution
+    L0.HasLabel "Copy URI"
+    VP.ActionContribution.HasImage SILK.clipboard
+    VP.ActionContribution.HasCategory VP.EditActionCategory
+    VP.ActionContribution.HasNodeType L0.Entity
+    VP.ActionContribution.HasNodeType MBC.Variable
+    VP.ActionContribution.HasAction ACTIONS.CopyURI
+    VP.ActionContribution.IsVisibleIf _ : VP.AndTest
+        VP.AndTest.HasTest
+            _ : VP.InDevelopmentModeTest
+            _ : VP.HasURITest
+
 // Actions
 MAC    
     VP.BrowseContext.HasActionContribution MOD.Contributions.Help
+    VP.BrowseContext.HasActionContribution MOD.Contributions.CopyURI
     VP.BrowseContext.HasActionContribution _ : VP.ActionContribution
         L0.HasLabel "Migrate"
         VP.ActionContribution.HasImage SILK.star
@@ -460,6 +517,20 @@ MAC
             STR.ComponentType
         VP.ActionContribution.HasAction ACTIONS.NewSCLModule
         VP.ActionContribution.IsVisibleIf TESTS.IsContainerNotPublished
+    VP.BrowseContext.HasActionContribution MOD.Contributions.NewSCLScript : VP.ActionContribution
+        L0.HasLabel "SCL Script"
+        VP.ActionContribution.HasImage SILK.script_go
+        VP.ActionContribution.HasCategory VP.NewActionCategory
+        VP.ActionContribution.HasNodeType
+            L0.Library
+        VP.ActionContribution.HasAction ACTIONS.NewSCLScript
+        VP.ActionContribution.IsVisibleIf TESTS.IsContainerNotPublished
+    VP.BrowseContext.HasActionContribution _ : VP.ActionContribution
+        L0.HasLabel "Run SCL Script"
+        VP.ActionContribution.HasImage SILK.script_start
+        VP.ActionContribution.HasCategory VP.EditActionCategory
+        VP.ActionContribution.HasNodeType L0.SCLScript
+        VP.ActionContribution.HasAction ACTIONS.RunSCLScript
     VP.BrowseContext.HasActionContribution MOD.Contributions.NewPGraph : VP.ActionContribution
         L0.HasLabel "Ontology Definition File"
         VP.ActionContribution.HasImage SILK.page_white_text
@@ -592,6 +663,7 @@ MAC
     VP.BrowseContext.SupportsRenamingOf MBC.Symbol
     VP.BrowseContext.HasActionContribution
         MOD.Contributions.NewSheetBook
+        MOD.Contributions.ImportSheetBook
 
     @VP.renamingTestContribution
         L0.SharedOntology
@@ -621,6 +693,9 @@ ACTIONS.CreateNewVersion
   @MOD.sclAction "newVersionAction"
 ACTIONS.NewSCLModule
   @MOD.sclAction "createSCLModuleAction"
+ACTIONS.NewSCLScript
+  @MOD.sclAction "createSCLScriptAction"
+ACTIONS.RunSCLScript : ACT.Action
 ACTIONS.NewPGraph
   @MOD.sclAction "createPGraphAction"
 ACTIONS.NewSCLQuery : ACT.Action
@@ -628,6 +703,8 @@ ACTIONS.NewSCLQueryType
   @MOD.sclAction "createSCLQueryTypeAction"
 ACTIONS.NewSheetBook
   @MOD.sclAction "createSpreadsheetBookAction"
+ACTIONS.ImportSheetBook
+  @MOD.sclAction "importSpreadsheetBookAction"
 ACTIONS.ActivateModel
   @MOD.sclAction "activateModelAction"
 ACTIONS.MigrateComponentType : ACT.Action
@@ -635,6 +712,7 @@ ACTIONS.CompilePGraphs : ACT.Action
 //ACTIONS.MigrateMasterTypical : ACT.Action
 ACTIONS.RenameDiagramComponents : ACT.Action
 ACTIONS.Help : ACT.Action
+ACTIONS.CopyURI : ACT.Action
 
 ACTIONS.NavigateToSubstructure
   @MOD.sclAction "navigateToSubstructureAction"
@@ -642,6 +720,22 @@ ACTIONS.NavigateToSubstructure
 ACTIONS.NewProceduralComponentType : ACT.Action
 ACTIONS.NewComponentType : ACT.Action
 
+MOD.InstantiateUnder <T MOD.SCLAction
+  >-- MOD.InstantiateUnder.HasType --> L0.Type <R L0.IsRelatedTo : L0.TotalFunction
+  @MOD.sclAssertion MOD.SCLAction.action "instantiateUnderAction self" "Resource -> <Proc> ()"
+
+ACTIONS.InstantiateUnder
+  @MOD.sclAction "instantiateUnderAction self"
+
+MOD.InstanceOfTest <T MOD.SCLTest
+  >-- MOD.InstanceOfTest.HasType --> L0.Type <R L0.IsRelatedTo : L0.TotalFunction
+  @MOD.sclAssertion MOD.SCLTest.test "instanceOfTest self" "Resource -> <Proc> Boolean"
+
+MOD.instanceOfTest : L0.Template
+    @template %test %type
+        %test : MOD.InstanceOfTest
+          MOD.InstanceOfTest.HasType %type
+
 TESTS = MAC.Tests : L0.Library
 TESTS.IsNotPublished
   @MOD.sclTest "isNotPublished"