import "Visualization/Graphviz/AbstractTypes"
import "Visualization/Graphviz/Property"

importJava "org.simantics.graphviz.Edge" where
    data Edge
    @JavaName "<init>"
    newPrimitiveEdge :: Identifiable -> Identifiable -> <Proc> Edge
    setLabel :: Edge -> String -> <Proc> ()
    @JavaName set
    setGenericProperty :: Edge -> String -> String -> <Proc> ()
    
applyEdgeProperty :: Edge -> Property -> <Proc> ()
applyEdgeProperty graph (Label str) = setLabel graph str
applyEdgeProperty graph (GenericProperty property str) = setGenericProperty graph property str
    
newEdge :: Identifiable a => Identifiable b => a -> b -> [Property] -> <Proc> Edge
newEdge node1 node2 properties = edge
  where
    edge = newPrimitiveEdge (identifiable node1) (identifiable node2)
    for properties (applyEdgeProperty edge)