@@ -129,7 +129,7 @@ classifyNormalMouseEvent = do
129129 case press of
130130 True -> do
131131 button <- getSGRButton status
132− return $ EvMouseDown xCoord yCoord button modifiers
132+ return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
133133 False -> return $ EvMouseUp xCoord yCoord Nothing
134134
135135-- Attempt to classify a control sequence as an SGR mouse event. To
@@ -147,6 +147,6 @@ classifySGRMouseEvent = do
147147 let modifiers = getModifiers mods
148148 button <- getSGRButton mods
149149 case final of
150− 'M' -> return $ EvMouseDown xCoord yCoord button modifiers
150+ 'M' -> return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
151151 'm' -> return $ EvMouseUp xCoord yCoord (Just button)
152152 _ -> failParse