The Trunk: ReleaseBuilder-nice.50.mcz

Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-nice.50.mcz

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

Name: ReleaseBuilder-nice.50
Author: nice
Time: 23 March 2010, 10:28:52.294 pm
UUID: 69b67b73-af93-439b-9d81-057389043fda
Ancestors: ReleaseBuilder-ar.49

1) avoid now useless assignments to block arguments
2) fix underscores

=============== Diff against ReleaseBuilder-ar.49 ===============

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsTraitsStubs (in category 'unloadPackages') -----
  unloadTraitsTraitsStubs
 
  | loader |
+ loader := CodeLoader new.
- loader _ CodeLoader new.
  loader baseURL:'http://installer.pbwiki.org/f/'.
 
  "Sources and segments can be loaded in parallel"
  loader loadSourceFiles: #('UnloadTraits-TraitsStubs.cs' ).
  !

Item was changed:
  ----- Method: ReleaseBuilderFor3dot10>>newUpdateFor: (in category 'updates') -----
  newUpdateFor: aBugNo
  "  ReleaseBuilderFor3dot10 new  newUpdateFor: nnnn"
  |cs updateNo  newName newSet lastName|
  mantisNo := aBugNo.
  updateNo := SystemVersion current highestUpdate + 1.
 
  lastName := ChangeSet allChangeSetNames last.
+ newName := UIManager default
- newName _ UIManager default
  request: 'Please name the new change set:'
  initialAnswer: updateNo asString, lastName.
  newName isEmptyOrNil ifTrue:
  [^ nil].
+ newSet := ChangeSet basicNewChangeSet: newName.
- newSet _ ChangeSet basicNewChangeSet: newName.
  newSet ifNotNil:
  [ChangeSet  newChanges: newSet].
 
 
  cs := newSet .
  cs preamble:  '"',(Installer mantis preambleCsForRB: aBugNo) withSqueakLineEndings asUnHtml , '"'.
  cs postscript: '"', self postcriptTemplate, aBugNo asString, '"
 
  ReleaseBuilderFor3dot10 new updatePackages: '.
  self updateToNext.
  cs editPostscript!

Item was changed:
  ----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseStripping (in category 'squeakland') -----
  makeSqueaklandReleasePhaseStripping
  "ReleaseBuilder new makeSqueaklandReleasePhaseStripping"
 
  #(#Helvetica #Palatino #Courier #ComicSansMS )
  do: [:n | TextConstants
  removeKey: n
  ifAbsent: []].
  Smalltalk
  at: #Player
  ifPresent: [:superCls | superCls
  allSubclassesDo: [:cls |
  cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
- ifFalse: [cls removeFromSystem].
- cls := nil]].
  Smalltalk garbageCollect.
  Smalltalk discardFFI; discardSUnit; discardSpeech.
  "discardMVC;"
  SystemOrganization removeEmptyCategories.
  Smalltalk garbageCollect.
  ScheduledControllers := nil.
  Behavior flushObsoleteSubclasses.
  Smalltalk garbageCollect; garbageCollect.
  DataStream initialize.
  Smalltalk fixObsoleteReferences!

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsClearRefs (in category 'unloadPackages') -----
  unloadTraitsClearRefs
 
  | loader |
+ loader := CodeLoader new.
- loader _ CodeLoader new.
  loader baseURL:'http://installer.pbwiki.org/f/'.
 
  "Sources and segments can be loaded in parallel"
  loader loadSourceFiles: #('UnloadTraits-ClearRefs.cs' ).
  !

Item was changed:
  ----- Method: ReleaseBuilderSqueakland>>finalStripping (in category 'utilities') -----
  finalStripping
  "ReleaseBuilderSqueakland new finalStripping"
 
  #(#Helvetica #Palatino #Courier #ComicSansMS )
  do: [:n | TextConstants
  removeKey: n
  ifAbsent: []].
  Smalltalk
  at: #Player
  ifPresent: [:superCls | superCls
  allSubclassesDo: [:cls |
  cls isSystemDefined
+ ifFalse: [cls removeFromSystem]]].
- ifFalse: [cls removeFromSystem].
- cls := nil]].
  Smalltalk garbageCollect.
  Smalltalk discardFFI; discardSUnit; discardSpeech.
  "discardMVC;"
  SystemOrganization removeEmptyCategories.
  !

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>unloadTraitsStubOutAcessors (in category 'unloadPackages') -----
  unloadTraitsStubOutAcessors
 
  | loader |
+ loader := CodeLoader new.
- loader _ CodeLoader new.
  loader baseURL:'http://installer.pbwiki.org/f/'.
 
  "Sources and segments can be loaded in parallel"
  loader loadSourceFiles: #('UnloadTraits-StubOutAcessors.cs' ).
  !

Item was changed:
  ----- Method: ReleaseBuilderFor3dot11>>getRidOfUnwantedMorphs (in category 'cleaning') -----
  getRidOfUnwantedMorphs
  | objFl aButton  partBin unwantedMorph |
+ aButton := SimpleButtonMorph new label: 'Tools'.
- aButton _ SimpleButtonMorph new label: 'Tools'.
  aButton actWhen: #buttonDown.
  objFl := Flaps globalFlapTabWithID: 'Objects'.
  objFl referent showCategory: 'Tools' fromButton: aButton.
  partBin := objFl referent submorphs at: 1.
  unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
  unwantedMorph delete.
  2 timesRepeat: [unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: []. "we have two of this "
  unwantedMorph delete].
  objFl := Flaps globalFlapTabWithID: 'Tools'.
  partBin := objFl referent.
  unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'Package Loader'] ifNone: [].
  unwantedMorph delete.
  unwantedMorph := partBin submorphThat: [:any| (any arguments at: 2) = 'SUnit Runner'] ifNone: [].
  unwantedMorph delete.!