--- a/WindowGroup.st	Sat Jan 27 16:03:24 1996 +0100
+++ b/WindowGroup.st	Sat Jan 27 16:35:09 1996 +0100
@@ -778,6 +778,24 @@
 			    self focusPrevious.
 			    ignore := true
 			].
+			event key == #Tab ifTrue:[
+			    focusView notNil ifTrue:[
+				focusView canTab ifTrue:[
+				    self focusNext.    
+				    ignore := true
+				]
+			    ] ifFalse:[
+				pointerView notNil ifTrue:[
+				    pointerView canTab ifTrue:[
+					self focusNext.
+					ignore := true.
+				    ]
+				] ifFalse:[
+				    self focusNext.
+				    ignore := true.
+				]
+			    ]
+			].
 		    ].
 		    event isPointerEnterEvent ifTrue:[
 			pointerView := event view
@@ -949,17 +967,17 @@
     "give focus to aViewOrNil"
 
     focusView notNil ifTrue:[
-	focusView focusOut.
+	focusView showNoFocus:true. "/ focusOut.
     ] ifFalse:[
 	pointerView notNil ifTrue:[
 	    pointerView ~~ aViewOrNil ifTrue:[
-		pointerView focusOut
+		pointerView showNoFocus:false "/ focusOut
 	    ]
 	].
     ].
     focusView := aViewOrNil.
     focusView notNil ifTrue:[
-	focusView focusIn
+	focusView showFocus:true. "/ focusIn
     ].
 
     "
@@ -972,7 +990,7 @@
      top windowGroup focusView:v1.
     "
 
-    "Modified: 9.1.1996 / 15:48:12 / cg"
+    "Modified: 27.1.1996 / 13:11:16 / cg"
 ! !
 
 !WindowGroup methodsFor:'initialization'!
@@ -1134,6 +1152,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.56 1996-01-26 17:43:40 ah Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.57 1996-01-27 15:35:09 cg Exp $'
 ! !
 WindowGroup initialize!