Merge branch 'feature/funcwrite'

[simantics/platform.git] / bundles / org.simantics.charts / scl / Simantics / Chart.scl

diff --git a/bundles/org.simantics.charts/scl/Simantics/Chart.scl b/bundles/org.simantics.charts/scl/Simantics/Chart.scl
index 3972fd95c9317f58730eac5a193037a6ed840775..71d20dcce2760e2fc7d29f3fd05a5d3034cc53d2 100644 (file)
--- a/bundles/org.simantics.charts/scl/Simantics/Chart.scl
+++ b/bundles/org.simantics.charts/scl/Simantics/Chart.scl
@@ -45,11 +45,11 @@ importJava "org.simantics.charts.ui.SCLChart" where
 Browses the given Model for its Charts and then returns them in a list.
 """
 chartsOf :: Model -> <ReadGraph> [Chart]
-chartsOf model = recurse (toResource model)
+chartsOf model = recurse model
   where
     recurse r = do
-        cs = resourceChildrenOf r 
-        charts = map fromResource $ filter isChart cs
+        cs = children r 
+        charts = filter isChart cs
         chartGrp = filter isChartGroup cs
         charts + concatMap recurse chartGrp
     isChart r = isInstanceOf r CHART.TimeSeriesChart