--- a/Controller.st	Wed Mar 06 16:02:54 1996 +0100
+++ b/Controller.st	Wed Mar 06 16:03:20 1996 +0100
@@ -366,20 +366,32 @@
     "key was pressed in my view; nothing done here,
      except for Tab keys."
 
-    |wg|
+    |windowGroup|
 
+    windowGroup := view windowGroup.
     key == #Tab ifTrue:[
-        (wg := view windowGroup) notNil ifTrue:[
+        windowGroup notNil ifTrue:[
             view device shiftDown ifTrue:[
-                wg focusPrevious
+                windowGroup focusPrevious
             ] ifFalse:[
-                wg focusNext
+                windowGroup focusNext
             ].
         ]
     ].
+    key == #FocusNext ifTrue:[
+        windowGroup notNil ifTrue:[
+            windowGroup focusNext.
+        ]
+    ].
+    key == #FocusPrevious ifTrue:[
+        windowGroup notNil ifTrue:[
+            windowGroup focusPrevious.
+        ]
+    ].
+
     ^ self
 
-    "Modified: 27.2.1996 / 14:48:08 / cg"
+    "Modified: 6.3.1996 / 15:14:41 / cg"
 !
 
 keyRelease:key x:x y:y
@@ -464,5 +476,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.31 1996-02-28 18:51:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.32 1996-03-06 15:03:20 cg Exp $'
 ! !