--- a/Controller.st	Tue Jul 01 16:39:56 2003 +0200
+++ b/Controller.st	Tue Jul 01 20:20:45 2003 +0200
@@ -475,10 +475,13 @@
     windowGroup notNil ifTrue:[
         action := key.
         key == #Tab ifTrue:[
-            view graphicsDevice shiftDown ifTrue:[
-                action := #FocusPrevious.
-            ] ifFalse:[
-                action := #FocusNext.
+            (view tabRequiresControl not
+            or:[ view sensor ctrlDown ]) ifTrue:[
+                view graphicsDevice shiftDown ifTrue:[
+                    action := #FocusPrevious.
+                ] ifFalse:[
+                    action := #FocusNext.
+                ]
             ]
         ].
         action == #FocusNext ifTrue:[
@@ -582,5 +585,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.52 2003-05-07 14:59:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.53 2003-07-01 18:20:45 cg Exp $'
 ! !