6552 ]. |
6552 ]. |
6553 |
6553 |
6554 classesInImage ~= classesInDescription ifTrue:[ |
6554 classesInImage ~= classesInDescription ifTrue:[ |
6555 onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]). |
6555 onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]). |
6556 onlyInImage notEmpty ifTrue:[ |
6556 onlyInImage notEmpty ifTrue:[ |
6557 Transcript show:'only in image: '; showCR:onlyInImage |
6557 Transcript show:self name; show:': only in image: '; showCR:onlyInImage |
6558 ]. |
6558 ]. |
6559 onlyInDescription := (classesInDescription reject:[:cls | classesInImage includes:cls]). |
6559 onlyInDescription := (classesInDescription reject:[:cls | classesInImage includes:cls]). |
6560 onlyInDescription notEmpty ifTrue:[ |
6560 onlyInDescription notEmpty ifTrue:[ |
6561 Transcript show:'only in description: '; showCR:onlyInDescription |
6561 Transcript show:self name; show:': only in description: '; showCR:onlyInDescription |
6562 ]. |
6562 ]. |
6563 (Dialog confirm:'The set of classes in the image is different from the listed classes in the project definition.\\Proceed?' withCRs) ifFalse:[ |
6563 (Dialog confirm:'The set of classes in the image is different from the listed classes in the project definition.\\Proceed?' withCRs) ifFalse:[ |
6564 AbortSignal raiseRequest |
6564 AbortSignal raiseRequest |
6565 ] |
6565 ] |
6566 ]. |
6566 ]. |
6567 |
6567 |
6568 " |
6568 " |
6569 squeak_vmMaker validateDescription |
6569 squeak_vmMaker validateDescription |
6570 " |
6570 " |
6571 |
6571 |
6572 "Modified: / 31-09-2011 / 18:20:36 / cg" |
6572 "Modified: / 09-01-2012 / 11:02:59 / cg" |
6573 ! ! |
6573 ! ! |
6574 |
6574 |
6575 !ProjectDefinition class methodsFor:'testing'! |
6575 !ProjectDefinition class methodsFor:'testing'! |
6576 |
6576 |
6577 isApplicationDefinition |
6577 isApplicationDefinition |
6639 ! ! |
6639 ! ! |
6640 |
6640 |
6641 !ProjectDefinition class methodsFor:'documentation'! |
6641 !ProjectDefinition class methodsFor:'documentation'! |
6642 |
6642 |
6643 version |
6643 version |
6644 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.376 2011-12-23 14:09:03 cg Exp $' |
6644 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.377 2012-01-09 10:09:44 cg Exp $' |
6645 ! |
6645 ! |
6646 |
6646 |
6647 version_CVS |
6647 version_CVS |
6648 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.376 2011-12-23 14:09:03 cg Exp $' |
6648 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.377 2012-01-09 10:09:44 cg Exp $' |
6649 ! |
6649 ! |
6650 |
6650 |
6651 version_SVN |
6651 version_SVN |
6652 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6652 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6653 ! ! |
6653 ! ! |