[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