Tweak scrolling, particularly zooming

2023-01-07 19:50:44 +00:00
parent 6b259fa200
commit d4122b2d6f
7 changed files with 42 additions and 37 deletions
@@ -330,8 +330,12 @@ menuWheelStep i u = fromMaybe u $ do
        then Just newu
        else Just $ menuWheelStep i newu

+--updateWheelEvents :: World -> World
+--updateWheelEvents w = foldr ($) w (replicate (abs y) (updateWheelEvent (signum y)))
+--  where
+--    y = w ^. input . scrollAmount
 updateWheelEvents :: World -> World
-updateWheelEvents w = foldr ($) w (replicate (abs y) (updateWheelEvent (signum y)))
+updateWheelEvents w = updateWheelEvent y w
  where
    y = w ^. input . scrollAmount