| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-05 22:29:44 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2018-09-05 22:29:44 +0200 |
| commit | ab2a37813d6c2cd6554c4a6b0e5b93b3214d61e7 (patch) | |
| tree | 98608783ccf120ecbfc9f41ba91ff4306bad20cc /src/battle/src/View | |
| parent | 0b32c52d35e48dfd24ebf87357c8da0ea28794c2 (diff) | |
Adds "Main Menu" buttons.
Diffstat (limited to 'src/battle/src/View')
| -rw-r--r-- | src/battle/src/View/MainMenu.elm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/src/battle/src/View/MainMenu.elm b/src/battle/src/View/MainMenu.elm index 9f3099b..96bf539 100644 --- a/src/battle/src/View/MainMenu.elm +++ b/src/battle/src/View/MainMenu.elm @@ -12,16 +12,20 @@ import Struct.UI -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- -get_menu_button_html : ( - Struct.UI.Tab -> - (Html.Html Struct.Event.Type) - ) +get_menu_button_html : Struct.UI.Tab -> (Html.Html Struct.Event.Type) get_menu_button_html tab = (Html.button [ (Html.Events.onClick (Struct.Event.TabSelected tab)) ] [ (Html.text (Struct.UI.to_string tab)) ] ) +get_main_menu_button_html : (Html.Html Struct.Event.Type) +get_main_menu_button_html = + (Html.button + [ (Html.Events.onClick Struct.Event.GoToMainMenu) ] + [ (Html.text "Main Menu") ] + ) + -------------------------------------------------------------------------------- -- EXPORTED -------------------------------------------------------------------- -------------------------------------------------------------------------------- @@ -31,8 +35,12 @@ get_html = [ (Html.Attributes.class "battle-main-menu") ] - (List.map - (get_menu_button_html) - (Struct.UI.get_all_tabs) + ( + (get_main_menu_button_html) + :: + (List.map + (get_menu_button_html) + (Struct.UI.get_all_tabs) + ) ) ) |