Misc. changes to support Selection View in modelled documents

[simantics/platform.git] / bundles / org.simantics.selectionview.ui.ontology / graph / SelectionViewUi.pgraph

diff --git a/bundles/org.simantics.selectionview.ui.ontology/graph/SelectionViewUi.pgraph b/bundles/org.simantics.selectionview.ui.ontology/graph/SelectionViewUi.pgraph
index 0fb82a9aff0c9dccd806b234e201a957dcd3ef81..704e7430c417a7541255b2cd8d3e6f3242c9f02e 100644 (file)
--- a/bundles/org.simantics.selectionview.ui.ontology/graph/SelectionViewUi.pgraph
+++ b/bundles/org.simantics.selectionview.ui.ontology/graph/SelectionViewUi.pgraph
@@ -10,6 +10,10 @@ SEL = <http://www.simantics.org/SelectionViewUI-1.1> : L0.Ontology
     @L0.new
     L0.HasResourceClass "org.simantics.selectionview.ui.ontology.SelectionViewUIResources"
 
+SEL.SCLMain : L0.SCLModule
+    L0.SCLModule.definition _ : L0.String
+      @L0.loadString "scl/SCLMain.scl"
+
 SEL.CategoryNode : VP.NodeType
   VP.HasContentType "org.simantics.selectionview.CategoryNode"
   VP.HasBundle "org.simantics.selectionview"
@@ -83,11 +87,17 @@ SEL.StandardProperties.BrowseContextStandardChildren <T SEL.StandardProperties.B
       VP.ChildContribution.HasChildNodeType SEL.CategoryNode
       VP.ChildContribution.HasRule 
         SEL.StandardProperties.BrowseContextStandardChildren.Cat : SEL.VariablePropertyCategoryRule
+          @MOD.scl SEL_BASE.getSpecialCategory "layer0Categories" "Resource -> <ReadGraph> Maybe Resource"
   @L0.assert VP.BrowseContext.HasVisualsContribution
     _ : VP.VisualsContribution
       VP.VisualsContribution.HasNodeType MOD.ModelingBrowseContext.Variable
       VP.VisualsContribution.HasRule
         SEL.StandardProperties.BrowseContextStandardChildren.Sorter : SEL.StandardPropertySorterRuleType
+          @MOD.scl SEL_BASE.getSpecialCategory "layer0Categories" "Resource -> <ReadGraph> Maybe Resource"
+  @L0.assert  VP.BrowseContext.HasVisualsContribution
+    _ : VP.VisualsContribution
+      VP.VisualsContribution.HasNodeType MOD.ModelingBrowseContext.Variable
+      VP.VisualsContribution.HasRule VP.DescriptionTooltipRule
 
 SEL.StandardProperties.BrowseContextWithoutChildren <T VP.BrowseContext
   @L0.assert VP.BrowseContext.HasVisualsContribution