Commit 2e58c066 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[TREE] Design in Graph Viz.

parent cba19f3b
...@@ -412,7 +412,7 @@ specOld = fold [treespec treeSpec, graphspec $ simpleSpec performAction render'] ...@@ -412,7 +412,7 @@ specOld = fold [treespec treeSpec, graphspec $ simpleSpec performAction render']
where where
treespec = over _render \frender d p (State s) c -> treespec = over _render \frender d p (State s) c ->
[ div [ className "col-md-1", _id "graph-tree", style {marginTop: "65px"}] $ [ div [ className "col-md-2", _id "graph-tree", style {marginTop: "65px"}] $
[ [
button [className "btn btn-primary" , onClick \_ -> d ToggleTree] button [className "btn btn-primary" , onClick \_ -> d ToggleTree]
[text $ if s.showTree then "Hide Tree" else "Show Tree"] [text $ if s.showTree then "Hide Tree" else "Show Tree"]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment