Work on mouse selection in menus

src/Dodge/Menu.hs

@@ -4,6 +4,7 @@ module Dodge.Menu (
     splashMenu,
 ) where
 
+import ShortShow
 import Control.Monad
 import Dodge.Concurrent
 import Dodge.Config.Update
@@ -33,6 +34,7 @@ splashMenuOptions =
     basicKeyOptions
         [ Toggle ( loadSaveSlot (SaveSlotNum 0)) displaycontinue
         , Toggle id (\u -> MODString $ show $ u ^? uvScreenLayers . _head . scSelPos . _Just)
+        , Toggle id (\u -> MODString $ shortShow $ u ^. uvWorld . input . mousePos)
         , Toggle ( startNewGameInSlot 0) (opText "NEW WITH RANDOM SEED")
         , Toggle reloadLevelStart (displaywhenseed "NEW WITH LAST SEED")
         , Toggle (pushScreen $ seedStartMenu "START FROM SEED") (opText "NEW WITH SPECIFIC SEED")