--- a/WindowGroup.st	Mon Oct 28 12:38:42 2013 +0100
+++ b/WindowGroup.st	Mon Oct 28 12:40:00 2013 +0100
@@ -2286,7 +2286,13 @@
 !
 
 setFocusView:aViewOrNil
-    focusView := aViewOrNil
+    focusView notNil ifTrue:[
+        self class sendKeyboardFocusEventTo:focusView withArgument:false
+    ].
+    focusView := aViewOrNil.
+    focusView notNil ifTrue:[
+        self class sendKeyboardFocusEventTo:focusView withArgument:true
+    ].
 ! !
 
 !WindowGroup methodsFor:'initialization'!
@@ -2807,11 +2813,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.325 2013-09-20 09:05:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.326 2013-10-28 11:40:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.325 2013-09-20 09:05:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.326 2013-10-28 11:40:00 cg Exp $'
 ! !