[Pkg] The Trunk: ReleaseBuilder-ul.66.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 4 01:14:36 UTC 2011

Levente Uzonyi uploaded a new version of ReleaseBuilder to project The Trunk:

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

Name: ReleaseBuilder-ul.66
Author: ul
Time: 3 August 2011, 1:51:24.902 am
UUID: 8a03ba63-f10c-c143-b15a-9b3d878a35fa
Ancestors: ReleaseBuilder-ul.65

Removed unnecessary blocks.

=============== Diff against ReleaseBuilder-ul.65 ===============

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