Allow more drag selection to work

2025-08-25 13:30:04 +01:00
parent a2c32907f0
commit 58c645041f
5 changed files with 72 additions and 57 deletions
@@ -22,7 +22,8 @@ data MouseContext
        , _mcoAboveSelect :: Maybe (Int,Int)
        , _mcoBelowSelect :: Maybe (Int,Int)
        }
-    | OverInvDragSelect { _mcoSecSelStart :: (Int,Int), _mcoSelEnd :: Maybe Int }
+--    | OverInvDragSelect { _mcoSecSelStart :: (Int,Int), _mcoSelEnd :: Maybe Int }
+    | OverInvDragSelect { _mcoSecSelStart :: Maybe (Int,Int), _mcoSelEnd :: Maybe Int }
    | OverInvSelect { _mcoInvSelect :: (Int,Int)}
    | OverCombFiltInv { _mcoInvFilt :: (Int,Int)}
    | OverCombSelect { _mcoCombSelect :: (Int,Int)}