From 8c1eb9f77f8a9833694e7ca90c1d16559f79c8fe Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Fri, 15 Nov 2024 23:43:56 +0000
Subject: [PATCH] remove scroll buttons and message

no need for it, dragging works fine
---
 frontend/src/Main.elm | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/frontend/src/Main.elm b/frontend/src/Main.elm
index 62f6080..a991068 100644
--- a/frontend/src/Main.elm
+++ b/frontend/src/Main.elm
@@ -180,7 +180,6 @@ type Msg
   = MapZoomIn
   | MapZoomOut
   | MapScale Float
-  | Scroll Int Int
   | PointerDown (Int, Int)
   | PointerMove (Int, Int)
   | PointerUp (Int, Int)
@@ -205,8 +204,6 @@ newModel msg model =
         MapScale y ->
             let dir = floor(abs(y)/y)
             in { model | zoom = incZoom model.zoom dir }
-        Scroll x y ->
-            { model | centre = translatePixels model.centre (toZoom model.zoom) (x,y) }
 
         PointerDown (x,y) ->
             { model | drag = Dragging (x,y) (x,y) }
@@ -448,10 +445,6 @@ viewDiv model =
               , span []
                   [ button [ onClick MapZoomOut ] [ text "-" ]
                   , button [ onClick MapZoomIn ] [ text "+" ]
-                  , button [ onClick (Scroll 0 -10) ] [ text "^" ]
-                  , button [ onClick (Scroll 0 10) ] [ text "V" ]
-                  , button [ onClick (Scroll -10 0) ] [ text "<" ]
-                  , button [ onClick (Scroll 10 0) ] [ text ">" ]
                   ]
               ]
         , div [ style "display" "flex"