import "Visualization/Graphviz/AbstractTypes"
import "Visualization/Graphviz/Property"
import "JavaBuiltin" as Java

importJava "org.simantics.graphviz.Node" where
    data Node
    @JavaName "<init>"
    newPrimitiveNode :: IGraph -> <Proc> Node
    setLabel :: Node -> String -> <Proc> ()
    setShape :: Node -> String -> <Proc> ()
    @JavaName set
    setGenericProperty :: Node -> String -> String -> <Proc> ()
    
instance Identifiable Node where
    identifiable = Java.unsafeCoerce

applyNodeProperty :: Node -> Property -> <Proc> ()
applyNodeProperty graph (Label str) = setLabel graph str
applyNodeProperty graph (Shape str) = setShape graph str
applyNodeProperty graph (GenericProperty property str) = setGenericProperty graph property str
    
newNode :: IGraph a => a -> [Property] -> <Proc> Node
newNode graph properties = node
  where
    node = newPrimitiveNode (iGraph graph)
    for properties (applyNodeProperty node)