--- a/SimpleView.st	Thu May 24 21:20:19 2018 +0200
+++ b/SimpleView.st	Sat May 26 11:50:51 2018 +0200
@@ -6445,12 +6445,14 @@
 !
 
 keyboardZoomInAllViews:largerBoolean 
-    "CTRL+/- zoom action global.
+    "CTRL+/- zoom action for this windowGroup.
      Sent to all windows; some may ignore it."
 
-    self device allViewsDo:[:each |
+    self topView windowGroup allViewsDo:[:each |
         each keyboardZoom:largerBoolean 
-    ].    
+    ].
+
+    "Modified: / 26-05-2018 / 11:49:43 / Claus Gittinger"
 !
 
 mapped