--- a/DeviceWorkstation.st	Tue Jul 25 12:54:29 2017 +0200
+++ b/DeviceWorkstation.st	Tue Jul 25 13:00:29 2017 +0200
@@ -7313,7 +7313,13 @@
 focusView:aView
     "the view, which has got the focus from the operating system"
 
-    focusView := aView
+    focusView := aView.
+
+    "the view having the focus is active by definition.
+     Note: activeView is set explicitly by WinWorkstation, but not by XWorkstation!!"
+    activeView := aView.
+
+    "Modified (comment): / 25-07-2017 / 12:59:41 / stefan"
 !
 
 redrawAllWindows