--- a/TopView.st	Tue Sep 25 09:58:00 2018 +0200
+++ b/TopView.st	Tue Sep 25 10:38:44 2018 +0200
@@ -325,6 +325,19 @@
 
 label:labelString iconLabel:iconLabelString
     "/ ignored here - for compat. with StdSysViews
+!
+
+resources
+    resources isNil ifTrue:[
+        ^ self class resources
+    ].
+    ^ resources
+
+    "
+     TopView new resources
+    "
+
+    "Created: / 25-09-2018 / 08:43:13 / Claus Gittinger"
 ! !
 
 !TopView methodsFor:'accessing-behavior'!