diff -r 2a132679c3a1 -r e9877f35e9ac WindowGroup.st
--- a/WindowGroup.st	Thu Aug 29 16:41:14 2013 +0200
+++ b/WindowGroup.st	Thu Aug 29 18:46:18 2013 +0200
@@ -2204,8 +2204,8 @@
 
     |prevFocusView myDisplay|
 
-"/'focusToView:' print. aViewOrNil print. 
-"/' (prev: ' print.  focusView print. ')' printCR.
+    "/'focusToView:' print. aViewOrNil print. 
+    "/' (prev: ' print.  focusView print. ')' printCR.
 
     myDisplay := self graphicsDevice.
     myDisplay notNil ifTrue:[
@@ -2214,7 +2214,7 @@
         "/
         prevFocusView := myDisplay focusView.
         prevFocusView ~~ aViewOrNil ifTrue:[
-"/'take focus from ' print. prevFocusView printCR. 
+            "/'take focus from ' print. prevFocusView printCR. 
             self class takeFocusFromDevice:myDisplay.
         ].
     ].
@@ -2229,11 +2229,11 @@
             focusCameViaTabOrNil notNil ifTrue:[
                 focusByTab := focusCameViaTabOrNil "or:[focusByTab]".
             ].
-false ifTrue:[
-            focusView showFocus:focusByTab.
-'give focus to ' print. aViewOrNil printCR. 
-            self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
-].
+            false ifTrue:[
+                focusView showFocus:focusByTab.
+                'give focus to ' print. aViewOrNil printCR. 
+                self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
+            ].
         ].
         ^ self
     ].
@@ -2241,7 +2241,7 @@
     focusView notNil ifTrue:[
         "/ lost explicit focus
         focusView == aViewOrNil ifTrue:[
-"/'give focus to ' print. aViewOrNil printCR. 
+            "/'give focus to ' print. aViewOrNil printCR. 
             self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
             ^ self
         ].
@@ -2251,7 +2251,7 @@
     focusView notNil ifTrue:[
         "/ got explicit focus
         aViewOrNil showFocus:(focusCameViaTabOrNil ? true).
-"/'give focus to ' print. aViewOrNil printCR. 
+        "/'give focus to ' print. aViewOrNil printCR. 
         self class sendKeyboardFocusEventTo:aViewOrNil withArgument:true.
         focusCameViaTabOrNil notNil ifTrue:[
             focusByTab := focusCameViaTabOrNil.
@@ -2805,11 +2805,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.323 2013-08-29 16:46:18 cg Exp $'
 ! !