Backwards-compatibility fixes for Validation property tab

[simantics/platform.git] / bundles / org.simantics.platform.ui.ontology / scl / Simantics / PlatformUI.scl

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
-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