bundles/org.simantics.modeling/scl/Simantics/Scenegraph.scl

   1 import "Simantics/DB"\r
   2 import "Simantics/Diagram"\r
   3 import "Simantics/Rename"\r
   4 \r
   5 importJava "org.simantics.g2d.canvas.ICanvasContext" where\r
   6     data ICanvasContext\r
   7     \r
   8 importJava "org.simantics.g2d.scenegraph.ICanvasSceneGraphProvider" where\r
   9     data ICanvasSceneGraphProvider\r
  10     \r
  11     getCanvasContext :: ICanvasSceneGraphProvider -> ICanvasContext \r
  12 \r
  13 importJava "org.simantics.modeling.SCLScenegraph" where\r
  14     sceneGraphTest :: ICanvasContext -> String -> String -> <Proc> String\r
  15 \r
  16     getAllNodes :: ICanvasContext -> String\r
  17     \r
  18     getBoundsNodes :: ICanvasContext -> String\r
  19     \r
  20     getBackgroundNodes :: ICanvasContext -> String\r
  21     \r
  22     getDataNodes :: ICanvasContext -> String\r
  23     \r
  24     getNavigationNodes :: ICanvasContext -> String\r
  25     \r
  26     getParentNodes :: ICanvasContext -> String\r
  27     \r
  28     getDecorationNodes :: ICanvasContext -> String\r
  29 \r
  30     getSingleElementNodes :: ICanvasContext -> String\r
  31     \r
  32     getConnectionNodes :: ICanvasContext -> String\r
  33     \r
  34     getTextNodes :: ICanvasContext -> String\r
  35     \r
  36     getItemNodes :: ICanvasContext -> String\r
  37     \r
  38     @JavaName getNodeText\r
  39     getText :: ICanvasContext -> String -> String \r
  40     \r
  41     @JavaName getNodeCount\r
  42     getCount :: ICanvasContext -> String\r
  43     \r
  44     @JavaName getNodeTransform\r
  45     getTransform :: ICanvasContext -> String -> String\r
  46     \r
  47     getICanvasSceneGraphProvider :: Model -> Resource -> String -> ICanvasSceneGraphProvider\r
  48     \r
  49     disposeSceneGraphProvider :: ICanvasSceneGraphProvider -> ()\r
  50     \r
  51     editNodeText :: ICanvasContext -> String -> String -> String -> <Proc> String\r
  52     \r
  53     copyPaste :: ICanvasContext -> ICanvasContext -> [Resource] -> <Proc> Boolean\r
  54 \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
  62 \r
  63 getDiagramContext :: ICanvasSceneGraphProvider -> ICanvasContext\r
  64 getDiagramContext provider = do\r
  65     getCanvasContext provider\r
  66     \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
  76     \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
  86 \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
  95     getCount context\r