souplesse

commit 8c1eb9f77f8a9833694e7ca90c1d16559f79c8fe
parent baf3046149610555eee371a0b9200fad5d97aeba
Author: Daniel Barlow <dan@telent.net>
Date:   Fri, 15 Nov 2024 23:43:56 +0000

remove scroll buttons and message

no need for it, dragging works fine

Diffstat:
M
frontend/src/Main.elm
 | 
7
-------

1 file changed, 0 insertions(+), 7 deletions(-)
diff --git 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"