--- a/Controller.st	Tue May 28 20:31:04 1996 +0200
+++ b/Controller.st	Tue May 28 20:32:44 1996 +0200
@@ -459,7 +459,7 @@
     windowGroup := view windowGroup.
     key == #Tab ifTrue:[
         windowGroup notNil ifTrue:[
-            view device shiftDown ifTrue:[
+            view graphicsDevice shiftDown ifTrue:[
                 windowGroup focusPrevious
             ] ifFalse:[
                 windowGroup focusNext
@@ -479,7 +479,7 @@
 
     ^ self
 
-    "Modified: 7.3.1996 / 13:14:49 / cg"
+    "Modified: 28.5.1996 / 20:21:41 / cg"
 !
 
 keyRelease:key x:x y:y
@@ -564,5 +564,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.35 1996-05-13 09:33:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.36 1996-05-28 18:32:44 cg Exp $'
 ! !