+ selectElementsFrom' :: ElementSelector -> Resource -> <ReadGraph> SelectionResult
+
+"""
+Get the elements selected by an element selector object.
+
+`selectedElements = selectElementsFrom elementSelector model`
+"""
+selectElementsFrom :: ElementSelector -> Resource -> <ReadGraph> [Resource]
+selectElementsFrom s r = selectedElements $ selectElementsFrom' s r
+
+importJava "org.simantics.district.selection.ElementSelector$SelectionResult" where
+ data SelectionResult
+
+ "Get the list of selected elements"
+ @JavaName elements
+ selectedElements :: SelectionResult -> [Resource]
+ "Number of selected elements with equal selection criteria (for n lowest/n highest selections)"
+ tailCount :: SelectionResult -> Integer
+ "Actual number of elements with selection criteria equal to the last selected element (for n lowest/n highest selections)"
+ tailSize :: SelectionResult -> Integer