Remove explicit scancode from menu items

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
     }