The Trunk: System-topa.664.mcz

Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.664.mcz

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

Name: System-topa.664
Author: topa
Time: 26 January 2014, 1:00:42.101 am
UUID: b213caa1-e284-429c-af16-ab115996e2dc
Ancestors: System-cwp.663

Fix "unloadReloadablePackages" package unloading for now
by reordering and blacklisting:
 * Tests
 * Etoys (and its dependents)
until this is resolved.

=============== Diff against System-cwp.663 ===============

Item was changed:
  ----- Method: SmalltalkImage>>shrink (in category 'shrinking') -----
  shrink
  "Clean up everything we know how to clean up that can be restored."
  "Prepare unloading"
  self zapMVCprojects.
  Flaps disableGlobalFlaps: false.
- "Yeow, why turn off listening for system changes?"
- self
- at: #ServiceRegistry
- ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ].
  self unloadReloadablePackages.
  "Post-unload aggressive cleanup"
  Smalltalk cleanUp: true.
  SystemOrganization removeSystemCategory: 'UserObjects'.
  Smalltalk at: #ScheduledControllers ifPresent: [Smalltalk at: #ScheduledControllers put: nil].
  Smalltalk garbageCollect!

Item was changed:
  ----- Method: SmalltalkImage>>unloadReloadablePackages (in category 'shrinking') -----
  unloadReloadablePackages
  "Unload packages which can be reloaded."
+
+ "One special case to make Services-Base unload"
+ Smalltalk
+ at: #ServiceRegistry
+ ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ].
+
+ #('CompressionTests'
+ 'CollectionsTests'
+ 'GraphicsTests'
+ 'BalloonTests'
+ 'HelpSystem-Tests'
+ 'KernelTests'
+ 'MorphicExtrasTests'
+ 'MorphicTests'
+ 'MultilingualTests'
+ 'NetworkTests'
+ 'ToolsTests'
+ 'TraitsTests'
+ 'SystemChangeNotification-Tests'
+ 'VersionNumberTests'
+ 'ST80Tests'
+ "'Tests'" "Currently not unloadable"
+
+ 'FlexibleVocabularies'
+ 'ReleaseBuilder'
+ 'ScriptLoader'
+ 'UpdateStream'
+ 'CommandLine'
+ '45Deprecated'
+ '311Deprecated'
+ '39Deprecated'
+ 'Universes'
+ 'SMLoader'
+ 'SMBase'
+ 'Services-Base'
+ 'Nebraska'
+ 'ToolBuilder-MVC'
+ 'ST80Tools'
+ 'ST80'
+ "'EToys'" "Currently not unloadable"
+ "'PreferenceBrowser'" "Etoys needs them, hence not unloadable"
+ "'Protocols'" "Etoys needs them, hence not unloadable"
+ 'XML-Parser'
+ 'Help-Squeak-TerseGuide'
+ 'Help-Squeak-Project'
+ 'HelpSystem-Core'
+ 'SystemReporter'
+ 'SUnitGUI'
+ 'VersionNumber' ) do: [ : pkgName | Installer mc unload: pkgName ].
- #('ReleaseBuilder' 'ScriptLoader' '311Deprecated' '39Deprecated' 'Universes' 'SMLoader' 'SMBase' 'VersionNumberTests' 'VersionNumber' 'Services-Base' 'PreferenceBrowser' 'Nebraska' 'ToolBuilder-MVC' 'ST80Tools' 'ST80Tests' 'ST80' 'CompressionTests' 'CollectionsTests' 'GraphicsTests' 'KernelTests' 'MorphicTests' 'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests' 'SystemChangeNotification-Tests' 'FlexibleVocabularies' 'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI' 'Help-Squeak' 'HelpSystem' 'SystemReporter' ) do: [ : pkgName | Installer mc unload: pkgName ].
  "Traits use custom unload"
+ Smalltalk
- self
  at: #Trait
  ifPresent: [ : aClass | aClass unloadTraits ]!