-// set focus to the next child which accepts it (or first/last if node == NULL)
-bool wxPanel::SetFocusToNextChild(wxNode *node, bool bForward)
-{
- // Added by JACS since this seems to cause an infinite loop.
- return FALSE;
-
- // @@ 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();
- }
- else {
- // just to be sure it's the right one
- wxASSERT( WIN(node)->AcceptsFocus() );
- }
-
- // find the next child which accepts focus
- while ( !bFound ) {
- node = bForward ? node->Next() : node->Previous();
- if ( node == NULL ) {
- // 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;
- }
-
- // wrap around
- node = bForward ? children->First() : children->Last();
- }
-
- bFound = WIN(node)->AcceptsFocus();
- }
-
- WIN(node)->SetFocus();
-
- #undef WIN
-
- return TRUE;
-}