getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
getSceneGraphProvider diagram = do
diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
getSceneGraphProvider diagram = do
diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName