@@ -129,7 +129,7 @@ classifyNormalMouseEvent = do
129 case press of
129 case press of
130 True -> do
130 True -> do
131 button <- getSGRButton status
131 button <- getSGRButton status
132− return $ EvMouseDown xCoord yCoord button modifiers
132+ return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
133 False -> return $ EvMouseUp xCoord yCoord Nothing
133 False -> return $ EvMouseUp xCoord yCoord Nothing
135-- Attempt to classify a control sequence as an SGR mouse event. To
135-- Attempt to classify a control sequence as an SGR mouse event. To
@@ -147,6 +147,6 @@ classifySGRMouseEvent = do
147 let modifiers = getModifiers mods
147 let modifiers = getModifiers mods
148 button <- getSGRButton mods
148 button <- getSGRButton mods
149 case final of
149 case final of
150− 'M' -> return $ EvMouseDown xCoord yCoord button modifiers
150+ 'M' -> return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
151 'm' -> return $ EvMouseUp xCoord yCoord (Just button)
151 'm' -> return $ EvMouseUp xCoord yCoord (Just button)
152 _ -> failParse
152 _ -> failParse