bfs.jl

using ThreeJS
using Escher
using LightGraphs
using NetworkViz

g = CompleteGraph(10)
drawGraph(g,1)

@show typeof(g)

main(window) = begin
    start = true
    push!(window.assets, "widgets")
    push!(window.assets,("ThreeJS","threejs"))
    inp = Signal(Dict())
    s = Escher.sampler()
    form = vbox(
        trigger!(s, :submit, button("BFS")),
    ) |> maxwidth(400px)
    map(inp) do dict
      vbox(
        intent(s,form) >>> inp,
        vskip(2em),
      )
      drawIt(start)
      start = false
    end
end

function drawIt(start)
  if start
    drawGraph(g,1)
  else
    drawGraph(bfs_tree(g),1)
  end
end