From ef7fd312bedae718ab5070cda7e73e48d1a255cb Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Fri, 4 Sep 2020 13:33:35 +0200
Subject: Uncommitted changes.

---
 src/roster-editor/src/Struct/UI.elm     | 12 ++++++++++++
 src/roster-editor/src/View/MainMenu.elm |  5 ++++-
 2 files changed, 16 insertions(+), 1 deletion(-)

(limited to 'src/roster-editor')

diff --git a/src/roster-editor/src/Struct/UI.elm b/src/roster-editor/src/Struct/UI.elm
index 33e1181..1bc86bb 100644
--- a/src/roster-editor/src/Struct/UI.elm
+++ b/src/roster-editor/src/Struct/UI.elm
@@ -7,6 +7,7 @@ module Struct.UI exposing
       get_displayed_tab,
       set_displayed_tab,
       reset_displayed_tab,
+      tab_to_class_name,
       -- Which glyph slot is being edited?
       set_glyph_slot,
       get_glyph_slot
@@ -55,6 +56,17 @@ set_displayed_tab tab ui = {ui | displayed_tab = tab}
 reset_displayed_tab : Type -> Type
 reset_displayed_tab ui = {ui | displayed_tab = CharacterSelectionTab}
 
+tab_to_class_name : Tab -> String
+tab_to_class_name tab =
+   case tab of
+   CharacterSelectionTab -> "characters"
+   PortraitSelectionTab -> "portraits"
+   WeaponSelectionTab -> "weapons"
+   ArmorSelectionTab -> "armors"
+   GlyphSelectionTab -> "glyphes"
+   GlyphBoardSelectionTab -> "glyphboards"
+   GlyphManagementTab -> "glyphmanagement"
+
 get_glyph_slot : Type -> (Int, Int)
 get_glyph_slot ui = ui.glyph_slot
 
diff --git a/src/roster-editor/src/View/MainMenu.elm b/src/roster-editor/src/View/MainMenu.elm
index b40d706..d79e05c 100644
--- a/src/roster-editor/src/View/MainMenu.elm
+++ b/src/roster-editor/src/View/MainMenu.elm
@@ -21,7 +21,10 @@ import Struct.UI
 get_main_menu_button_html : (Html.Html Struct.Event.Type)
 get_main_menu_button_html =
    (Html.button
-      [ (Html.Events.onClick Struct.Event.GoToMainMenu) ]
+      [
+         (Html.Events.onClick Struct.Event.GoToMainMenu),
+         (Html.Attributes.class "main-menu")
+      ]
       [ (Html.text "Main Menu") ]
    )
 
-- 
cgit v1.2.3-70-g09d2