Reimplement dragging upwards with mouse

2024-10-25 10:29:27 +01:00
parent 388064895f
commit 0c5a21765a
10 changed files with 204 additions and 187 deletions
@@ -222,7 +222,8 @@ disconnectTerminal tm =

 exitTerminalSubInv :: World -> World
 exitTerminalSubInv w = case w ^? hud . hudElement . subInventory . termID of
-    Just _ -> w & hud . hudElement . subInventory .~ NoSubInventory NoMouseSel Nothing
+    Just _ -> w & hud . hudElement . subInventory 
+        .~ NoSubInventory MouseInvNothing Nothing
    _ -> w

 damageCodeCommand :: TerminalCommand