equal
deleted
inserted
replaced
6415 ifFalse:[ |
6415 ifFalse:[ |
6416 AbortSignal raise |
6416 AbortSignal raise |
6417 ]. |
6417 ]. |
6418 ]. |
6418 ]. |
6419 |
6419 |
6420 classesInImage := Smalltalk allClasses select:[:cls | cls package = self package]. |
6420 classesInImage := Smalltalk allClasses select:[:cls | (cls package = self package) and:[cls isPrivate not]]. |
6421 classesInDescription := self classes asIdentitySet. |
6421 classesInDescription := self classes asIdentitySet. |
6422 classesInImage ~= classesInDescription ifTrue:[ |
6422 classesInImage ~= classesInDescription ifTrue:[ |
6423 onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]). |
6423 onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]). |
6424 onlyInImage notEmpty ifTrue:[ |
6424 onlyInImage notEmpty ifTrue:[ |
6425 Transcript show:'only in image: '; showCR:onlyInImage |
6425 Transcript show:'only in image: '; showCR:onlyInImage |
6435 |
6435 |
6436 " |
6436 " |
6437 squeak_vmMaker validateDescription |
6437 squeak_vmMaker validateDescription |
6438 " |
6438 " |
6439 |
6439 |
6440 "Modified: / 17-09-2011 / 15:48:42 / cg" |
6440 "Modified: / 26-09-2011 / 11:52:05 / cg" |
6441 ! ! |
6441 ! ! |
6442 |
6442 |
6443 !ProjectDefinition class methodsFor:'testing'! |
6443 !ProjectDefinition class methodsFor:'testing'! |
6444 |
6444 |
6445 isApplicationDefinition |
6445 isApplicationDefinition |
6507 ! ! |
6507 ! ! |
6508 |
6508 |
6509 !ProjectDefinition class methodsFor:'documentation'! |
6509 !ProjectDefinition class methodsFor:'documentation'! |
6510 |
6510 |
6511 version |
6511 version |
6512 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.360 2011-09-18 11:05:14 cg Exp $' |
6512 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.361 2011-09-26 09:52:55 cg Exp $' |
6513 ! |
6513 ! |
6514 |
6514 |
6515 version_CVS |
6515 version_CVS |
6516 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.360 2011-09-18 11:05:14 cg Exp $' |
6516 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.361 2011-09-26 09:52:55 cg Exp $' |
6517 ! |
6517 ! |
6518 |
6518 |
6519 version_SVN |
6519 version_SVN |
6520 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6520 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6521 ! ! |
6521 ! ! |