[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:

==================== 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') -----
  " 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];
          informUserDuring: [:bar | tasks
                  do: [:block |
                      bar value: block printString.
                      [block value]
                          on: Error
                          do: [:error | Transcript show: error;
   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