Remove explicit scancode from menu items

src/Dodge/Data/Input.hs

@@ -17,6 +17,7 @@ data PressType = InitialPress
 
 data Input = Input
     { _mousePos :: Point2
+    , _mouseMoving :: Bool
     , _pressedKeys :: M.Map Scancode PressType
     , _mouseButtons :: M.Map MouseButton Bool
     , _scrollAmount         :: Int

src/Dodge/Data/SelectionList.hs

@@ -16,6 +16,7 @@ data SelectionList = SelectionList
     , _slSelPos :: Maybe Int
     , _slCursorType :: CursorType
     , _slWidth :: SelectionWidth
+    , _slLength :: Int
     }
 
 data SelectionWidth = FixedSelectionWidth Int
@@ -28,6 +29,7 @@ data SelectionItem = SelectionItem
     { _siPictures :: [Picture]
     , _siHeight :: Int
     , _siIsSelectable :: Bool
+    , _siWidth  :: Int
     , _siColor  :: Color
     , _siOffX   :: Int
     }

src/Dodge/Data/Universe.hs

@@ -81,17 +81,14 @@ data MenuOption
     = Toggle
         { _moEff :: Universe -> Universe
         , _moString :: Universe -> MenuOptionDisplay
-        , _moKey :: Scancode
         }
     | Toggle2
-        { _moKey1 :: Scancode
-        , _moEff1 :: Universe -> Universe
-        , _moKey2 :: Scancode
+        { _moEff1 :: Universe -> Universe
         , _moEff2 :: Universe -> Universe
         , _moString :: Universe -> MenuOptionDisplay
         }
     | InvisibleToggle
-        { _moKey :: Scancode
+        { _moChar :: Scancode
         , _moEff :: Universe -> Universe
         }