| summaryrefslogtreecommitdiff |
diff options
| author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-10-21 17:53:08 +0200 |
|---|---|---|
| committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-10-21 17:53:08 +0200 |
| commit | b82d435a2d720deaa11b9fc0679cf507ee867a2b (patch) | |
| tree | 5872d0eaca2948ffab1d465167da33aceaecfae8 /src/battlemap/src/Update.elm | |
| parent | b034928ca9a5540f630b7746b8972e582701f82b (diff) | |
Adds controls for the UI scaling.
Diffstat (limited to 'src/battlemap/src/Update.elm')
| -rw-r--r-- | src/battlemap/src/Update.elm | 7 |
1 files changed, 7 insertions, 0 deletions
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) |