ProjectDefinition.st
changeset 12315 71599fb91dcf
parent 12314 d9a0d2f26b75
child 12331 02c0437d7817
equal deleted inserted replaced
12314:d9a0d2f26b75 12315:71599fb91dcf
   400     "Modified: / 14-09-2006 / 14:49:17 / cg"
   400     "Modified: / 14-09-2006 / 14:49:17 / cg"
   401 !
   401 !
   402 
   402 
   403 packageDirectory
   403 packageDirectory
   404 
   404 
   405     ^Smalltalk packageDirectoryForPackageId: self package
   405     ^ Smalltalk packageDirectoryForPackageId: self package
   406 
   406 
   407     "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
   407     "Created: / 15-06-2009 / 12:01:18 / Jan Vrany <vranyj1@fel.cvut.cz>"
   408 !
   408 !
   409 
   409 
   410 packageName
   410 packageName
  4166 
  4166 
  4167     platformName := OperatingSystem platformName.
  4167     platformName := OperatingSystem platformName.
  4168     classNamesToLoad := OrderedCollection new.
  4168     classNamesToLoad := OrderedCollection new.
  4169     classNamesToAutoload := OrderedCollection new.
  4169     classNamesToAutoload := OrderedCollection new.
  4170 
  4170 
       
  4171     hasClassesToLoad := false.
  4171     self classNamesAndAttributesDo:[:eachClassname :eachAttributes | |eachClassnameSym isAutoload cls|
  4172     self classNamesAndAttributesDo:[:eachClassname :eachAttributes | |eachClassnameSym isAutoload cls|
  4172         eachClassnameSym := eachClassname asSymbol.
  4173         eachClassnameSym := eachClassname asSymbol.
  4173         isAutoload := asAutoloaded or:[eachAttributes includes:#autoload].
  4174         isAutoload := asAutoloaded or:[eachAttributes includes:#autoload].
  4174 
  4175 
  4175         "no need to (re-)load an existing class, but install if should be loaded"
  4176         "no need to (re-)load an existing class, but install if should be loaded"
  4714 ! !
  4715 ! !
  4715 
  4716 
  4716 !ProjectDefinition class methodsFor:'documentation'!
  4717 !ProjectDefinition class methodsFor:'documentation'!
  4717 
  4718 
  4718 version
  4719 version
  4719     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.262 2009-10-20 20:37:58 cg Exp $'
  4720     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.263 2009-10-20 21:53:16 cg Exp $'
  4720 !
  4721 !
  4721 
  4722 
  4722 version_CVS
  4723 version_CVS
  4723     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.262 2009-10-20 20:37:58 cg Exp $'
  4724     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.263 2009-10-20 21:53:16 cg Exp $'
  4724 ! !
  4725 ! !
  4725 
  4726 
  4726 ProjectDefinition initialize!
  4727 ProjectDefinition initialize!