#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Mon, 15 Oct 2018 03:12:23 +0200
changeset 4193 a28b62614895
parent 4192 1d04ac054f3a
child 4194 ea990b0d9a89
#BUGFIX by cg class: ApplicationModel class changed: #classResources
ApplicationModel.st
--- a/ApplicationModel.st	Mon Oct 15 02:18:17 2018 +0200
+++ b/ApplicationModel.st	Mon Oct 15 03:12:23 2018 +0200
@@ -920,11 +920,14 @@
         ClassResources := super classResources.
         ClassResources isNil ifTrue:[
             ClassResources := ApplicationModel classResources.
+        ] ifFalse:[
+            ClassResources addSuperPack:(self superclass classResources).
         ].
     ].
     ^ ClassResources
 
     "
+     ApplicationModel flushAllClassResources
      WorkspaceApplication classResources
      Tools::NewSystemBrowser classResources
     "