Readd space action on buttons

2024-11-24 23:34:03 +00:00
parent 7d2a4bf439
commit 9e0f0536e2
9 changed files with 125 additions and 148 deletions
@@ -224,7 +224,7 @@ yourAugmentedItem f x g w = case you w ^? crManipulation . manObject of
        return . g $ Left flit
 --        g . Left $ w ^?! hud . closeItems . ix i
    Just (SelCloseButton i) -> fromMaybe x $ do
-        j <- w ^? hud . closeInterfaces . ix i
+        j <- w ^? hud . closeButtons . ix i
        flit <- w ^? cWorld . lWorld . buttons . ix j
        return . g $ Right flit
    _ -> x