Move button data

2022-07-21 18:22:08 +01:00
parent aabd8a2cb8
commit b58444f931
16 changed files with 185 additions and 89 deletions
@@ -4,6 +4,7 @@ module Dodge.Event.Keyboard
    , handleTextInput
    , guardDisconnectedID
    ) where
+import Dodge.Button.Event
 import Dodge.Terminal
 import Dodge.InputFocus
 import Dodge.Base
@@ -128,7 +129,7 @@ spaceAction w = case _hudElement $ _hud w of
    DisplayCarte -> w & hud . carteCenter .~ theLoc
    DisplayInventory NoSubInventory -> case selectedCloseObject w of
        Just (_,Left flit) -> pickUpItem 0 flit w
-        Just (_,Right but) -> _btEvent but but w
+        Just (_,Right but) -> doButtonEvent (_btEvent but) but w
        _                  -> w
    DisplayInventory DisplayTerminal {} -> w & hud . hudElement .~ DisplayInventory NoSubInventory
    _ -> w & hud . hudElement .~ DisplayInventory NoSubInventory