equal
deleted
inserted
replaced
919 ClassResources isNil ifTrue:[ |
919 ClassResources isNil ifTrue:[ |
920 ClassResources := super classResources. |
920 ClassResources := super classResources. |
921 ClassResources isNil ifTrue:[ |
921 ClassResources isNil ifTrue:[ |
922 ClassResources := ApplicationModel classResources. |
922 ClassResources := ApplicationModel classResources. |
923 ] ifFalse:[ |
923 ] ifFalse:[ |
924 self superclass package ~= self superclass package ifTrue:[ |
924 self ~~ ApplicationModel ifTrue:[ |
925 ClassResources addSuperPack:(self superclass classResources). |
925 ClassResources addSuperPack:(self superclass classResources). |
926 ] |
926 ] |
927 ]. |
927 ]. |
928 ]. |
928 ]. |
929 ^ ClassResources |
929 ^ ClassResources |
930 |
930 |
931 " |
931 " |
932 ApplicationModel flushAllClassResources |
932 ApplicationModel flushAllClassResources |
|
933 MyApp classResources |
933 WorkspaceApplication classResources |
934 WorkspaceApplication classResources |
934 Tools::NewSystemBrowser classResources |
935 Tools::NewSystemBrowser classResources |
935 " |
936 " |
936 ! |
937 ! |
937 |
938 |