Continue mouse refactor, add explicit release event/timer

2024-11-19 12:00:31 +00:00
parent 5b709cd7ba
commit e31f6dfd4b
10 changed files with 97 additions and 75 deletions
@@ -24,16 +24,16 @@ data HUDElement
        }
    | DisplayCarte

-data MouseInventorySelection
-    = MouseInvSelect
-        {_misSelStart :: (Int, Int), _misMaybeEnd :: Maybe (Int, Int)}
-    | MouseInvDrag
-    | MouseInvNothing
+--data MouseInventorySelection
+--    = MouseInvSelect
+--        {_misSelStart :: (Int, Int), _misMaybeEnd :: Maybe (Int, Int)}
+--    | MouseInvDrag
+--    | MouseInvNothing

 data SubInventory
    = NoSubInventory
-        { _nsSelected :: MouseInventorySelection
-        }
+--        { _nsSelected :: MouseInventorySelection
+--        }
    | ExamineInventory
    | CombineInventory
        { _ciSections :: IntMap (SelectionSection CombinableItem)
@@ -54,4 +54,4 @@ data HUD = HUD
 makeLenses ''HUD
 makeLenses ''HUDElement
 makeLenses ''SubInventory
-makeLenses ''MouseInventorySelection
+--makeLenses ''MouseInventorySelection