#(from PwGridRefine.glf)


# --------------------------------------------------------------------------
# Get connectors used by a domain
proc getConnectors { domain } {
  set conns [list]
  set edgeCount [$domain getEdgeCount]
  for {set i 1} {$i <= $edgeCount} {incr i} {
    set edge [$domain getEdge $i]
    set connectorCount [$edge getConnectorCount]
    for {set j 1} {$j <= $connectorCount} {incr j} {
      lappend conns [$edge getConnector $j]
    }
  }
  return $conns
}