summaryrefslogtreecommitdiff |
diff options
author | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-26 19:13:04 +0200 |
---|---|---|
committer | Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org> | 2017-09-26 19:13:04 +0200 |
commit | 33e57128d48a012533c42635f52037fcdedd4c56 (patch) | |
tree | 05deb83b77311d25168e5966c14c1bf20f17fb79 /client/elm/battlemap/src/View/Controls.elm | |
parent | 9293fb062b0bf66995c72b30e037c762318be000 (diff) |
Range indicators are now clickable.
Diffstat (limited to 'client/elm/battlemap/src/View/Controls.elm')
-rw-r--r-- | client/elm/battlemap/src/View/Controls.elm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/client/elm/battlemap/src/View/Controls.elm b/client/elm/battlemap/src/View/Controls.elm index 203fcdb..be698bf 100644 --- a/client/elm/battlemap/src/View/Controls.elm +++ b/client/elm/battlemap/src/View/Controls.elm @@ -5,27 +5,27 @@ import Html.Events import Battlemap.Direction -import Update +import Event -direction_button : Battlemap.Direction.Type -> String -> (Html.Html Update.Type) +direction_button : Battlemap.Direction.Type -> String -> (Html.Html Event.Type) direction_button dir label = (Html.button [ (Html.Events.onClick - (Update.DirectionRequest dir) + (Event.DirectionRequest dir) ) ] [ (Html.text label) ] ) -end_turn_button : (Html.Html Update.Type) +end_turn_button : (Html.Html Event.Type) end_turn_button = (Html.button - [ (Html.Events.onClick Update.EndTurn) ] + [ (Html.Events.onClick Event.EndTurn) ] [ (Html.text "End Turn") ] ) -view : (List (Html.Html Update.Type)) +view : (List (Html.Html Event.Type)) view = [ (direction_button Battlemap.Direction.Left "Left"), |