1 import "Visualization/Graphviz/AbstractTypes"
2 import "Visualization/Graphviz/Property"
4 importJava "org.simantics.graphviz.Edge" where
7 newPrimitiveEdge :: Identifiable -> Identifiable -> <Proc> Edge
8 setLabel :: Edge -> String -> <Proc> ()
10 setGenericProperty :: Edge -> String -> String -> <Proc> ()
12 applyEdgeProperty :: Edge -> Property -> <Proc> ()
13 applyEdgeProperty graph (Label str) = setLabel graph str
14 applyEdgeProperty graph (GenericProperty property str) = setGenericProperty graph property str
16 newEdge :: Identifiable a => Identifiable b => a -> b -> [Property] -> <Proc> Edge
17 newEdge node1 node2 properties = edge
19 edge = newPrimitiveEdge (identifiable node1) (identifiable node2)
20 for properties (applyEdgeProperty edge)