Bert Freudenberg uploaded a new version of ReleaseBuilder to project Etoys: http://source.squeak.org/etoys/ReleaseBuilder-bf.10.mcz
==================== Summary ====================
Name: ReleaseBuilder-bf.10 Author: bf Time: 29 August 2011, 9:52:29 pm UUID: 6df46d7b-9113-4a0c-aab0-40dbeb89efe7 Ancestors: ReleaseBuilder-bf.9
fix copyrigth check
=============== Diff against ReleaseBuilder-bf.9 ===============
Item was changed: ReleaseBuilder subclass: #ReleaseBuilderSqueakland instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'ReleaseBuilder'!
+ !ReleaseBuilderSqueakland commentStamp: '<historical>' prior: 0! - !ReleaseBuilderSqueakland commentStamp: 'bf 10/13/2010 01:16' prior: 0! Note: as of this writing, the only reliable way to get rid of all but the current project is to execute the following, one line at a time...
+ Smalltalk zapAllOtherProjects. "close inspector if it popped up" - Smalltalk zapAllOtherProjects. ProjectHistory currentHistory initialize. Smalltalk garbageCollect. Project rebuildAllProjects.
ReleaseBuilderSqueakland new prepareReleaseImage.!
Item was changed: ----- Method: ReleaseBuilderSqueakland>>checkCopyright (in category 'utilities') ----- checkCopyright | inNotice inImage inFile dir | dir := FileDirectory on: Smalltalk imagePath. [inFile := (dir readOnlyFileNamed: 'NOTICE') wantsLineEndConversion: true; contentsOfEntireFile] on: FileDoesNotExistException do: [:ex | dir = FileDirectory default ifTrue: [dir := dir containingDirectory. ex retry] ifFalse: [self error: 'NOTICE file not found']]. inFile = Utilities copyrightNotice ifFalse: [self error: 'NOTICE file does not match image']. inNotice := ((Utilities copyrightNotice findTokens: Character cr) select: [:s | s includesSubString: '(c)']) collect: [:s | s withBlanksTrimmed]. + inNotice := {inNotice first. inNotice last}. + inImage := (Smalltalk copyright findTokens: Character cr) asArray. - inImage := Smalltalk copyright findTokens: Character cr. inNotice = inImage ifFalse: [self error: 'Copyright declarations do not match'].!