$ sourceDiagram
for targetDiagrams $ \diagram ->
- syncActivateOnce $ toResource diagram
+ syncActivateOnce diagram
doElementPostProcessing elementMap elementPostProcessing
possibleDrawingTemplate :: Model -> Diagram -> <ReadGraph> Maybe Resource
possibleDrawingTemplate model d = do
d' = diagramResourceOf d
- library = fromJust $ possibleResourceChild (toResource model) "Diagram Templates"
+ library = fromJust $ possibleResourceChild model "Diagram Templates"
match (possibleObject d' TMPL.HasDrawingTemplate) with
Just dt -> match (possibleNameOf dt) with
Just name -> possibleResourceChild library name
()
getTargetComponent (targetDiagram :: Diagram) (sourceComponent :: Resource) =
- (possibleResourceChild (toResource targetDiagram) (fromJust $ possibleNameOf sourceComponent)) :: Maybe Resource
+ (possibleResourceChild targetDiagram (fromJust $ possibleNameOf sourceComponent)) :: Maybe Resource
translateDiagram2 (targetModel :: Model)
(sourceDiagram :: Diagram)