Fix scroll selection of floor items and buttons

src/Dodge/Update.hs

@@ -6,6 +6,7 @@ Description : Simulation update
 -}
 module Dodge.Update (updateUniverse) where
 
+--import Dodge.Inventory.SelectionList
 import Color
 import Control.Applicative
 import Data.List
@@ -293,8 +294,13 @@ functionalUpdate w =
         . over uvWorld updateRBList
         . over uvWorld updateCloseObjects
         . over uvWorld updateWheelEvents
+        -- . over uvWorld updateInventorySelectionList
         $ over uvWorld updatePastWorlds w
 
+--updateInventorySelectionList :: World -> World
+--updateInventorySelectionList w = w
+--    & cWorld . lWorld . hud . hudElement . augmentedInventory .~ makeInventorySelectionList w
+
 -- this can probably be unified with updateWheelEvents
 menuWheelEvents :: Universe -> Universe
 menuWheelEvents u = foldr ($) u (replicate (abs y) (menuWheelStep (signum y)))