provider = getICanvasSceneGraphProvider model composite diagramRVI
context = getCanvasContext provider
getTransform context nodeName
getNodeText :: Diagram -> String -> <Proc> String
getNodeText diagram nodeName = do
provider = getICanvasSceneGraphProvider model composite diagramRVI
context = getCanvasContext provider
getTransform context nodeName
getNodeText :: Diagram -> String -> <Proc> String
getNodeText diagram nodeName = do