The Trunk: System-dtl.408.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-dtl.408.mcz

commits-2
David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.408.mcz

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

Name: System-dtl.408
Author: dtl
Time: 8 January 2011, 11:41:13.877 am
UUID: b2f98091-21d7-4cee-a8e9-8de71e3ad7f2
Ancestors: System-mtf.407

Help system and books are unloadable, include them in SmalltalkImage>>unloadAllKnownPackages

=============== Diff against System-mtf.407 ===============

Item was changed:
  ----- Method: SmalltalkImage>>unloadAllKnownPackages (in category 'shrinking') -----
  unloadAllKnownPackages
  "Unload all packages we know how to unload and reload"
 
  "Prepare unloading"
  Smalltalk zapMVCprojects.
  Flaps disableGlobalFlaps: false.
  StandardScriptingSystem removeUnreferencedPlayers.
  Project removeAllButCurrent.
  #('Morphic-UserObjects' 'EToy-UserObjects' 'Morphic-Imported' )
  do: [:each | SystemOrganization removeSystemCategory: each].
  Smalltalk at: #ServiceRegistry ifPresent:[:aClass|
  SystemChangeNotifier uniqueInstance
  noMoreNotificationsFor: aClass.
  ].
  World removeAllMorphs.
 
  "Go unloading"
  #( 'ReleaseBuilder' 'ScriptLoader'
  '311Deprecated' '39Deprecated'
  'Universes' 'SMLoader' 'SMBase' 'Installer-Core'
  'VersionNumberTests' 'VersionNumber'
  'Services-Base' 'PreferenceBrowser' 'Nebraska'
  'ToolBuilder-MVC' 'ST80'
  'CollectionsTests' 'GraphicsTests' 'KernelTests'  'MorphicTests'
  'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests'
  'SystemChangeNotification-Tests' 'FlexibleVocabularies'
  'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI'
+ 'Help-Squeak' 'HelpSystem'
  ) do: [:pkgName|
  (MCPackage named: pkgName) unload.
  MCMcmUpdater disableUpdatesOfPackage: pkgName.
  ].
  "Traits use custom unload"
  Smalltalk at: #Trait ifPresent:[:aClass| aClass unloadTraits].
 
  "Post-unload cleanup"
  MCWorkingCopy flushObsoletePackageInfos.
  SystemOrganization removeSystemCategory: 'UserObjects'.
  Presenter defaultPresenterClass: nil.
  World dumpPresenter.
  ScheduledControllers := nil.
  Preferences removePreference: #allowEtoyUserCustomEvents.
  SystemOrganization removeEmptyCategories.
  ChangeSet removeChangeSetsNamedSuchThat:[:cs | (cs == ChangeSet current) not].
  Undeclared removeUnreferencedKeys.
  StandardScriptingSystem initialize.
  MCFileBasedRepository flushAllCaches.
  MCDefinition clearInstances.
  Behavior flushObsoleteSubclasses.
  ChangeSet current clear.
  ChangeSet current name: 'Unnamed1'.
  Smalltalk flushClassNameCache.
  Smalltalk at: #Browser ifPresent:[:br| br initialize].
  DebuggerMethodMap voidMapCache.
  DataStream initialize.
  Smalltalk forgetDoIts.
  AppRegistry removeObsolete.
  FileServices removeObsolete.
  Preferences removeObsolete.
  TheWorldMenu removeObsolete.
  Smalltalk garbageCollect.
  Symbol compactSymbolTable.
  TheWorldMainDockingBar updateInstances.
  MorphicProject defaultFill: (Color gray: 0.9).
  World color: (Color gray: 0.9).
  !