From 86ed44e3b3e9a09a7377a0b9a6e53b79e295c5e9 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Mon, 23 Oct 2017 10:31:16 +0200 Subject: Starting work on status/config/chat UI. --- src/battlemap/src/Update.elm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/battlemap/src/Update.elm') diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm index 754f7d4..6466ddf 100644 --- a/src/battlemap/src/Update.elm +++ b/src/battlemap/src/Update.elm @@ -2,6 +2,8 @@ module Update exposing (update) import Event +import UI + import Model import Model.RequestDirection import Model.SelectTile @@ -29,6 +31,6 @@ update event model = (Event.ScaleChangeRequested mod) -> if (mod == 0.0) then - ({model | ui_scale = 1.0}, Cmd.none) + ({model | ui = (UI.reset_zoom_level model.ui)}, Cmd.none) else - ({model | ui_scale = (mod * model.ui_scale)}, Cmd.none) + ({model | ui = (UI.mod_zoom_level model.ui mod)}, Cmd.none) -- cgit v1.2.3-70-g09d2