--- a/SimpleView.st	Thu Feb 20 10:52:26 2020 +0100
+++ b/SimpleView.st	Fri Feb 21 12:20:48 2020 +0100
@@ -7980,8 +7980,9 @@
     "fill in some defaults - some of them are usually redefined in subclasses
      initialize methods"
 
-    self initializeResources.
-
+    resources isNil ifTrue:[
+        self initializeResources.
+    ].
     level := margin := 0.
     self borderWidth:0.