]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - bundles/org.simantics.selectionview.ui.ontology/graph/scl/SCLMain.scl
Misc. changes to support Selection View in modelled documents
[simantics/platform.git] / bundles / org.simantics.selectionview.ui.ontology / graph / scl / SCLMain.scl
diff --git a/bundles/org.simantics.selectionview.ui.ontology/graph/scl/SCLMain.scl b/bundles/org.simantics.selectionview.ui.ontology/graph/scl/SCLMain.scl
new file mode 100644 (file)
index 0000000..2184c61
--- /dev/null
@@ -0,0 +1,7 @@
+include "Simantics/All"
+
+layer0Categories :: Resource -> <ReadGraph> Maybe Resource
+layer0Categories predicate = match predicate with
+  L0.HasName -> Just MOD.SystemPropertyInfo
+  _ -> Nothing
+  
\ No newline at end of file