git.iko.soy/vty
on master help sign in
Mouse: also request motion events while buttons are pressed
commitff9f4e661d565a4a9b78262f8438505f11a16b98 authorJonathan Daugherty <cygnus@foobox.com> dateFri 17 Jun 2016, 17:31 (10 years ago) parent0508f83
2 files changed+9−9
compare with master
unifiedsplit
src/Graphics/Vty/Input/Mouse.hs+7−7 src/Graphics/Vty/Output/XTermColor.hs+2−2
src/Graphics/Vty/Input/Mouse.hs+7−7
@@ -1,6 +1,6 @@
11module Graphics.Vty.Input.Mouse
2− ( requestSGRMouseEvents
3− , disableSGRMouseEvents
2+ ( requestMouseEvents
3+ , disableMouseEvents
44 , isMouseEvent
55 , classifyMouseEvent
66 ) where
@@ -30,13 +30,13 @@ import Data.Bits ((.&.))
3030-- * the final character is 'M' for a press, 'm' for a release
3131
3232-- | These sequences set xterm-based terminals to send mouse event
33−-- sequences. This requests SGR extended mouse events.
34−requestSGRMouseEvents :: String
35−requestSGRMouseEvents = "\ESC[?1000h\ESC[?1006h"
33+-- sequences.
34+requestMouseEvents :: String
35+requestMouseEvents = "\ESC[?1000h\ESC[?1006h\ESC[?1003h"
3636
3737-- | These sequences disable mouse events.
38−disableSGRMouseEvents :: String
39−disableSGRMouseEvents = "\ESC[?1000l\ESC[?1006l"
38+disableMouseEvents :: String
39+disableMouseEvents = "\ESC[?1000l\ESC[?1006l\ESC[?1003l"
4040
4141-- | Does the specified string begin with a mouse event?"
4242isMouseEvent :: String -> Bool
src/Graphics/Vty/Output/XTermColor.hs+2−2
@@ -34,13 +34,13 @@ reserveTerminal variant outFd = liftIO $ do
3434 -- xterm-color is broken.
3535 let variant' = if variant == "xterm-color" then "xterm" else variant
3636 flushedPut setUtf8CharSet
37− flushedPut requestSGRMouseEvents
37+ flushedPut requestMouseEvents
3838 t <- TerminfoBased.reserveTerminal variant' outFd
3939 let t' = t
4040 { terminalID = terminalID t ++ " (xterm-color)"
4141 , releaseTerminal = do
4242 liftIO $ flushedPut setDefaultCharSet
43− liftIO $ flushedPut disableSGRMouseEvents
43+ liftIO $ flushedPut disableMouseEvents
4444 releaseTerminal t
4545 , mkDisplayContext = \tActual r -> do
4646 dc <- mkDisplayContext t tActual r