Start adding mouse control of inventory

src/Dodge/ListDisplayParams.hs

@@ -61,7 +61,7 @@ determineInvSelCursorWidth w = case _rbOptions w of
         | otherwise -> topInvW
   where
     hasnosubinv = case w ^? hud . hudElement . subInventory of
-        Just NoSubInventory -> True
+        Just NoSubInventory{} -> True
         _ -> False
 
 optionListDisplayParams :: ListDisplayParams