From b586228b0a54c5b8aa55a31d929d7f24c4fc5f53 Mon Sep 17 00:00:00 2001 From: Tuukka Lehtonen Date: Sat, 5 Aug 2017 00:31:43 +0300 Subject: [PATCH] Added Simantics/Diagram#diagramsUnder to complement diagramsOf refs #7410 Change-Id: Iab18ab1bf44e96decbc14de2a5289b51feca387f (cherry picked from commit 159f9e3b618521c76a9dc6c8ffd94a7a3c35b82a) --- .../org.simantics.modeling/scl/Simantics/Diagram.scl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/bundles/org.simantics.modeling/scl/Simantics/Diagram.scl b/bundles/org.simantics.modeling/scl/Simantics/Diagram.scl index 554a25eda..0ee3e9d28 100644 --- a/bundles/org.simantics.modeling/scl/Simantics/Diagram.scl +++ b/bundles/org.simantics.modeling/scl/Simantics/Diagram.scl @@ -149,9 +149,15 @@ hasRandomIdentifier entity = runProc (claimRelatedValue_ entity L0.identifier GU """Returns all diagrams of the given model.""" diagramsOf :: Model -> [Diagram] -diagramsOf model = recurse - DIA.Diagram - (configurationOf model) +diagramsOf model = diagramsUnder $ configurationOf model + +""" +Returns all diagrams under the specified diagram folder. +The parameter can also be the configuration root `configurationOf` +in which case this function returns the same as `diagramsOf model`. +""" +diagramsUnder :: DiagramFolder -> [Resource] +diagramsUnder folder = recurse DIA.Diagram folder where recurse t r = do cs = children r -- 2.43.2