Resolves: tdf#99324 let bare tabpage in dialogs get toggled auto-mnemonics

Change-Id: Icdf2a908d131ff05a1c00b7305686edba26d4b24

1 files changed, 12 insertions, 0 deletions

diff --git a/vcl/source/window/syswin.cxx b/vcl/source/window/syswin.cxx
index 1a75e4dbe976..0bc7a0a75d15 100644
--- a/vcl/source/window/syswin.cxx
+++ b/vcl/source/window/syswin.cxx
@@ -153,6 +153,18 @@ bool Accelerator::ToggleMnemonicsOnHierarchy(const CommandEvent& rCEvent, vcl::W
                      pTabPageChild = nextLogicalChildOfParent(pTabPage, pTabPageChild);
                  }
             }
+            else if ( pGetChild->GetType() == WINDOW_TABPAGE )
+            {
+                 // bare tabpage without tabcontrol parent (options dialog)
+                 vcl::Window* pTabPageChild = firstLogicalChildOfParent( pGetChild );
+
+                 // and go through its children
+                 while ( pTabPageChild )
+                 {
+                     ImplHandleControlAccelerator(pTabPageChild, bShowAccel);
+                     pTabPageChild = nextLogicalChildOfParent(pGetChild, pTabPageChild);
+                 }
+            }
 
             ImplHandleControlAccelerator( pGetChild, bShowAccel );
             pGetChild = nextLogicalChildOfParent(pWindow, pGetChild);