| summaryrefslogtreecommitdiff | 
diff options
| author | nsensfel <SpamShield0@noot-noot.org> | 2018-09-13 17:50:58 +0200 | 
|---|---|---|
| committer | nsensfel <SpamShield0@noot-noot.org> | 2018-09-13 17:50:58 +0200 | 
| commit | 317037f9cca1109b4fb6825482c5bbb46b4c567b (patch) | |
| tree | b6c1ab434e40866797c88aa31f48ecbf17f9d487 /src/Struct/UI.elm | |
| parent | 9ec5806bc721734923ff4c93f7ef1f97a6a03248 (diff) | |
...
Diffstat (limited to 'src/Struct/UI.elm')
| -rw-r--r-- | src/Struct/UI.elm | 62 | 
1 files changed, 0 insertions, 62 deletions
| diff --git a/src/Struct/UI.elm b/src/Struct/UI.elm deleted file mode 100644 index 6cf853c..0000000 --- a/src/Struct/UI.elm +++ /dev/null @@ -1,62 +0,0 @@ -module Struct.UI exposing -   ( -      Type, -      Tab(..), -      default, -      -- Tab -      try_getting_displayed_tab, -      set_displayed_tab, -      reset_displayed_tab, -      to_string -   ) - --- Main Menu ------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- TYPES ----------------------------------------------------------------------- --------------------------------------------------------------------------------- -type Tab = -   CampaignsTab -   | InvasionsTab -   | EventsTab -   | CharactersTab -   | MapsEditorTab -   | AccountTab - -type alias Type = -   { -      displayed_tab : (Maybe Tab) -   } - --------------------------------------------------------------------------------- --- LOCAL ----------------------------------------------------------------------- --------------------------------------------------------------------------------- - --------------------------------------------------------------------------------- --- EXPORTED -------------------------------------------------------------------- --------------------------------------------------------------------------------- -default : Type -default = -   { -      displayed_tab = Nothing -   } - --- Tab ------------------------------------------------------------------------- -try_getting_displayed_tab : Type -> (Maybe Tab) -try_getting_displayed_tab ui = ui.displayed_tab - -set_displayed_tab : Tab -> Type -> Type -set_displayed_tab tab ui = {ui | displayed_tab = (Just tab)} - -reset_displayed_tab : Type -> Type -reset_displayed_tab ui = {ui | displayed_tab = Nothing} - -to_string : Tab -> String -to_string tab = -   case tab of -      CampaignsTab -> "Campaigns" -      InvasionsTab -> "Invasions" -      EventsTab -> "Events" -      CharactersTab -> "Character Editor" -      MapsEditorTab -> "Map Editor" -      AccountTab -> "Account Settings" | 


