From 96d7905f7faef941f5454fd2c8b0b50a294fd26c Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 18 Oct 2017 20:59:41 +0200
Subject: Borked mouse controls for the navigator, it seems.

---
 elm/battlemap/src/View/Battlemap/Navigator.elm | 17 +++++++++++
 elm/battlemap/src/View/Battlemap/Tile.elm      | 39 ++++++++++++++++++++++++++
 2 files changed, 56 insertions(+)
 create mode 100644 elm/battlemap/src/View/Battlemap/Navigator.elm
 create mode 100644 elm/battlemap/src/View/Battlemap/Tile.elm

(limited to 'elm/battlemap/src/View/Battlemap')

diff --git a/elm/battlemap/src/View/Battlemap/Navigator.elm b/elm/battlemap/src/View/Battlemap/Navigator.elm
new file mode 100644
index 0000000..4180e6d
--- /dev/null
+++ b/elm/battlemap/src/View/Battlemap/Navigator.elm
@@ -0,0 +1,17 @@
+module View.Battlemap.Navigator exposing (get_html)
+
+import Html
+--import Html.Attributes
+--import Html.Events
+
+--import Battlemap.Location
+import Battlemap.Navigator
+
+import Event
+
+get_html : (
+      Int ->
+      Battlemap.Navigator.Summary ->
+      (List (Html.Html Event.Type))
+   )
+get_html tile_size nav_summary = []
diff --git a/elm/battlemap/src/View/Battlemap/Tile.elm b/elm/battlemap/src/View/Battlemap/Tile.elm
new file mode 100644
index 0000000..d38d84e
--- /dev/null
+++ b/elm/battlemap/src/View/Battlemap/Tile.elm
@@ -0,0 +1,39 @@
+module View.Battlemap.Tile exposing (get_html)
+
+import Html
+import Html.Attributes
+import Html.Events
+
+import Battlemap.Tile
+import Battlemap.Location
+
+import Event
+
+get_html : (
+      Int ->
+      Battlemap.Tile.Type ->
+      (Html.Html Event.Type)
+   )
+get_html tile_size tile =
+   let
+      tile_loc = (Battlemap.Tile.get_location tile)
+   in
+      (Html.div
+         [
+            (Html.Attributes.class "battlemap-tile-icon"),
+            (Html.Attributes.class
+               ("asset-tile-" ++ (toString (Battlemap.Tile.get_icon_id tile)))
+            ),
+            (Html.Events.onClick
+               (Event.TileSelected (Battlemap.Location.get_ref tile_loc))
+            ),
+            (Html.Attributes.style
+               [
+                  ("top", ((toString (tile_loc.y * tile_size)) ++ "px")),
+                  ("left", ((toString (tile_loc.x * tile_size)) ++ "px"))
+               ]
+            )
+         ]
+         [
+         ]
+      )
-- 
cgit v1.2.3-70-g09d2