getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
getSceneGraphProvider diagram = do
- diagramName = syncRead(\() -> getSafeName (toResource diagram))
+ diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
- model = syncRead(\() -> getPossibleModel (toResource diagram))
- composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+ model = syncRead(\() -> getPossibleModel diagram)
+ composite = syncRead(\() -> compositeToDiagram' diagram)
getICanvasSceneGraphProvider model composite diagramRVI
getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext
getNodeTransform :: Diagram -> String -> <Proc> String
getNodeTransform diagram nodeName = do
- diagramName = syncRead(\() -> getSafeName (toResource diagram))
+ diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
- model = syncRead(\() -> getPossibleModel (toResource diagram))
- composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+ model = syncRead(\() -> getPossibleModel diagram)
+ composite = syncRead(\() -> compositeToDiagram' diagram)
provider = getICanvasSceneGraphProvider model composite diagramRVI
context = getCanvasContext provider
getTransform context nodeName
getNodeText :: Diagram -> String -> <Proc> String
getNodeText diagram nodeName = do
- diagramName = syncRead(\() -> getSafeName (toResource diagram))
+ diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
- model = syncRead(\() -> getPossibleModel (toResource diagram))
- composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+ model = syncRead(\() -> getPossibleModel diagram)
+ composite = syncRead(\() -> compositeToDiagram' diagram)
provider = getICanvasSceneGraphProvider model composite diagramRVI
context = getCanvasContext provider
getText context nodeName
getNodeCount :: Diagram -> <Proc> String
getNodeCount diagram = do
- diagramName = syncRead(\() -> getSafeName (toResource diagram))
+ diagramName = syncRead(\() -> getSafeName diagram)
diagramRVI = "/" + diagramName
- model = syncRead(\() -> getPossibleModel (toResource diagram))
- composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
+ model = syncRead(\() -> getPossibleModel diagram)
+ composite = syncRead(\() -> compositeToDiagram' diagram)
provider = getICanvasSceneGraphProvider model composite diagramRVI
context = getCanvasContext provider
getCount context