Backwards-compatibility fixes for Validation property tab

* BrowseContext should not include ProjectBrowseContext as it brings in
  unwanted contributions
* Check "selectedness" with more relaxed criterion

gitlab #365

Change-Id: Icb684cada676695328883f3f513151cc5fd51c0f

diff --git a/bundles/org.simantics.platform.ui.ontology/graph/ValidationView.pgraph b/bundles/org.simantics.platform.ui.ontology/graph/ValidationView.pgraph
index 31aeb3cbd18a5cc36d1305bcef0717b7d3b1e8f2..132134c0b42dfc449e391a98822eda7fffcde938 100644 (file)
--- a/bundles/org.simantics.platform.ui.ontology/graph/ValidationView.pgraph
+++ b/bundles/org.simantics.platform.ui.ontology/graph/ValidationView.pgraph
@@ -64,7 +64,7 @@ VIEW.Explorer
 MBC = MOD.ModelingBrowseContext
 
 VIEWS.Validations.BrowseContext : VP.BrowseContext
 MBC = MOD.ModelingBrowseContext
 
 VIEWS.Validations.BrowseContext : VP.BrowseContext

-    VP.BrowseContext.Includes PROJECT.ProjectBrowseContext
+    //VP.BrowseContext.Includes PROJECT.ProjectBrowseContext

     VP.BrowseContext.HasVisualsContribution PROJECT.Contributions.StandardNameLabelRule
     VP.BrowseContext.HasChildContribution VIEWS.Validations.BrowseContext.Children : VP.ChildContribution
         VP.ChildContribution.HasParentNodeType MBC.Variable
     VP.BrowseContext.HasVisualsContribution PROJECT.Contributions.StandardNameLabelRule
     VP.BrowseContext.HasChildContribution VIEWS.Validations.BrowseContext.Children : VP.ChildContribution
         VP.ChildContribution.HasParentNodeType MBC.Variable

diff --git a/bundles/org.simantics.platform.ui.ontology/scl/Simantics/PlatformUI.scl b/bundles/org.simantics.platform.ui.ontology/scl/Simantics/PlatformUI.scl
index 07309cb7b2876ea7a233439edea2e57d00e5c0d9..b91964e400fdfb012006361fcbd7c166408561fb 100644 (file)
--- a/bundles/org.simantics.platform.ui.ontology/scl/Simantics/PlatformUI.scl
+++ b/bundles/org.simantics.platform.ui.ontology/scl/Simantics/PlatformUI.scl
@@ -141,5 +141,5 @@ usedIssueSources indexRoot = do
    objectsWithType indexRoot L0.ConsistsOf ISSUE.IssueSource
 
 checkedStateRule :: BrowseNodeRule CheckedState
    objectsWithType indexRoot L0.ConsistsOf ISSUE.IssueSource
 
 checkedStateRule :: BrowseNodeRule CheckedState

-checkedStateRule (ResourceX r) = if existsStatement3 r ISSUE.IssueSource.Selected (parent r) then CHECKED else NOT_CHECKED
+checkedStateRule (ResourceX r) = if existsStatement r ISSUE.IssueSource.Selected then CHECKED else NOT_CHECKED

       
\ No newline at end of file
       
\ No newline at end of file