6388 ! ! |
6388 ! ! |
6389 |
6389 |
6390 !ProjectDefinition class methodsFor:'sanity checks'! |
6390 !ProjectDefinition class methodsFor:'sanity checks'! |
6391 |
6391 |
6392 validateDescription |
6392 validateDescription |
6393 |emptyProjects nonProjects emptyOrNonProjects| |
6393 |emptyProjects nonProjects emptyOrNonProjects classesInImage classesInDescription| |
6394 |
6394 |
6395 emptyProjects := Set withAll:self subProjects. |
6395 emptyProjects := Set withAll:self subProjects. |
6396 Smalltalk allClassesDo:[:cls | |
6396 Smalltalk allClassesDo:[:cls | |
6397 emptyProjects remove:(cls package) ifAbsent:[]. |
6397 emptyProjects remove:(cls package) ifAbsent:[]. |
6398 ]. |
6398 ]. |
6399 nonProjects := self subProjects select:[:p | |
6399 nonProjects := self subProjects select:[:p | |
6400 (ProjectDefinition definitionClassForPackage: p) isNil |
6400 (ProjectDefinition definitionClassForPackage: p) isNil |
6401 ]. |
6401 ]. |
6402 |
6402 |
6403 emptyOrNonProjects := Set withAll:emptyProjects. |
6403 emptyOrNonProjects := Set withAll:emptyProjects. |
6404 emptyOrNonProjects addAll:nonProjects. |
6404 emptyOrNonProjects addAll:nonProjects. |
6405 |
6405 |
6406 emptyOrNonProjects notEmpty ifTrue:[ |
6406 emptyOrNonProjects notEmpty ifTrue:[ |
6407 (Dialog |
6407 (Dialog |
6408 confirm:('The following projects are non-existent, empty or without description:\\ ' |
6408 confirm:('The following projects are non-existent, empty or without description:\\ ' |
6409 , ((emptyOrNonProjects |
6409 , ((emptyOrNonProjects |
6410 asSortedCollection |
6410 asSortedCollection |
6411 collect:[:p | p allBold]) |
6411 collect:[:p | p allBold]) |
6412 asStringWith:'\ ') |
6412 asStringWith:'\ ') |
6413 , '\\Continue ?') withCRs |
6413 , '\\Continue ?') withCRs |
6414 yesLabel:'OK' noLabel:'Cancel') |
6414 yesLabel:'OK' noLabel:'Cancel') |
6415 ifFalse:[ |
6415 ifFalse:[ |
6416 AbortSignal raise |
6416 AbortSignal raise |
6417 ]. |
6417 ]. |
6418 ]. |
6418 ]. |
6419 |
6419 |
6420 "Modified: / 19-09-2006 / 20:30:39 / cg" |
6420 classesInImage := Smalltalk allClasses select:[:cls | cls package = package]. |
|
6421 classesInDescription := self classes asIdentitySet. |
|
6422 classesInImage ~= classesInDescription ifTrue:[ |
|
6423 Dialog warn:'The set of classes in the image is different from the listed classes in the project definition' |
|
6424 ]. |
|
6425 |
|
6426 " |
|
6427 squeak_vmMaker validateDescription |
|
6428 " |
|
6429 |
|
6430 "Modified: / 14-09-2011 / 15:39:40 / cg" |
6421 ! ! |
6431 ! ! |
6422 |
6432 |
6423 !ProjectDefinition class methodsFor:'testing'! |
6433 !ProjectDefinition class methodsFor:'testing'! |
6424 |
6434 |
6425 isApplicationDefinition |
6435 isApplicationDefinition |
6487 ! ! |
6497 ! ! |
6488 |
6498 |
6489 !ProjectDefinition class methodsFor:'documentation'! |
6499 !ProjectDefinition class methodsFor:'documentation'! |
6490 |
6500 |
6491 version |
6501 version |
6492 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.355 2011-09-13 11:56:22 stefan Exp $' |
6502 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.356 2011-09-14 13:39:47 cg Exp $' |
6493 ! |
6503 ! |
6494 |
6504 |
6495 version_CVS |
6505 version_CVS |
6496 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.355 2011-09-13 11:56:22 stefan Exp $' |
6506 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.356 2011-09-14 13:39:47 cg Exp $' |
6497 ! |
6507 ! |
6498 |
6508 |
6499 version_SVN |
6509 version_SVN |
6500 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6510 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6501 ! ! |
6511 ! ! |