Index: gtkwindow.c
===================================================================
RCS file: /cvs/gnome/gtk+/gtk/gtkwindow.c,v
retrieving revision 1.240
diff -u -p -u -r1.240 gtkwindow.c
--- gtkwindow.c	31 Mar 2003 18:07:00 -0000	1.240
+++ gtkwindow.c	2 Apr 2003 19:04:45 -0000
@@ -4305,6 +4305,14 @@ gtk_window_focus (GtkWidget        *widg
 
   if (window->focus_widget)
     {
+      if (direction == GTK_DIR_LEFT ||
+	  direction == GTK_DIR_RIGHT ||
+	  direction == GTK_DIR_UP ||
+	  direction == GTK_DIR_DOWN)
+	{
+	  return FALSE;
+	}
+      
       /* Wrapped off the end, clear the focus setting for the toplpevel */
       parent = window->focus_widget->parent;
       while (parent)
