I use cascading lists of ul and li elements (nodes) to create a navigation tree menu.
I keep a list of which nodes are open in my model, and when I click on a node, I toggle its presence in the list of open nodes. I can then display or hide relevant nodes depending on whether they are open or not. onoffstyle : List String -> String -> Attribute Msg onoffstyle openNodes s = let oright = filter (\o -> o==s) openNodes in case (isEmpty oright) of True -> style [("display","none")] _ -> style [("display","block")] I set up a cascading list as follows with ul and li to create a tree menu. 'Crumple' is the message I use to toggle the open node list. drivers : Model -> Html Msg drivers m = li [S.listyle,onClick (Crumple "drivers") ] [text "Software Drivers" , ul [S.ulstyle,S.onoffstyle m.opens "drivers"] [text "R" ,li [onClick (Crumple "drivers1")] [text "Drivers 1"] ,li [onClick (Crumple "drivers2")] [text "Drivers 2"] ,ul [] [text "A" ,hr[][] ,text "B"] ] ] However, even if I click on one of the innermost tree items, let us say, the "A" node, the onClick event in the outermost li fires (top line of the code). Is that correct behaviour? It didn't happen in 0.14, but does in 0.17, throwing my navigation out of sync. If it is correct behaviour, how would I get round it? Thanks. -- You received this message because you are subscribed to the Google Groups "Elm Discuss" group. To unsubscribe from this group and stop receiving emails from it, send an email to elm-discuss+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.