justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Make scrolling reduce selected items to 1

Browse Source
This commit is contained in:
justin
2024-10-25 12:50:36 +01:00
parent 90862b0c69
commit bd505b072a
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ghcidOutput
+1 -1
View File
@@ -1 +1 @@
All good (596 modules, at 12:39:52) All good (596 modules, at 12:49:06)
src/Dodge/Update/Scroll.hs
+2 -2
View File
@@ -34,8 +34,8 @@ updateWheelEvent yi w = case w ^. hud . hudElement of
EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax EquipOptions{} -> w & rbOptions . opSel %~ scrollRBOption yi rbscrollmax
NoRightButtonOptions -> w NoRightButtonOptions -> w
| bdown ButtonLeft -> w & wCam . camZoom +~ y | bdown ButtonLeft -> w & wCam . camZoom +~ y
| invKeyDown -> changeSwapSel yi w | invKeyDown -> changeSwapSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
| otherwise -> scrollAugInvSel yi w | otherwise -> scrollAugInvSel yi $ w & hud . hudElement . diSelectionExtra .~ 0
DisplayInventory{_subInventory = ExamineInventory} DisplayInventory{_subInventory = ExamineInventory}
| invKeyDown -> scrollAugInvSel yi w | invKeyDown -> scrollAugInvSel yi w
| otherwise -> w | otherwise -> w