[Pkg] The Trunk: ReleaseBuilder-nice.64.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Apr 19 23:27:58 UTC 2011
Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-nice.64.mcz
==================== Summary ====================
Name: ReleaseBuilder-nice.64
Author: nice
Time: 20 April 2011, 1:27:48.547 am
UUID: fab08546-bdb7-4370-9523-ac9d0b6df386
Ancestors: ReleaseBuilder-cmm.63
Use #initializeBindings and remove sole sender of #setBindings:
=============== Diff against ReleaseBuilder-cmm.63 ===============
Item was changed:
----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
cleanupPhaseFinal
" ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
| tasks |
tasks := OrderedCollection new
add: [Smalltalk removeEmptyMessageCategories];
add: [Workspace
+ allSubInstancesDo: [:each | each initializeBindings]];
- allSubInstancesDo: [:each | each setBindings: Dictionary new]];
add: [Undeclared removeUnreferencedKeys];
add: [Categorizer sortAllCategories];
add: [Symbol compactSymbolTable];
add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
add: [HandMorph releaseCachedState;
initForEvents.self fixObsoleteReferences];
add: [Smalltalk forgetDoIts.
DataStream initialize.
Behavior flushObsoleteSubclasses.
"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].Smalltalk garbageCollectMost];
yourself.
Utilities
informUserDuring: [:bar | tasks
do: [:block |
bar value: block printString.
[block value]
on: Error
do: [:error | Transcript show: error;
cr]]].
SystemNavigation default obsoleteClasses isEmpty
ifTrue: [SmalltalkImage current saveSession]
ifFalse: [SystemNavigation default obsoleteClasses
do: [:each | .self halt.[PointerFinder on: each]
on: Error
do: [:error | Transcript show: error; cr]]]
!
More information about the Packages
mailing list