From 62cb90b455ecf5ab6e2e7bf48aaff483afbb9a53 Mon Sep 17 00:00:00 2001
From: Vadim Zeitlin <vadim@wxwidgets.org>
Date: Mon, 13 Apr 2020 14:21:07 +0200
Subject: [PATCH] Avoid horizontal scrolling when pressing Shift-Page Up/Down

Scroll the new end of selection into view only vertically, it would be
unexpected for the vertical Page Up/Down movement to scroll the grid
horizontally.
---
 src/generic/grid.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/generic/grid.cpp b/src/generic/grid.cpp
index 0ad120676e..d08969bc48 100644
--- a/src/generic/grid.cpp
+++ b/src/generic/grid.cpp
@@ -8040,7 +8040,7 @@ wxGrid::DoMoveCursorByPage(const wxKeyboardState& kbdState,
             return false;
 
         if ( m_selection->ExtendCurrentBlock(m_currentCellCoords, coords, kbdState) )
-            MakeCellVisible(coords);
+            MakeCellVisible(diroper.MakeWholeLineCoords(coords));
     }
     else
     {