editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean
+
+ renderSVG :: ICanvasContext -> <Proc> String
getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
getSceneGraphProvider diagram = do
diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
- model = syncRead(\() -> getPossibleModel diagram)
+ model = syncRead(\() -> fromJust $ possibleIndexRoot diagram)
composite = syncRead(\() -> compositeToDiagram' diagram)
getICanvasSceneGraphProvider model composite diagramRVI