Fix scroll selection of floor items and buttons

2022-12-25 23:37:42 +00:00
parent 2ae7f2bbc1
commit d2141d90ae
13 changed files with 75 additions and 126 deletions
@@ -44,7 +44,7 @@ accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = case mtmid of
    Nothing -> w
    Just tmid ->
-        w & cWorld . lWorld . hud . hudElement .~ DisplayInventory (DisplayTerminal tmid)
+        w & cWorld . lWorld . hud . hudElement . subInventory .~ DisplayTerminal tmid
            & cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus .~ True
            & cWorld . lWorld . terminals . ix tmid %~ tryToBoot
      where