Improve configuration handling

src/Dodge/Event.hs

@@ -57,8 +57,8 @@ handleMouseButtonEvent mbev w = case mouseButtonEventMotion mbev of
     where but = mouseButtonEventButton mbev
 
 handleMouseWheelEvent :: MouseWheelEventData -> World -> Maybe World
-handleMouseWheelEvent mwev w = case _menuState w of
-   InGame -> case mouseWheelEventPos mwev of
+handleMouseWheelEvent mwev w = case _menuLayers w of
+   [] -> case mouseWheelEventPos mwev of
         V2 x y | y > 0      -> Just (wheelUpEvent w)
                | y < 0      -> Just (wheelDownEvent w)
                | otherwise  -> Just w