1 import "Simantics/DB"
\r
2 import "Simantics/Diagram"
\r
3 import "Simantics/Rename"
\r
5 importJava "org.simantics.g2d.canvas.ICanvasContext" where
\r
8 importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where
\r
9 data ICanvasSceneGraphProvider
\r
11 getCanvasContext :: ICanvasSceneGraphProvider -> ICanvasContext
\r
13 importJava "org.simantics.modeling.SCLScenegraph" where
\r
14 sceneGraphTest :: ICanvasContext -> String -> String -> <Proc> String
\r
16 getAllNodes :: ICanvasContext -> String
\r
18 getBoundsNodes :: ICanvasContext -> String
\r
20 getBackgroundNodes :: ICanvasContext -> String
\r
22 getDataNodes :: ICanvasContext -> String
\r
24 getNavigationNodes :: ICanvasContext -> String
\r
26 getParentNodes :: ICanvasContext -> String
\r
28 getDecorationNodes :: ICanvasContext -> String
\r
30 getSingleElementNodes :: ICanvasContext -> String
\r
32 getConnectionNodes :: ICanvasContext -> String
\r
34 getTextNodes :: ICanvasContext -> String
\r
36 getItemNodes :: ICanvasContext -> String
\r
38 @JavaName getNodeText
\r
39 getText :: ICanvasContext -> String -> String
\r
41 @JavaName getNodeCount
\r
42 getCount :: ICanvasContext -> String
\r
44 @JavaName getNodeTransform
\r
45 getTransform :: ICanvasContext -> String -> String
\r
47 getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider
\r
49 disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()
\r
51 editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String
\r
53 copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean
\r
55 getSceneGraphProvider :: Diagram -> <Proc> ICanvasSceneGraphProvider
\r
56 getSceneGraphProvider diagram = do
\r
57 diagramName = syncRead(\() -> getSafeName (toResource diagram))
\r
58 diagramRVI = "/" + diagramName
\r
59 model = syncRead(\() -> getPossibleModel (toResource diagram))
\r
60 composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
\r
61 getICanvasSceneGraphProvider model composite diagramRVI
\r
63 getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext
\r
64 getDiagramContext provider = do
\r
65 getCanvasContext provider
\r
67 getNodeTransform :: Diagram -> String -> <Proc> String
\r
68 getNodeTransform diagram nodeName = do
\r
69 diagramName = syncRead(\() -> getSafeName (toResource diagram))
\r
70 diagramRVI = "/" + diagramName
\r
71 model = syncRead(\() -> getPossibleModel (toResource diagram))
\r
72 composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
\r
73 provider = getICanvasSceneGraphProvider model composite diagramRVI
\r
74 context = getCanvasContext provider
\r
75 getTransform context nodeName
\r
77 getNodeText :: Diagram -> String -> <Proc> String
\r
78 getNodeText diagram nodeName = do
\r
79 diagramName = syncRead(\() -> getSafeName (toResource diagram))
\r
80 diagramRVI = "/" + diagramName
\r
81 model = syncRead(\() -> getPossibleModel (toResource diagram))
\r
82 composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
\r
83 provider = getICanvasSceneGraphProvider model composite diagramRVI
\r
84 context = getCanvasContext provider
\r
85 getText context nodeName
\r
87 getNodeCount :: Diagram -> <Proc> String
\r
88 getNodeCount diagram = do
\r
89 diagramName = syncRead(\() -> getSafeName (toResource diagram))
\r
90 diagramRVI = "/" + diagramName
\r
91 model = syncRead(\() -> getPossibleModel (toResource diagram))
\r
92 composite = syncRead(\() -> compositeToDiagram' (toResource diagram))
\r
93 provider = getICanvasSceneGraphProvider model composite diagramRVI
\r
94 context = getCanvasContext provider
\r