equal
deleted
inserted
replaced
918 |
918 |
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:[ |
|
924 ClassResources addSuperPack:(self superclass classResources). |
923 ]. |
925 ]. |
924 ]. |
926 ]. |
925 ^ ClassResources |
927 ^ ClassResources |
926 |
928 |
927 " |
929 " |
|
930 ApplicationModel flushAllClassResources |
928 WorkspaceApplication classResources |
931 WorkspaceApplication classResources |
929 Tools::NewSystemBrowser classResources |
932 Tools::NewSystemBrowser classResources |
930 " |
933 " |
931 ! |
934 ! |
932 |
935 |