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

[commits at source.squeak.org]

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'].!