[Pkg] The Trunk: ReleaseBuilder-nice.50.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 23 21:28:58 UTC 2010


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



More information about the Packages mailing list