git.iko.soy/vty
on master help sign in
Rename BWheelUp/Down to BScrollUp/Down
commit33c61af80db5ed157a5970ff532075cf949e465d authordoublescale <doublescale@tutanota.com> dateWed 19 Jul 2017, 23:06 (9 years ago) parent50360c5
2 files changed+7−7
compare with master
unifiedsplit
src/Graphics/Vty/Input/Events.hs+1−1 src/Graphics/Vty/Input/Mouse.hs+6−6
src/Graphics/Vty/Input/Events.hs+1−1
@@ -28,7 +28,7 @@ data Modifier = MShift | MCtrl | MMeta | MAlt
2828 deriving (Eq,Show,Read,Ord,Generic)
2929
3030-- | Mouse buttons.
31−data Button = BLeft | BMiddle | BRight | BWheelUp | BWheelDown
31+data Button = BLeft | BMiddle | BRight | BScrollUp | BScrollDown
3232 deriving (Eq,Show,Read,Ord,Generic)
3333
3434-- | Events.
src/Graphics/Vty/Input/Mouse.hs+6−6
@@ -78,11 +78,11 @@ middleButton = 1
7878rightButton :: Int
7979rightButton = 2
8080
81−wheelUp :: Int
82−wheelUp = 64
81+scrollUp :: Int
82+scrollUp = 64
8383
84−wheelDown :: Int
85−wheelDown = 65
84+scrollDown :: Int
85+scrollDown = 65
8686
8787hasBitSet :: Int -> Int -> Bool
8888hasBitSet val bit = val .&. bit > 0
@@ -106,8 +106,8 @@ getSGRButton mods =
106106 let buttonMap = [ (leftButton, BLeft)
107107 , (middleButton, BMiddle)
108108 , (rightButton, BRight)
109− , (wheelUp, BWheelUp)
110− , (wheelDown, BWheelDown)
109+ , (scrollUp, BScrollUp)
110+ , (scrollDown, BScrollDown)
111111 ]
112112 in case lookup (mods .&. buttonMask) buttonMap of
113113 Nothing -> failParse