From b82d435a2d720deaa11b9fc0679cf507ee867a2b Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 21 Oct 2017 17:53:08 +0200
Subject: Adds controls for the UI scaling.

---
 src/battlemap/src/Update.elm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/battlemap/src/Update.elm')

diff --git a/src/battlemap/src/Update.elm b/src/battlemap/src/Update.elm
index 7ee61a3..754f7d4 100644
--- a/src/battlemap/src/Update.elm
+++ b/src/battlemap/src/Update.elm
@@ -25,3 +25,10 @@ update event model =
 
       Event.TurnEnded ->
          ((Model.EndTurn.apply_to new_model), Cmd.none)
+
+      (Event.ScaleChangeRequested mod) ->
+         if (mod == 0.0)
+         then
+            ({model | ui_scale = 1.0}, Cmd.none)
+         else
+            ({model | ui_scale = (mod * model.ui_scale)}, Cmd.none)
-- 
cgit v1.2.3-70-g09d2