--- a/SimpleView.st	Thu Jan 10 19:20:43 2019 +0100
+++ b/SimpleView.st	Thu Jan 17 13:01:26 2019 +0100
@@ -6689,6 +6689,10 @@
     ].
 
     zoomInOrOut ifTrue:[
+        sensor shiftDown ifTrue:[
+            self topView allSubViewsDo:[:v | v mouseWheelZoom:amount].
+            ^ self.
+        ].
         self mouseWheelZoom:amount.
         ^ self.
     ].
@@ -6726,7 +6730,7 @@
     ].
 
     "Modified: / 30-08-2017 / 14:52:22 / cg"
-    "Modified: / 13-06-2018 / 22:12:04 / Claus Gittinger"
+    "Modified: / 17-01-2019 / 11:37:10 / Claus Gittinger"
 !
 
 mouseWheelZoom:amount
@@ -8076,7 +8080,7 @@
 
     <modifier: #super> "must be called if redefined"
 
-    |ext myClass controllerClass|
+    |ext controllerClass|
 
     flagBits := flagBits ? 0.
 
@@ -8090,9 +8094,7 @@
     "fill in some defaults - some of them are usually redefined in subclasses
      initialize methods"
 
-    myClass := self class.
-    "/ name := myClass name "asString" asLowercaseFirst. - now lazy
-    resources := myClass classResources.
+    self initializeResources.
 
     level := margin := 0.
     self borderWidth:0.
@@ -8123,6 +8125,7 @@
 
     "Modified: / 08-02-2017 / 00:26:52 / cg"
     "Modified: / 18-03-2017 / 00:20:40 / stefan"
+    "Modified: / 16-01-2019 / 13:00:50 / Claus Gittinger"
 !
 
 initializeMiddleButtonMenu
@@ -8134,6 +8137,12 @@
     ^ self
 !
 
+initializeResources
+    resources := self class classResources.
+
+    "Created: / 16-01-2019 / 13:00:29 / Claus Gittinger"
+!
+
 prepareForReinit
     super prepareForReinit.
     windowGroup notNil ifTrue:[