summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/map-editor')
-rw-r--r-- | src/map-editor/src/ElmModule/Update.elm | 7 | ||||
-rw-r--r-- | src/map-editor/src/Struct/Event.elm | 1 | ||||
-rw-r--r-- | src/map-editor/src/Struct/UI.elm | 2 | ||||
-rw-r--r-- | src/map-editor/src/Update/GoToMainMenu.elm | 24 | ||||
-rw-r--r-- | src/map-editor/src/View/MainMenu.elm | 22 | ||||
-rw-r--r-- | src/map-editor/src/View/SubMenu/Settings.elm | 6 | ||||
-rw-r--r-- | src/map-editor/www/index.html | 2 |
7 files changed, 54 insertions, 10 deletions
diff --git a/src/map-editor/src/ElmModule/Update.elm b/src/map-editor/src/ElmModule/Update.elm index bc84f5b..850e659 100644 --- a/src/map-editor/src/ElmModule/Update.elm +++ b/src/map-editor/src/ElmModule/Update.elm @@ -8,15 +8,17 @@ import Struct.Model import Update.ChangeScale import Update.ClearToolboxSelection +import Update.GoToMainMenu import Update.HandleServerReply import Update.PrettifySelectedTiles -import Update.SendMapUpdate import Update.SelectTab import Update.SelectTile +import Update.SendMapUpdate import Update.SetRequestedHelp import Update.SetToolboxMode import Update.SetToolboxShape import Update.SetToolboxTemplate + -------------------------------------------------------------------------------- -- LOCAL ----------------------------------------------------------------------- -------------------------------------------------------------------------------- @@ -75,3 +77,6 @@ update event model = Struct.Event.SendMapUpdateRequested -> (Update.SendMapUpdate.apply_to new_model) + + Struct.Event.GoToMainMenu -> + (Update.GoToMainMenu.apply_to new_model) diff --git a/src/map-editor/src/Struct/Event.elm b/src/map-editor/src/Struct/Event.elm index d0d84e1..449f590 100644 --- a/src/map-editor/src/Struct/Event.elm +++ b/src/map-editor/src/Struct/Event.elm @@ -28,6 +28,7 @@ type Type = | TemplateRequested (Int, Int) | PrettifySelectionRequested | SendMapUpdateRequested + | GoToMainMenu attempted : (Result.Result err val) -> Type attempted act = diff --git a/src/map-editor/src/Struct/UI.elm b/src/map-editor/src/Struct/UI.elm index fe7b700..b35a60a 100644 --- a/src/map-editor/src/Struct/UI.elm +++ b/src/map-editor/src/Struct/UI.elm @@ -51,7 +51,7 @@ default : Type default = { zoom_level = 1.0, - displayed_tab = Nothing, + displayed_tab = (Just TilesTab), previous_action = Nothing } diff --git a/src/map-editor/src/Update/GoToMainMenu.elm b/src/map-editor/src/Update/GoToMainMenu.elm new file mode 100644 index 0000000..f2ec989 --- /dev/null +++ b/src/map-editor/src/Update/GoToMainMenu.elm @@ -0,0 +1,24 @@ +module Update.GoToMainMenu exposing (apply_to) +-- Elm ------------------------------------------------------------------------- + +-- Battle ---------------------------------------------------------------------- +import Action.Ports + +import Constants.IO + +import Struct.Model +import Struct.Event + +-------------------------------------------------------------------------------- +-- LOCAL ----------------------------------------------------------------------- +-------------------------------------------------------------------------------- + +-------------------------------------------------------------------------------- +-- EXPORTED -------------------------------------------------------------------- +-------------------------------------------------------------------------------- +apply_to : Struct.Model.Type -> (Struct.Model.Type, (Cmd Struct.Event.Type)) +apply_to model = + ( + model, + (Action.Ports.go_to (Constants.IO.base_url ++"/main-menu/")) + ) diff --git a/src/map-editor/src/View/MainMenu.elm b/src/map-editor/src/View/MainMenu.elm index b9a8922..fd5801e 100644 --- a/src/map-editor/src/View/MainMenu.elm +++ b/src/map-editor/src/View/MainMenu.elm @@ -31,8 +31,24 @@ get_html = [ (Html.Attributes.class "map-main-menu") ] - (List.map - (get_menu_button_html) - (Struct.UI.get_all_tabs) + ( + ( + (Html.button + [ (Html.Events.onClick Struct.Event.GoToMainMenu) ] + [ (Html.text "Main Menu") ] + ) + :: + (List.map + (get_menu_button_html) + (Struct.UI.get_all_tabs) + ) + ) + ++ + [ + (Html.button + [ (Html.Events.onClick Struct.Event.SendMapUpdateRequested) ] + [ (Html.text "Save Map") ] + ) + ] ) ) diff --git a/src/map-editor/src/View/SubMenu/Settings.elm b/src/map-editor/src/View/SubMenu/Settings.elm index 98405d0..1661053 100644 --- a/src/map-editor/src/View/SubMenu/Settings.elm +++ b/src/map-editor/src/View/SubMenu/Settings.elm @@ -36,10 +36,6 @@ get_html model = [ (scale_button (0.75) "Zoom -"), (scale_button 0 "Zoom Reset"), - (scale_button (1.15) "Zoom +"), - (Html.button - [ (Html.Events.onClick Struct.Event.SendMapUpdateRequested) ] - [ (Html.text "Save Map") ] - ) + (scale_button (1.15) "Zoom +") ] ) diff --git a/src/map-editor/www/index.html b/src/map-editor/www/index.html index 80b147d..3828b22 100644 --- a/src/map-editor/www/index.html +++ b/src/map-editor/www/index.html @@ -9,6 +9,7 @@ <script src="script/main.js"></script> <script src="../global/script/session.js"></script> <script src="../global/script/urlparams.js"></script> + <script src="../global/script/navigation.js"></script> <script> tacticians_online.session.load(); @@ -23,6 +24,7 @@ ); tacticians_online.session.attach_to(tacticians_online.app); + tacticians_online.navigation.attach_to(tacticians_online.app); </script> </body> </html> |