ApplicationModel.st
changeset 4192 1d04ac054f3a
parent 4191 9ebf6e85f1f6
child 4193 a28b62614895
equal deleted inserted replaced
4191:9ebf6e85f1f6 4192:1d04ac054f3a
   916 classResources
   916 classResources
   917     "if not already loaded, get the classes resourcePack and return it"
   917     "if not already loaded, get the classes resourcePack and return it"
   918 
   918 
   919     ClassResources isNil ifTrue:[
   919     ClassResources isNil ifTrue:[
   920         ClassResources := super classResources.
   920         ClassResources := super classResources.
       
   921         ClassResources isNil ifTrue:[
       
   922             ClassResources := ApplicationModel classResources.
       
   923         ].
   921     ].
   924     ].
   922     ^ ClassResources
   925     ^ ClassResources
   923 
   926 
   924     "
   927     "
   925      WorkspaceApplication classResources
   928      WorkspaceApplication classResources
  1442 
  1445 
  1443     resources isNil ifTrue:[
  1446     resources isNil ifTrue:[
  1444         masterApplication notNil ifTrue:[
  1447         masterApplication notNil ifTrue:[
  1445             ^ masterApplication resources
  1448             ^ masterApplication resources
  1446         ].
  1449         ].
  1447         ^ self class resources.
  1450         ^ self class classResources.
  1448         "/ ^ ResourcePack new
  1451         "/ ^ ResourcePack new
  1449     ].
  1452     ].
  1450     ^ resources
  1453     ^ resources
  1451 
  1454 
  1452     "Modified (comment): / 25-11-2016 / 15:25:28 / cg"
  1455     "Modified (comment): / 25-11-2016 / 15:25:28 / cg"