Etoys: ReleaseBuilder-bf.10.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev