author | Claus Gittinger <cg@exept.de> |
Mon, 15 Oct 2018 03:12:23 +0200 | |
changeset 4193 | a28b62614895 |
parent 4192 | 1d04ac054f3a |
child 4194 | ea990b0d9a89 |
--- 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 "