[etoys-dev] Etoys: ReleaseBuilder-bf.3.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of ReleaseBuilder to project Etoys:
http://source.squeak.org/etoys/ReleaseBuilder-bf.3.mcz

==================== Summary ====================

Name: ReleaseBuilder-bf.3
Author: bf
Time: 29 August 2010, 7:19:29 pm
UUID: bcc3cc2e-04b1-433c-9039-cea146e2c385
Ancestors: ReleaseBuilder-Richo.2

- fix copyright check

=============== Diff against ReleaseBuilder-Richo.2 ===============

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>checkCopyright (in category 'utilities') -----
  checkCopyright
  	| inNotice inImage inFile dir |
+ 	dir := FileDirectory on: Smalltalk imagePath.
- 	dir := FileDirectory default.
  	[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].
  	inImage := Smalltalk copyright findTokens: Character cr.
  	inNotice = inImage ifFalse: [self error: 'Copyright declarations do not match'].!