ProjectDefinition.st
changeset 17500 51a43a7cc842
parent 17472 5546981c5eb9
child 17551 c171788215da
equal deleted inserted replaced
17499:935651e16975 17500:51a43a7cc842
  7280     "
  7280     "
  7281 
  7281 
  7282     "Modified: / 27-09-2011 / 18:12:33 / cg"
  7282     "Modified: / 27-09-2011 / 18:12:33 / cg"
  7283 !
  7283 !
  7284 
  7284 
       
  7285 classesForPlatform
       
  7286     "list my classes for the current platform.
       
  7287      Project must be loaded - otherwise an error is reported here.
       
  7288      Use #classNames if you are only interested in the names"
       
  7289 
       
  7290     ^ self classNamesForPlatform collect:[:nm | 
       
  7291             Smalltalk at:nm ifAbsent:[self error:'Missing class: ',nm]]
       
  7292 
       
  7293     "
       
  7294      stx_libbasic classesForPlatform
       
  7295      stx_libbasic classes
       
  7296     "
       
  7297 !
       
  7298 
  7285 compiled_classNames
  7299 compiled_classNames
  7286     "the opposite of autoloaded class names"
  7300     "the opposite of autoloaded class names"
  7287 
  7301 
  7288     ^ self classNamesForWhich:[:nm :attr | attr isEmptyOrNil or:[(attr includes:#autoload) not]].
  7302     ^ self classNamesForWhich:[:nm :attr | attr isEmptyOrNil or:[(attr includes:#autoload) not]].
  7289 
  7303 
  7336     "class, only to be compiled under windows"
  7350     "class, only to be compiled under windows"
  7337 
  7351 
  7338     ^ self compiled_classNamesForPlatform:#win32.
  7352     ^ self compiled_classNamesForPlatform:#win32.
  7339 
  7353 
  7340     "Created: / 18-08-2006 / 13:37:56 / cg"
  7354     "Created: / 18-08-2006 / 13:37:56 / cg"
       
  7355 !
       
  7356 
       
  7357 compiled_classesForPlatform
       
  7358     "list my classes for the current platform.
       
  7359      Project must be loaded - otherwise an error is reported here.
       
  7360      Use #classNames if you are only interested in the names"
       
  7361 
       
  7362     ^ self compiled_classNamesForPlatform collect:[:nm | 
       
  7363             Smalltalk at:nm ifAbsent:[self error:'Missing class: ',nm]]
       
  7364 
       
  7365     "
       
  7366      stx_libbasic compiled_classesForPlatform
       
  7367      stx_libbasic classes
       
  7368     "
  7341 !
  7369 !
  7342 
  7370 
  7343 extensionClasses
  7371 extensionClasses
  7344     "answer the set of classes, which are extended by the package"
  7372     "answer the set of classes, which are extended by the package"
  7345 
  7373 
  7896 ! !
  7924 ! !
  7897 
  7925 
  7898 !ProjectDefinition class methodsFor:'documentation'!
  7926 !ProjectDefinition class methodsFor:'documentation'!
  7899 
  7927 
  7900 version
  7928 version
  7901     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.539 2015-02-16 10:56:04 cg Exp $'
  7929     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.540 2015-02-18 18:12:48 cg Exp $'
  7902 !
  7930 !
  7903 
  7931 
  7904 version_CVS
  7932 version_CVS
  7905     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.539 2015-02-16 10:56:04 cg Exp $'
  7933     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.540 2015-02-18 18:12:48 cg Exp $'
  7906 !
  7934 !
  7907 
  7935 
  7908 version_SVN
  7936 version_SVN
  7909     ^ '$ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  $'
  7937     ^ '$ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  $'
  7910 ! !
  7938 ! !