+void wxPanel::OnNavigationKey(wxNavigationKeyEvent& event)
+{
+ // don't process these ones here
+ if ( event.IsWindowChange() ) {
+ event.Skip();
+ return;
+ }
+
+ // first of all, find the window which currently has the focus
+ wxNode *node = GetChildren()->First();
+ wxWindow *winFocus = event.GetCurrentFocus();
+
+ // @@@ no FindFocus() in wxGTK
+ #ifndef __WXGTK__
+ if ( winFocus == NULL )
+ winFocus = wxWindow::FindFocus();
+ #endif
+
+ while ( node != NULL ) {
+ if ( node->Data() == winFocus )
+ break;
+
+ node = node->Next();
+ }
+
+ if ( !SetFocusToNextChild(node, event.GetDirection()) )
+ event.Skip();
+}
+
+// set focus to the next child which accepts it (or first/last if node == NULL)
+bool wxPanel::SetFocusToNextChild(wxNode *node, bool bForward)
+{
+ // @@ using typed list would be better...
+ #define WIN(node) ((wxWindow *)(node->Data()))
+
+ bool bFound = FALSE; // have we found a window we will set focus to?
+
+ wxList *children = GetChildren();
+ if ( node == NULL ) {
+ // we've never had focus before
+ node = bForward ? children->First() : children->Last();
+ if ( node == NULL ) {
+ // no children
+ return FALSE;
+ }
+
+ bFound = WIN(node)->AcceptsFocus();
+ }
+#if 0 // to restore when it will really work (now it's triggered all the time)
+ else {
+ // just to be sure it's the right one
+ wxASSERT( WIN(node)->AcceptsFocus() );
+ }
+#endif // 0
+
+ // find the next child which accepts focus
+ bool bParentWantsIt = TRUE;
+ while ( !bFound ) {
+ node = bForward ? node->Next() : node->Previous();
+ if ( node == NULL ) {
+ if ( !bParentWantsIt ) {
+ // we've already been here which means that we've done a whole
+ // cycle without success - get out from the infinite loop
+ return FALSE;
+ }
+
+ // ask parent if he doesn't want to advance focus to the next panel
+ if ( GetParent() != NULL ) {
+ wxNavigationKeyEvent event;
+ event.SetDirection(bForward);
+ event.SetWindowChange(FALSE);
+ event.SetCurrentFocus(this);
+
+ if ( GetParent()->ProcessEvent(event) )
+ return TRUE;
+ }
+
+ // a sentinel to avoid infinite loops
+ bParentWantsIt = FALSE;
+
+ // wrap around
+ node = bForward ? children->First() : children->Last();
+ }
+
+ bFound = WIN(node)->AcceptsFocus();
+ }
+
+ WIN(node)->SetFocus();
+
+ #undef WIN
+
+ return TRUE;
+}