Range indicators are now clickable.

1 files changed, 8 insertions, 8 deletions

diff --git a/client/elm/battlemap/src/Battlemap/Html.elm b/client/elm/battlemap/src/Battlemap/Html.elm
index f67bdf0..6506c0f 100644
--- a/client/elm/battlemap/src/Battlemap/Html.elm
+++ b/client/elm/battlemap/src/Battlemap/Html.elm
@@ -9,12 +9,12 @@ import Battlemap
 import Battlemap.Tile
 import Battlemap.Direction
 
-import Update
+import Event
 
 type alias GridBuilder =
    {
-      row : (List (Html.Html Update.Type)),
-      columns : (List (Html.Html Update.Type)),
+      row : (List (Html.Html Event.Type)),
+      columns : (List (Html.Html Event.Type)),
       row_size : Int,
       bmap : Battlemap.Type
    }
@@ -28,12 +28,12 @@ nav_level_to_text t =
       Battlemap.Direction.Down -> "D"
       Battlemap.Direction.None -> (toString t.floor_level)
 
-view_battlemap_cell : Battlemap.Tile.Type -> (Html.Html Update.Type)
+view_battlemap_cell : Battlemap.Tile.Type -> (Html.Html Event.Type)
 view_battlemap_cell t =
    case t.char_level of
       Nothing ->
          (Html.td
-            []
+            [ (Html.Events.onClick (Event.SelectTile t.location)) ]
             [
                (Html.text
                   (case t.mod_level of
@@ -47,7 +47,7 @@ view_battlemap_cell t =
          )
       (Just char_id) ->
          (Html.td
-            [ (Html.Events.onClick (Update.SelectCharacter char_id)) ]
+            [ (Html.Events.onClick (Event.SelectCharacter char_id)) ]
             [
                (Html.text ("[" ++ char_id ++ "]")),
                (Html.text (nav_level_to_text t))
@@ -73,7 +73,7 @@ foldr_to_html t gb =
          row_size = (gb.row_size + 1)
       }
 
-grid_builder_to_html : GridBuilder -> (List (Html.Html Update.Type))
+grid_builder_to_html : GridBuilder -> (List (Html.Html Event.Type))
 grid_builder_to_html gb =
    if (gb.row_size == 0)
    then
@@ -81,7 +81,7 @@ grid_builder_to_html gb =
    else
      ((Html.tr [] gb.row) :: gb.columns)
 
-view : Battlemap.Type -> (Html.Html Update.Type)
+view : Battlemap.Type -> (Html.Html Event.Type)
 view battlemap =
    (Html.table
       []