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